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

Refactor autodef generator

Browse source
This commit is contained in:
Henrik Lissner 2019-07-22 22:10:48 +02:00
parent a301330603
commit afebdb35da
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 29 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

30
core/cli/autoloads.el
View file

@ -149,11 +149,7 @@ even if it doesn't need reloading!"
(alt-sexp (match-string 1)) (alt-sexp (match-string 1))
(type (car sexp)) (type (car sexp))
(name (doom-unquote (cadr sexp))) (name (doom-unquote (cadr sexp)))
(origin (cond ((doom-module-from-path path)) (origin (doom-module-from-path path)))
((file-in-directory-p path doom-private-dir)
`(:private . ,(intern (file-name-base path))))
((file-in-directory-p path doom-emacs-dir)
`(:core . ,(intern (file-name-base path)))))))
(cond (cond
((and (not member-p) ((and (not member-p)
alt-sexp) alt-sexp)
@ -161,19 +157,21 @@ even if it doesn't need reloading!"
((memq type '(defun defmacro cl-defun cl-defmacro)) ((memq type '(defun defmacro cl-defun cl-defmacro))
(cl-destructuring-bind (_ _name arglist &rest body) sexp (cl-destructuring-bind (_ _name arglist &rest body) sexp
(let ((docstring (if (stringp (car body))
(pop body)
"No documentation.")))
(appendq! (appendq!
forms forms
(list (if member-p (list (if member-p
(make-autoload sexp (abbreviate-file-name (file-name-sans-extension path))) (make-autoload sexp path)
(setq docstring (format "THIS FUNCTION DOES NOTHING BECAUSE %s IS DISABLED\n\n%s" (let ((docstring
origin docstring)) (format "THIS FUNCTION DOES NOTHING BECAUSE %s IS DISABLED\n\n%s"
origin
(if (stringp (car body))
(pop body)
"No documentation."))))
(condition-case-unless-debug e (condition-case-unless-debug e
(if alt-sexp (if alt-sexp
(read alt-sexp) (read alt-sexp)
(append (list (pcase type (append
(list (pcase type
(`defun 'defmacro) (`defun 'defmacro)
(`cl-defun `cl-defmacro) (`cl-defun `cl-defmacro)
(_ type)) (_ type))
@ -188,8 +186,8 @@ even if it doesn't need reloading!"
finally return (if syms `((ignore ,@syms)))))) finally return (if syms `((ignore ,@syms))))))
('error ('error
(print! "- Ignoring autodef %s (%s)" name e) (print! "- Ignoring autodef %s (%s)" name e)
nil))) nil))))
`(put ',name 'doom-module ',origin)))))) `(put ',name 'doom-module ',origin)))))
((eq type 'defalias) ((eq type 'defalias)
(cl-destructuring-bind (_type name target &optional docstring) sexp (cl-destructuring-bind (_type name target &optional docstring) sexp
@ -200,9 +198,7 @@ even if it doesn't need reloading!"
docstring docstring
(format "THIS FUNCTION DOES NOTHING BECAUSE %s IS DISABLED\n\n%s" (format "THIS FUNCTION DOES NOTHING BECAUSE %s IS DISABLED\n\n%s"
origin docstring))) origin docstring)))
(appendq! (appendq! forms `((put ',name 'doom-module ',origin)
forms
`((put ',name 'doom-module ',origin)
(defalias ',name #',target ,docstring)))))) (defalias ',name #',target ,docstring))))))
(member-p (push sexp forms))))) (member-p (push sexp forms)))))