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

more simplification in the process

This commit is contained in:
amirrezaask 2020-04-04 02:22:26 +04:30
parent 5a78ec226b
commit 3c26510fe0
1 changed files with 5 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lib/fpkg.el
View File

@ -75,33 +75,25 @@
(when (not fpkg-initilized-p) (when (not fpkg-initilized-p)
(fpkg-initialize))) (fpkg-initialize)))
(defun get-extension-name (args)
(cond
((symbolp args) args)
((listp args) (car args))))
(defvar official-extensions '(devops-extension)) (defvar official-extensions '(devops-extension))
(defun is-official-extension (args) (defun is-official-extension (args)
(member args official-extensions)) (member args official-extensions))
(defun get-official-extension-receipe (name) (defun get-receipe (name)
(list name :host 'gitlab :repo (format "FG42/%s" name))) (list name :host 'gitlab :repo (format "FG42/%s" name)))
(defun fg42-install-extension (args) (defun fg42-install-extension (args)
(let ((extension-name (get-extension-name args))) (straight-use-package (get-receipe args)))
(straight-use-package (get-official-extension-receipe extension-name))))
(defun depends-on (args) (defun depends-on (args)
(if (is-official-extension args) (if (is-official-extension args)
(fg42-install-extension args) (fg42-install-extension args)
(straight-use-package args))) (straight-use-package args)))
(depends-on 'cyberpunk-theme) ;; elpa
;; (depends-on 'badwolf-theme) ;; elpa (depends-on 'devops-extension) ;; official extension
;; (depends-on 'devops-extension) ;; official extension (depends-on '(go-extension :host gitlab :repo "amirrezaask/go-extension")) ;; 3rd party extension
;; (depends-on '(go-extension :host gitlab :repo "amirrezaask/go-extension")) ;; 3rd party extension
(provide 'fpkg) (provide 'fpkg)
;;; fpkg.el ends here ;;; fpkg.el ends here