Reindent prefix-alternatives invocations

This commit is contained in:
Ivan Malison 2016-08-12 14:34:29 -07:00
parent 2a4485a47a
commit 4aca24b3cf
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -1112,7 +1112,9 @@ For composing functions with an apply so that they can be used with the ~:around
#+END_SRC #+END_SRC
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(imalison:prefix-alternatives imalison:mark-ring helm-mark-ring helm-global-mark-ring) (imalison:prefix-alternatives imalison:mark-ring
helm-mark-ring
helm-global-mark-ring)
#+END_SRC #+END_SRC
* Macros * Macros
** For editing literate config ** For editing literate config
@ -1937,15 +1939,17 @@ I use helm for almost all emacs completion
(interactive) (interactive)
(helm-do-ag default-directory (car (projectile-parse-dirconfig-file)))) (helm-do-ag default-directory (car (projectile-parse-dirconfig-file))))
(imalison:prefix-alternatives imalison:do-ag helm-projectile-ag (imalison:prefix-alternatives imalison:do-ag
imalison:do-ag-default-directory helm-do-ag) helm-projectile-ag
imalison:do-ag-default-directory
helm-do-ag)
(imalison:prefix-alternatives imalison:projectile-find-file (imalison:prefix-alternatives imalison:projectile-find-file
projectile-find-file projectile-find-file
projectile-find-file-other-window) projectile-find-file-other-window)
(imalison:let-around (imalison:let-around imalison:set-options-do-ag
imalison:set-options-do-ag imalison:do-ag
(lambda () (call-interactively 'imalison:do-ag))
(helm-ag-always-set-extra-option t)) (helm-ag-always-set-extra-option t))
(defun projectile-make-all-subdirs-projects (directory) (defun projectile-make-all-subdirs-projects (directory)
@ -1976,7 +1980,9 @@ I use helm for almost all emacs completion
(use-package avy (use-package avy
:preface :preface
(progn (progn
(imalison:prefix-alternatives imalison:avy avy-goto-word-1 avy-goto-char)) (imalison:prefix-alternatives imalison:avy
avy-goto-word-1
avy-goto-char))
:bind (("C-j" . imalison:avy) :bind (("C-j" . imalison:avy)
("M-g l" . avy-goto-line) ("M-g l" . avy-goto-line)
("C-'" . avy-goto-char-2))) ("C-'" . avy-goto-char-2)))
@ -1985,7 +1991,9 @@ I use helm for almost all emacs completion
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package ace-window (use-package ace-window
:preface :preface
(imalison:prefix-alternatives imalison:ace-window ace-select-window ace-swap-window) (imalison:prefix-alternatives imalison:ace-window
ace-select-window
ace-swap-window)
:config (setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l)) :config (setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l))
:bind ("C-c w" . imalison:ace-window)) :bind ("C-c w" . imalison:ace-window))
#+END_SRC #+END_SRC
@ -2097,7 +2105,8 @@ This was stolen from https://github.com/jwiegley/dot-emacs
(interactive) (interactive)
(multi-line-execute multi-line-fill-stragety nil)) (multi-line-execute multi-line-fill-stragety nil))
(imalison:prefix-alternatives imalison:multi-line multi-line (imalison:prefix-alternatives imalison:multi-line
multi-line
multi-line-single-line multi-line-single-line
imalison:multi-line-skip-fill imalison:multi-line-skip-fill
imalison:multi-line-fill imalison:multi-line-fill
@ -2411,8 +2420,10 @@ Pyimport is disabled because it may be causing a performance problem.
("C-c t" . imalison:gotest)) ("C-c t" . imalison:gotest))
:preface :preface
(progn (progn
(imalison:prefix-alternatives (imalison:prefix-alternatives imalison:gotest
imalison:gotest go-test-current-test go-test-current-file) go-test-current-test
go-test-current-file)
(defun imalison:add-expected-test-name-for-suite (suite-name test-name) (defun imalison:add-expected-test-name-for-suite (suite-name test-name)
(if (> (length suite-name) 0) (if (> (length suite-name) 0)
(concat " -run Test" suite-name) (concat " -run Test" suite-name)
@ -2832,7 +2843,8 @@ emr (emacs refactor) provides support for refactoring in many programming langua
term-projectile-create-new-default-directory) term-projectile-create-new-default-directory)
:config :config
(progn (progn
(imalison:prefix-alternatives imalison:term term-projectile-forward (imalison:prefix-alternatives imalison:term
term-projectile-forward
term-projectile-create-new) term-projectile-create-new)
(defhydra imalison:term-hydra-default-directory () (defhydra imalison:term-hydra-default-directory ()
"term - default-directory" "term - default-directory"
@ -2993,8 +3005,10 @@ I had to disable this mode because something that it does messes with coding set
:bind (("C-\\" . imalison:company)) :bind (("C-\\" . imalison:company))
:config :config
(progn (progn
(imalison:prefix-alternatives (imalison:prefix-alternatives imalison:company
imalison:company company-complete company-yasnippet) company-complete
company-yasnippet)
(setq company-idle-delay .25) (setq company-idle-delay .25)
(global-company-mode) (global-company-mode)
(diminish 'company-mode)) (diminish 'company-mode))