Fix copy buffer file functions by using compose-2

This commit is contained in:
Ivan Malison 2016-06-22 15:22:58 -07:00
parent 6bb338ee4f
commit 6fdd4582a7

View File

@ -770,7 +770,7 @@ A macro for composing functions together to build an interactive command to copy
(defmacro imalison:compose-copy-builder (name &rest funcs) (defmacro imalison:compose-copy-builder (name &rest funcs)
`(imalison:named-build ,name `(imalison:named-build ,name
imalison:make-interactive imalison:make-interactive
(imalison:compose 'kill-new ,@funcs))) (imalison:compose-2 0 kill-new ,@funcs)))
#+END_SRC #+END_SRC
*** Copy portions of the buffer file name *** Copy portions of the buffer file name
@ -780,10 +780,11 @@ A macro for composing functions together to build an interactive command to copy
(imalison:copy-buffer-file-path-builder imalison:copy-buffer-file-path-full) (imalison:copy-buffer-file-path-builder imalison:copy-buffer-file-path-full)
(imalison:copy-buffer-file-path-builder imalison:copy-buffer-file-name (imalison:copy-buffer-file-path-builder imalison:copy-buffer-file-name
'file-name-nondirectory) file-name-nondirectory)
(imalison:copy-buffer-file-path-builder imalison:copy-buffer-file-path (imalison:copy-buffer-file-path-builder imalison:copy-buffer-file-path
'projectile-make-relative-to-root car
'list) projectile-make-relative-to-root
list)
#+END_SRC #+END_SRC
*** Copy the current branch using magit *** Copy the current branch using magit
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp