awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix void-variable errors from +hlissner-def-finder! macro

Browse Source
This commit is contained in:
Henrik Lissner
2017-06-06 02:40:54 +02:00
parent 16c1b5c85e
commit 2bc7606559
1 changed files with 0 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
modules/private/hlissner/autoload/hlissner.el
View File

@ -1,8 +1,5 @@
;;; private/hlissner/autoload/hlissner.el ;;; private/hlissner/autoload/hlissner.el
(defvar +file-templates-dir)
(defvar +hlissner-snippets-dir)
;;;###autoload ;;;###autoload
(defun +hlissner/install-snippets () (defun +hlissner/install-snippets ()
"Install my snippets from https://github.com/hlissner/emacs-snippets into "Install my snippets from https://github.com/hlissner/emacs-snippets into
@ -23,12 +20,10 @@ private/hlissner/snippets."
"Define a pair of find-file and browse functions." "Define a pair of find-file and browse functions."
`(progn `(progn
(defun ,(intern (format "+hlissner/find-in-%s" name)) () (defun ,(intern (format "+hlissner/find-in-%s" name)) ()
,(format "Find a file in %s" (abbreviate-file-name (eval dir)))
(interactive) (interactive)
(let ((default-directory ,dir)) (let ((default-directory ,dir))
(call-interactively (command-remapping #'projectile-find-file)))) (call-interactively (command-remapping #'projectile-find-file))))
(defun ,(intern (format "+hlissner/browse-%s" name)) () (defun ,(intern (format "+hlissner/browse-%s" name)) ()
,(format "Browse files starting from %s" (abbreviate-file-name (eval dir)))
(interactive) (interactive)
(let ((default-directory ,dir)) (let ((default-directory ,dir))
(call-interactively (command-remapping #'find-file)))))) (call-interactively (command-remapping #'find-file))))))