wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests 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

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

@ -1409,40 +1409,50 @@ 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
nil *** Font Size
"Resize Font" <<fontsizehydra>>
("-" imalison:font-size-decr "Decrease") #+BEGIN_SRC emacs-lisp
("d" imalison:font-size-decr "Decrease") (defhydra imalison:hydra-font-resize
("=" imalison:font-size-incr "Increase") nil
("+" imalison:font-size-incr "Increase") "Resize Font"
("i" imalison:font-size-incr "Increase") ("-" imalison:font-size-decr "Decrease")
("h" imalison:set-huge-font-size "Huge") ("d" imalison:font-size-decr "Decrease")
("f" set-frame-font "Set Frame Font") ("=" imalison:font-size-incr "Increase")
("0" imalison:font-size-reset "Reset to default size")) ("+" imalison:font-size-incr "Increase")
("i" imalison:font-size-incr "Increase")
("h" imalison:set-huge-font-size "Huge")
("f" set-frame-font "Set Frame Font")
("0" imalison:font-size-reset "Reset to default size"))
#+END_SRC
*** Yanking
#+BEGIN_SRC emacs-lisp
(defhydra imalison:hydra-yank
nil
"Yank text"
("p" imalison:copy-buffer-file-path "Projectile path")
("f" imalison:copy-buffer-file-path-full "Full path")
("n" imalison:copy-buffer-file-name "File name")
("b" imalison:copy-current-git-branch "Git Branch"))
#+END_SRC
*** Compile
#+BEGIN_SRC emacs-lisp
(defun imalison:make-test ()
(interactive)
(let ((default-directory (projectile-project-root)))
(imalison:named-compile "make test")))
(defhydra imalison:hydra-yank (defun imalison:glide-up ()
nil (interactive)
"Yank text" (imalison:named-compile "glide up"))
("p" imalison:copy-buffer-file-path "Projectile path")
("f" imalison:copy-buffer-file-path-full "Full path")
("n" imalison:copy-buffer-file-name "File name")
("b" imalison:copy-current-git-branch "Git Branch"))
(defun imalison:make-test () (defhydra imalison:compile nil "Compile"
(interactive) ("s" imalison:projectile-helm-command-from-zsh "Select a command from shell history")
(let ((default-directory (projectile-project-root))) ("c" imalison:named-compile "Enter Custom Command")
(imalison:named-compile "make test"))) ("t" imalison:make-test "Test")
("u" imalison:glide-up "Update Dependencies"))
(defun imalison:glide-up () ;; The following parens close the use-package/progn created several blocks above
(interactive) ))
(imalison:named-compile "glide up"))
(defhydra imalison:compile nil "Compile"
("s" imalison:projectile-helm-command-from-zsh "Select a command from shell history")
("c" imalison:named-compile "Enter Custom Command")
("t" imalison:make-test "Test")
("u" imalison:glide-up "Update Dependencies"))))
#+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.