colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[Emacs] Split hydra use-package across multiple headings

Browse Source
This commit is contained in:
Ivan Malison 2016-10-25 12:55:54 -07:00
parent 10d2fe94b2
commit 3ec7217044
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 42 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
dotfiles/emacs.d/README.org
View File

@ -1409,7 +1409,11 @@ https://github.com/alpaker/Fill-Column-Indicator/issues/21 for more details
("C-c 6" . imalison:compile/body)) ("C-c 6" . imalison:compile/body))
:config :config
(progn (progn
(defhydra imalison:hydra-font-resize #+END_SRC
*** Font Size
<<fontsizehydra>>
#+BEGIN_SRC emacs-lisp
(defhydra imalison:hydra-font-resize
nil nil
"Resize Font" "Resize Font"
("-" imalison:font-size-decr "Decrease") ("-" imalison:font-size-decr "Decrease")
@ -1420,29 +1424,35 @@ https://github.com/alpaker/Fill-Column-Indicator/issues/21 for more details
("h" imalison:set-huge-font-size "Huge") ("h" imalison:set-huge-font-size "Huge")
("f" set-frame-font "Set Frame Font") ("f" set-frame-font "Set Frame Font")
("0" imalison:font-size-reset "Reset to default size")) ("0" imalison:font-size-reset "Reset to default size"))
#+END_SRC
(defhydra imalison:hydra-yank *** Yanking
#+BEGIN_SRC emacs-lisp
(defhydra imalison:hydra-yank
nil nil
"Yank text" "Yank text"
("p" imalison:copy-buffer-file-path "Projectile path") ("p" imalison:copy-buffer-file-path "Projectile path")
("f" imalison:copy-buffer-file-path-full "Full path") ("f" imalison:copy-buffer-file-path-full "Full path")
("n" imalison:copy-buffer-file-name "File name") ("n" imalison:copy-buffer-file-name "File name")
("b" imalison:copy-current-git-branch "Git Branch")) ("b" imalison:copy-current-git-branch "Git Branch"))
#+END_SRC
(defun imalison:make-test () *** Compile
#+BEGIN_SRC emacs-lisp
(defun imalison:make-test ()
(interactive) (interactive)
(let ((default-directory (projectile-project-root))) (let ((default-directory (projectile-project-root)))
(imalison:named-compile "make test"))) (imalison:named-compile "make test")))
(defun imalison:glide-up () (defun imalison:glide-up ()
(interactive) (interactive)
(imalison:named-compile "glide up")) (imalison:named-compile "glide up"))
(defhydra imalison:compile nil "Compile" (defhydra imalison:compile nil "Compile"
("s" imalison:projectile-helm-command-from-zsh "Select a command from shell history") ("s" imalison:projectile-helm-command-from-zsh "Select a command from shell history")
("c" imalison:named-compile "Enter Custom Command") ("c" imalison:named-compile "Enter Custom Command")
("t" imalison:make-test "Test") ("t" imalison:make-test "Test")
("u" imalison:glide-up "Update Dependencies")))) ("u" imalison:glide-up "Update Dependencies"))
;; The following parens close the use-package/progn created several blocks above
))
#+END_SRC #+END_SRC
** kill-emacs ** kill-emacs
This ensures that C-x C-c will always kill emacs, even if we are running in server mode. This ensures that C-x C-c will always kill emacs, even if we are running in server mode.