Skip to content

Commit 06b35f7

Browse files
committed
Remove obsoletes
* hydra.el (hydra-create): Remove * hydra-examples.el (hydra-example-text-scale): Remove. (hydra-example-move-window-splitter): Remove. (hydra-example-goto-error): Remove. (hydra-example-windmove): Remove
1 parent 614e1f7 commit 06b35f7

File tree

2 files changed

+0
-79
lines changed

2 files changed

+0
-79
lines changed

hydra-examples.el

Lines changed: 0 additions & 48 deletions
Original file line numberDiff line numberDiff line change
@@ -196,53 +196,5 @@
196196
(shrink-window arg)
197197
(enlarge-window arg)))
198198

199-
;;* Obsoletes
200-
(defvar hydra-example-text-scale
201-
'(("g" text-scale-increase "zoom in")
202-
("l" text-scale-decrease "zoom out"))
203-
"A two-headed hydra for text scale manipulation.")
204-
(make-obsolete-variable
205-
'hydra-example-text-scale
206-
"Don't use `hydra-example-text-scale', just write your own
207-
`defhydra' using hydra-examples.el as a template"
208-
"0.9.0")
209-
210-
(defvar hydra-example-move-window-splitter
211-
'(("h" hydra-move-splitter-left)
212-
("j" hydra-move-splitter-down)
213-
("k" hydra-move-splitter-up)
214-
("l" hydra-move-splitter-right))
215-
"A four-headed hydra for the window splitter manipulation.
216-
Works best if you have not more than 4 windows.")
217-
(make-obsolete-variable
218-
'hydra-example-move-window-splitter
219-
"Don't use `hydra-example-move-window-splitter', just write your own
220-
`defhydra' using hydra-examples.el as a template"
221-
"0.9.0")
222-
223-
(defvar hydra-example-goto-error
224-
'(("h" first-error "first")
225-
("j" next-error "next")
226-
("k" previous-error "prev"))
227-
"A three-headed hydra for jumping between \"errors\".
228-
Useful for e.g. `occur', `rgrep' and the like.")
229-
(make-obsolete-variable
230-
'hydra-example-goto-error
231-
"Don't use `hydra-example-goto-error', just write your own
232-
`defhydra' using hydra-examples.el as a template"
233-
"0.9.0")
234-
235-
(defvar hydra-example-windmove
236-
'(("h" windmove-left)
237-
("j" windmove-down)
238-
("k" windmove-up)
239-
("l" windmove-right))
240-
"A four-headed hydra for `windmove'.")
241-
(make-obsolete-variable
242-
'hydra-example-windmove
243-
"Don't use `hydra-example-windmove', just write your own
244-
`defhydra' using hydra-examples.el as a template"
245-
"0.9.0")
246-
247199
(provide 'hydra-examples)
248200
;;; hydra-examples.el ends here

hydra.el

Lines changed: 0 additions & 31 deletions
Original file line numberDiff line numberDiff line change
@@ -320,37 +320,6 @@ BODY-COLOR, BODY-PRE, BODY-POST, and OTHER-POST are used as well."
320320
,other-post))))))
321321

322322
;;* Macros
323-
;;** hydra-create
324-
;;;###autoload
325-
(defmacro hydra-create (body heads &optional method)
326-
"Create a hydra with a BODY prefix and HEADS with METHOD.
327-
This will result in `global-set-key' statements with the keys
328-
being the concatenation of BODY and each head in HEADS. HEADS is
329-
an list of (KEY FUNCTION &optional HINT).
330-
331-
After one of the HEADS is called via BODY+KEY, it and the other
332-
HEADS can be called with only KEY (no need for BODY). This state
333-
is broken once any key binding that is not in HEADS is called.
334-
335-
METHOD is a lambda takes two arguments: a KEY and a COMMAND.
336-
It defaults to `global-set-key'.
337-
When `(keymapp METHOD)`, it becomes:
338-
339-
(lambda (key command) (define-key METHOD key command))"
340-
(declare (indent 1)
341-
(obsolete defhydra "0.8.0"))
342-
`(defhydra ,(intern
343-
(concat
344-
"hydra-" (replace-regexp-in-string " " "_" body)))
345-
,(cond ((hydra--callablep method)
346-
method)
347-
((null method)
348-
`(global-map ,body))
349-
(t
350-
(list method body)))
351-
"hydra"
352-
,@(eval heads)))
353-
354323
;;** defhydra
355324
;;;###autoload
356325
(defmacro defhydra (name body &optional docstring &rest heads)

0 commit comments

Comments
 (0)