Replace prefix-alternatives with prefix-selector
This commit is contained in:
parent
cbf78802e0
commit
2f6e2e23c9
@ -578,27 +578,6 @@ new macro name and the -fn suffix.
|
|||||||
'arg
|
'arg
|
||||||
`(funcall ,(car funcs) (imalison:compose-helper-unary ,(cdr funcs)))))
|
`(funcall ,(car funcs) (imalison:compose-helper-unary ,(cdr funcs)))))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
*** Prefix Alternatives
|
|
||||||
Prefix alternatives is a macro that builds an interactive function
|
|
||||||
that selects one of a collection of functions that are provided to the
|
|
||||||
macro based on the value of the prefix argument.
|
|
||||||
#+BEGIN_SRC emacs-lisp
|
|
||||||
(defmacro imalison:prefix-alternatives-fn (&rest alternatives)
|
|
||||||
`(lambda (arg)
|
|
||||||
(interactive "p")
|
|
||||||
(let ((function
|
|
||||||
(cond
|
|
||||||
,@(progn
|
|
||||||
(let ((last-power 1))
|
|
||||||
(cl-loop for alternative in alternatives
|
|
||||||
collect `((eq arg ,last-power) (quote ,alternative))
|
|
||||||
do (setq last-power (* last-power 4))))))))
|
|
||||||
(setq function (or function)) ; Set a default value for function
|
|
||||||
(setq current-prefix-arg nil)
|
|
||||||
(call-interactively function))))
|
|
||||||
|
|
||||||
(imalison:named-builder imalison:prefix-alternatives)
|
|
||||||
#+END_SRC
|
|
||||||
*** Make Interactive
|
*** Make Interactive
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(defmacro imalison:make-interactive-fn (function)
|
(defmacro imalison:make-interactive-fn (function)
|
||||||
@ -912,7 +891,7 @@ This interactive functions allows the user the select a function to invoke using
|
|||||||
(read-shell-command "Shell command on region: ")))
|
(read-shell-command "Shell command on region: ")))
|
||||||
(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
|
(emit-prefix-selector 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
|
||||||
@ -1092,7 +1071,7 @@ A macro for composing functions together to build an interactive command to copy
|
|||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(imalison:prefix-alternatives imalison:mark-ring
|
(emit-prefix-selector imalison:mark-ring
|
||||||
helm-mark-ring
|
helm-mark-ring
|
||||||
helm-global-mark-ring)
|
helm-global-mark-ring)
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
@ -1919,12 +1898,12 @@ 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
|
(emit-prefix-selector imalison:do-ag
|
||||||
helm-projectile-ag
|
helm-projectile-ag
|
||||||
imalison:do-ag-default-directory
|
imalison:do-ag-default-directory
|
||||||
helm-do-ag)
|
helm-do-ag)
|
||||||
|
|
||||||
(imalison:prefix-alternatives imalison:projectile-find-file
|
(emit-prefix-selector imalison:projectile-find-file
|
||||||
projectile-find-file
|
projectile-find-file
|
||||||
projectile-find-file-other-window)
|
projectile-find-file-other-window)
|
||||||
|
|
||||||
@ -1960,7 +1939,7 @@ I use helm for almost all emacs completion
|
|||||||
(use-package avy
|
(use-package avy
|
||||||
:preface
|
:preface
|
||||||
(progn
|
(progn
|
||||||
(imalison:prefix-alternatives imalison:avy
|
(emit-prefix-selector imalison:avy
|
||||||
avy-goto-word-1
|
avy-goto-word-1
|
||||||
avy-goto-char))
|
avy-goto-char))
|
||||||
:bind (("C-j" . imalison:avy)
|
:bind (("C-j" . imalison:avy)
|
||||||
@ -1971,7 +1950,7 @@ 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
|
(emit-prefix-selector imalison:ace-window
|
||||||
ace-select-window
|
ace-select-window
|
||||||
ace-swap-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))
|
||||||
@ -2030,7 +2009,7 @@ This was stolen from https://github.com/jwiegley/dot-emacs
|
|||||||
:bind (("C-\\" . imalison:company))
|
:bind (("C-\\" . imalison:company))
|
||||||
:config
|
:config
|
||||||
(progn
|
(progn
|
||||||
(imalison:prefix-alternatives imalison:company
|
(emit-prefix-selector imalison:company
|
||||||
company-complete
|
company-complete
|
||||||
company-yasnippet)
|
company-yasnippet)
|
||||||
|
|
||||||
@ -2125,7 +2104,7 @@ I don't use auto-complete at all, so I have set up a hook to automatically disab
|
|||||||
(interactive)
|
(interactive)
|
||||||
(multi-line-execute multi-line-fill-stragety nil))
|
(multi-line-execute multi-line-fill-stragety nil))
|
||||||
|
|
||||||
(imalison:prefix-alternatives imalison:multi-line
|
(emit-prefix-selector imalison:multi-line
|
||||||
multi-line
|
multi-line
|
||||||
multi-line-single-line
|
multi-line-single-line
|
||||||
imalison:multi-line-skip-fill
|
imalison:multi-line-skip-fill
|
||||||
@ -2451,7 +2430,7 @@ 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:gotest
|
(emit-prefix-selector imalison:gotest
|
||||||
go-test-current-test
|
go-test-current-test
|
||||||
go-test-current-file)
|
go-test-current-file)
|
||||||
|
|
||||||
@ -2544,7 +2523,7 @@ Pyimport is disabled because it may be causing a performance problem.
|
|||||||
:config
|
:config
|
||||||
(diminish 'elisp-slime-nav-mode)
|
(diminish 'elisp-slime-nav-mode)
|
||||||
:preface
|
:preface
|
||||||
(imalison:prefix-alternatives imalison:elisp-slime-nav
|
(emit-prefix-selector 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
|
||||||
@ -2874,7 +2853,7 @@ 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
|
(emit-prefix-selector imalison:term
|
||||||
term-projectile-forward
|
term-projectile-forward
|
||||||
term-projectile-create-new)
|
term-projectile-create-new)
|
||||||
(defhydra imalison:term-hydra-default-directory ()
|
(defhydra imalison:term-hydra-default-directory ()
|
||||||
|
Loading…
Reference in New Issue
Block a user