FG42
/
FG42
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

simplify procedure

This commit is contained in:
amirrezaask 2020-04-04 01:50:56 +04:30
parent b78591827d
commit 5a78ec226b
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/fpkg.el
View File

@ -91,18 +91,10 @@
(defun fg42-install-extension (args)
(let ((extension-name (get-extension-name args)))
(if (is-official-extension extension-name)
(straight-use-package (get-official-extension-receipe extension-name))
(straight-use-package extension-name))))
(defun extensionp (args)
"Tell if given ARGS is a FG42 extension or a normal straight package."
(cond
((symbolp args) (string= (car (last (split-string (symbol-name args) "-"))) "extension"))
((listp args) (string= (car (last (split-string (symbol-name (car args)) "-"))) "extension"))))
(straight-use-package (get-official-extension-receipe extension-name))))
(defun depends-on (args)
(if (extensionp args)
(if (is-official-extension args)
(fg42-install-extension args)
(straight-use-package args)))