forked from colonelpanic/dotfiles
Reindent prefix-alternatives invocations
This commit is contained in:
parent
2a4485a47a
commit
4aca24b3cf
@ -927,8 +927,8 @@ This interactive functions allows the user the select a function to invoke using
|
|||||||
(shell-command-on-region start end command nil t))
|
(shell-command-on-region start end command nil t))
|
||||||
|
|
||||||
(imalison:prefix-alternatives imalison:shell-command-on-region
|
(imalison:prefix-alternatives imalison:shell-command-on-region
|
||||||
imalison:copy-shell-command-on-region
|
imalison:copy-shell-command-on-region
|
||||||
imalison:shell-command-on-region-replace)
|
imalison:shell-command-on-region-replace)
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
** Copy String Functions
|
** Copy String Functions
|
||||||
A macro for composing functions together to build an interactive command to copy a string to the kill ring.
|
A macro for composing functions together to build an interactive command to copy a string to the kill ring.
|
||||||
@ -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,16 +1939,18 @@ 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:prefix-alternatives imalison:projectile-find-file
|
imalison:do-ag-default-directory
|
||||||
projectile-find-file
|
helm-do-ag)
|
||||||
projectile-find-file-other-window)
|
|
||||||
|
|
||||||
(imalison:let-around
|
(imalison:prefix-alternatives imalison:projectile-find-file
|
||||||
imalison:set-options-do-ag
|
projectile-find-file
|
||||||
(lambda () (call-interactively 'imalison:do-ag))
|
projectile-find-file-other-window)
|
||||||
(helm-ag-always-set-extra-option t))
|
|
||||||
|
(imalison:let-around imalison:set-options-do-ag
|
||||||
|
imalison:do-ag
|
||||||
|
(helm-ag-always-set-extra-option t))
|
||||||
|
|
||||||
(defun projectile-make-all-subdirs-projects (directory)
|
(defun projectile-make-all-subdirs-projects (directory)
|
||||||
(cl-loop for file-info in (directory-files-and-attributes directory)
|
(cl-loop for file-info in (directory-files-and-attributes 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,11 +2105,12 @@ 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-single-line
|
multi-line
|
||||||
imalison:multi-line-skip-fill
|
multi-line-single-line
|
||||||
imalison:multi-line-fill
|
imalison:multi-line-skip-fill
|
||||||
imalison:multi-line-fill-column))
|
imalison:multi-line-fill
|
||||||
|
imalison:multi-line-fill-column))
|
||||||
:bind ("C-c d" . imalison:multi-line))
|
:bind ("C-c d" . imalison:multi-line))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
*** comment-dwim-2
|
*** comment-dwim-2
|
||||||
@ -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)
|
||||||
@ -2503,8 +2514,8 @@ Pyimport is disabled because it may be causing a performance problem.
|
|||||||
(diminish 'elisp-slime-nav-mode)
|
(diminish 'elisp-slime-nav-mode)
|
||||||
:preface
|
:preface
|
||||||
(imalison:prefix-alternatives imalison:elisp-slime-nav
|
(imalison:prefix-alternatives imalison:elisp-slime-nav
|
||||||
elisp-slime-nav-find-elisp-thing-at-point
|
elisp-slime-nav-find-elisp-thing-at-point
|
||||||
elisp-slime-nav-describe-elisp-thing-at-point)
|
elisp-slime-nav-describe-elisp-thing-at-point)
|
||||||
:bind (:map elisp-slime-nav-mode-map
|
:bind (:map elisp-slime-nav-mode-map
|
||||||
("M-." . imalison:elisp-slime-nav))
|
("M-." . imalison:elisp-slime-nav))
|
||||||
:init
|
:init
|
||||||
@ -2832,8 +2843,9 @@ 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-create-new)
|
term-projectile-forward
|
||||||
|
term-projectile-create-new)
|
||||||
(defhydra imalison:term-hydra-default-directory ()
|
(defhydra imalison:term-hydra-default-directory ()
|
||||||
"term - default-directory"
|
"term - default-directory"
|
||||||
("n" term-projectile-default-directory-forward)
|
("n" term-projectile-default-directory-forward)
|
||||||
@ -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))
|
||||||
|
Loading…
Reference in New Issue
Block a user