emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

private/default: add prefix arg to def-{find-in|browse-in}! macros

Browse source
This commit is contained in:
Henrik Lissner 2018-02-04 17:30:16 -05:00
parent 68e735938b
commit c2635d53db
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
modules/private/default/autoload/default.el
View file

@ -9,15 +9,15 @@
(error "Couldn't find filename in current buffer"))) (error "Couldn't find filename in current buffer")))
;;;###autoload ;;;###autoload
(defmacro +default--def-browse-in! (name dir) (defmacro +default--def-browse-in! (name dir &optional prefix)
(let ((prefix (cdr (doom-module-from-path (or load-file-name byte-compile-current-file))))) (let ((prefix (or prefix (cdr (doom-module-from-path (or load-file-name byte-compile-current-file))))))
`(defun ,(intern (format "+%s/browse-%s" prefix name)) () `(defun ,(intern (format "+%s/browse-%s" prefix name)) ()
(interactive) (interactive)
(doom-project-browse ,dir)))) (doom-project-browse ,dir))))
;;;###autoload ;;;###autoload
(defmacro +default--def-find-in! (name dir) (defmacro +default--def-find-in! (name dir &optional prefix)
(let ((prefix (cdr (doom-module-from-path (or load-file-name byte-compile-current-file))))) (let ((prefix (or prefix (cdr (doom-module-from-path (or load-file-name byte-compile-current-file))))))
`(defun ,(intern (format "+%s/find-in-%s" prefix name)) () `(defun ,(intern (format "+%s/find-in-%s" prefix name)) ()
(interactive) (interactive)
(doom-project-find-file ,dir)))) (doom-project-find-file ,dir))))
@ -25,6 +25,7 @@
;;;###autoload (autoload '+default/browse-project "private/default/autoload/default" nil t) ;;;###autoload (autoload '+default/browse-project "private/default/autoload/default" nil t)
(+default--def-browse-in! project (doom-project-root)) (+default--def-browse-in! project (doom-project-root))
;; NOTE No need for find-in-project, use `projectile-find-file'
;;;###autoload (autoload '+default/find-in-templates "private/default/autoload/default" nil t) ;;;###autoload (autoload '+default/find-in-templates "private/default/autoload/default" nil t)
(+default--def-find-in! templates +file-templates-dir) (+default--def-find-in! templates +file-templates-dir)