Ce serveur Gitlab sera éteint le 30 juin 2020, pensez à migrer vos projets vers les serveurs gitlab-research.centralesupelec.fr et gitlab-student.centralesupelec.fr !

Commit ef950e52 authored by Rüdiger Sonderfeld's avatar Rüdiger Sonderfeld

el-get-describe: Show install path and provide `el-get-cd'.

If the package is installed `el-get-describe' will now show the
install path and provide an interface similar to `el-get-cd'.
Signed-off-by: 's avatarRüdiger Sonderfeld <ruediger@c-plusplus.de>
parent fafd6ebf
...@@ -51,6 +51,11 @@ ...@@ -51,6 +51,11 @@
(el-get-update package))) (el-get-update package)))
'help-echo (purecopy "mouse-2, RET: update package")) 'help-echo (purecopy "mouse-2, RET: update package"))
(define-button-type 'el-get-help-cd
:supertype 'help-xref
'help-function #'dired
'help-echo (purecopy "mouse-2, RET: open directory"))
(define-button-type 'el-get-help-describe-package (define-button-type 'el-get-help-describe-package
:supertype 'help-xref :supertype 'help-xref
'help-function #'el-get-describe 'help-function #'el-get-describe
...@@ -80,6 +85,7 @@ matching REGEX with TYPE and ARGS as parameter." ...@@ -80,6 +85,7 @@ matching REGEX with TYPE and ARGS as parameter."
(def (el-get-package-def pname)) (def (el-get-package-def pname))
(name (plist-get def :name)) (name (plist-get def :name))
(website (plist-get def :website)) (website (plist-get def :website))
(directory (el-get-package-directory package))
(descr (plist-get def :description)) (descr (plist-get def :description))
(type (el-get-package-method def)) (type (el-get-package-method def))
(builtin (plist-get def :builtin)) (builtin (plist-get def :builtin))
...@@ -134,9 +140,15 @@ matching REGEX with TYPE and ARGS as parameter." ...@@ -134,9 +140,15 @@ matching REGEX with TYPE and ARGS as parameter."
(princ (format " Warning: Your Emacs is too old (%s)!" emacs-version))) (princ (format " Warning: Your Emacs is too old (%s)!" emacs-version)))
(princ "\n")) (princ "\n"))
(if (eq type 'builtin) (if (eq type 'builtin)
(princ (format "The package is built-in since Emacs %s.\n\n" builtin)) (princ (format "The package is built-in since Emacs %s.\n" builtin))
(princ (format "The default installation method is %s%s.\n\n" type (princ (format "The default installation method is %s%s.\n" type
(if url (format " from %s" url) "")))) (if url (format " from %s" url) ""))))
(when (string= status "installed")
(princ "Installed in ")
(el-get-describe-princ-button (format "`%s'" directory) "`\\([^']+\\)"
'el-get-help-cd directory)
(princ ".\n"))
(princ "\n")
(princ "Full definition") (princ "Full definition")
(let ((file (el-get-recipe-filename package))) (let ((file (el-get-recipe-filename package)))
(if (not file) (if (not file)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment