add adapter layer for depends-on

This commit is contained in:
amirrezaask 2020-04-04 16:20:18 +04:30
parent e55816d163
commit fd67f2f76a
1 changed files with 8 additions and 2 deletions

View File

@ -93,18 +93,24 @@
`(use-package ,args :straight ,reciepe))) `(use-package ,args :straight ,reciepe)))
(defun old-depends-on-calls-adapter (args)
(if (listp (car args))
(progn (add-to-list 'args (car (cdr (pop args)))) args)
args))
(defmacro depends-on (&rest args) (defmacro depends-on (&rest args)
"Install given ARGS." "Install given ARGS."
(message "%s" args) (setq args (old-depends-on-calls-adapter args))
(if (official-extension-p (car args)) (if (official-extension-p (car args))
`(fg42-install-extension ,@args) `(fg42-install-extension ,@args)
`(use-package ,@args))) `(use-package ,@args)))
;; depends on now is a wrapper around use-package ;; depends on now is a wrapper around use-package
;; (macroexpand-1 '(depends-on go-mode :mode "\\.go\\'")) ;; (macroexpand-1 '(depends-on go-mode :mode "\\.go\\'"))
;; (macroexpand-1 '(depends-on devops-extension)) ;; (macroexpand-1 '(depends-on devops-extension))
;; (macroexpand-1 '(fg42-install-extension devops-extension)) ;; (macroexpand-1 '(fg42-install-extension devops-extension))
;; (depends-on cyberpunk-theme) ;; elpa ;; (depends-on cyberpunk-theme)
;; (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