Remove def-hydra! macro alias

Causes byte-compilation issues and the alias is unnecessary.
This commit is contained in:
Henrik Lissner 2018-05-24 22:03:17 +02:00
parent 7c611df6a6
commit 0b48575c14
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
7 changed files with 13 additions and 16 deletions

View file

@ -60,15 +60,11 @@ If any hook returns non-nil, all hooks after it are ignored.")
(def-package! hydra (def-package! hydra
:commands (defhydra defhydradio) :defer t
:init
;; In case I later need to wrap defhydra in any special functionality.
(defalias 'def-hydra! 'defhydra)
(defalias 'def-hydra-radio! 'defhydradio)
:config :config
(setq lv-use-seperator t) (setq lv-use-seperator t)
(def-hydra! doom@text-zoom (:hint t :color red) (defhydra doom@text-zoom (:hint t :color red)
" "
Text zoom: _j_:zoom in, _k_:zoom out, _0_:reset Text zoom: _j_:zoom in, _k_:zoom out, _0_:reset
" "
@ -76,7 +72,7 @@ If any hook returns non-nil, all hooks after it are ignored.")
("k" text-scale-decrease "out") ("k" text-scale-decrease "out")
("0" (text-scale-set 0) "reset")) ("0" (text-scale-set 0) "reset"))
(def-hydra! doom@window-nav (:hint nil) (defhydra doom@window-nav (:hint nil)
" "
Split: _v_ert _s_:horz Split: _v_ert _s_:horz
Delete: _c_lose _o_nly Delete: _c_lose _o_nly

View file

@ -24,6 +24,7 @@ Expects a `font-spec'.")
return a string). This changes the 'long' name of a major-mode, allowing for return a string). This changes the 'long' name of a major-mode, allowing for
shorter major mode name in the mode-line. See `doom|set-mode-name'.") shorter major mode name in the mode-line. See `doom|set-mode-name'.")
;;
(defvar doom-init-ui-hook nil (defvar doom-init-ui-hook nil
"List of hooks to run when the UI has been initialized.") "List of hooks to run when the UI has been initialized.")

View file

@ -141,7 +141,7 @@ immediately runs it on the current candidate (ending the ivy session)."
"C-o" #'+ivy@coo/body "C-o" #'+ivy@coo/body
"M-o" #'ivy-dispatching-done-hydra) "M-o" #'ivy-dispatching-done-hydra)
:config :config
(def-hydra! +ivy@coo (:hint nil :color pink) (defhydra +ivy@coo (:hint nil :color pink)
" "
Move ^^^^^^^^^^ | Call ^^^^ | Cancel^^ | Options^^ | Action _w_/_s_/_a_: %s(ivy-action-name) Move ^^^^^^^^^^ | Call ^^^^ | Cancel^^ | Options^^ | Action _w_/_s_/_a_: %s(ivy-action-name)
----------^^^^^^^^^^-+--------------^^^^-+-------^^-+--------^^-+--------------------------------- ----------^^^^^^^^^^-+--------------^^^^-+-------^^-+--------^^-+---------------------------------

View file

@ -33,7 +33,7 @@
(ignore (git-gutter)))) (ignore (git-gutter))))
(add-hook 'doom-escape-hook #'+version-control|update-git-gutter t)) (add-hook 'doom-escape-hook #'+version-control|update-git-gutter t))
(def-hydra! +version-control@git-gutter (defhydra +version-control@git-gutter
(:body-pre (git-gutter-mode 1) :hint nil) (:body-pre (git-gutter-mode 1) :hint nil)
" "

View file

@ -28,7 +28,7 @@
(defalias #'smerge-diff-upper-lower #'smerge-diff-mine-other) (defalias #'smerge-diff-upper-lower #'smerge-diff-mine-other)
(defalias #'smerge-diff-base-lower #'smerge-diff-base-other))) (defalias #'smerge-diff-base-lower #'smerge-diff-base-other)))
(def-hydra! +hydra-smerge (:hint nil (defhydra +hydra-smerge (:hint nil
:pre (smerge-mode 1) :pre (smerge-mode 1)
;; Disable `smerge-mode' when quitting hydra if ;; Disable `smerge-mode' when quitting hydra if
;; no merge conflicts remain. ;; no merge conflicts remain.

View file

@ -45,7 +45,7 @@
;; Avy is required for showing links in the notebook list with ace-link. ;; Avy is required for showing links in the notebook list with ace-link.
(require 'avy) (require 'avy)
;; add hydra ;; add hydra
(def-hydra! +ein/hydra (:hint t :color red) (defhydra +ein/hydra (:hint t :color red)
" "
Operations on Cells^^^^^^ Other Operations on Cells^^^^^^ Other
----------------------------^^^^^^ ----------------------------------^^^^ ----------------------------^^^^^^ ----------------------------------^^^^

View file

@ -10,7 +10,7 @@
(def-package! kurecolor (def-package! kurecolor
:after rainbow-mode :after rainbow-mode
:config :config
(def-hydra! +rgb@kurecolor (:color pink :hint nil) (defhydra +rgb@kurecolor (:color pink :hint nil)
" "
Inc/Dec _w_/_W_ brightness _d_/_D_ saturation _e_/_E_ hue " Inc/Dec _w_/_W_ brightness _d_/_D_ saturation _e_/_E_ hue "
("w" kurecolor-decrease-brightness-by-step) ("w" kurecolor-decrease-brightness-by-step)