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

Fix void macro errors after byte-compiling

Browse source
This commit is contained in:
Henrik Lissner 2018-05-15 03:24:30 +02:00
parent 1320d83834
commit 9a2c4f297c
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 14 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

7
modules/config/default/config.el
View file

@ -76,10 +76,11 @@
(defvar +default-repeat-forward-key ";")
(defvar +default-repeat-backward-key ",")
(eval-and-compile
;; Makes ; and , the universal repeat-keys in evil-mode
(eval-when-compile
(defmacro do-repeat! (command next-func prev-func)
"Repeat motions with ;/,"
"Makes ; and , the universal repeat-keys in evil-mode. These keys can be
customized by changing `+default-repeat-forward-key' and
`+default-repeat-backward-key'."
(let ((fn-sym (intern (format "+evil*repeat-%s" (doom-unquote command)))))
`(progn
(defun ,fn-sym (&rest _)

19
modules/lang/org/config.el
View file

@ -206,15 +206,16 @@ unfold to point on startup."
(unless (file-remote-p path)
(if (file-exists-p path) 'org-link 'error))))
(defmacro def-org-file-link! (key dir)
`(org-link-set-parameters
,key
:complete (lambda () (+org--relpath (+org-link-read-file ,key ,dir) ,dir))
:follow (lambda (link) (find-file (expand-file-name link ,dir)))
:face (lambda (link)
(if (file-exists-p (expand-file-name link ,dir))
'org-link
'error))))
(eval-when-compile
(defmacro def-org-file-link! (key dir)
`(org-link-set-parameters
,key
:complete (lambda () (+org--relpath (+org-link-read-file ,key ,dir) ,dir))
:follow (lambda (link) (find-file (expand-file-name link ,dir)))
:face (lambda (link)
(if (file-exists-p (expand-file-name link ,dir))
'org-link
'error)))))
(def-org-file-link! "org" +org-dir)
(def-org-file-link! "doom" doom-emacs-dir)