ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2025-10-13 05:03:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

Make `yas-about' more informative

Browse Source 
* yasnippet.el (yas--loaddir): New constant.
(yas-installed-snippets-dir): Use it to compute value.
(yas-about): Get version from git or `package' if available.
This commit is contained in:
Noam Postavsky 2017-04-07 22:09:04 -04:00
parent 5043a96121
commit ca04f69c10
1 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
yasnippet.el
View File

@ -152,10 +152,13 @@
:prefix "yas-"
:group 'editing)
(defconst yas--loaddir
(file-name-directory (or load-file-name buffer-file-name))
"Directory that yasnippet was loaded from.")
(defvar yas-installed-snippets-dir nil)
(setq yas-installed-snippets-dir
(when load-file-name
(expand-file-name "snippets" (file-name-directory load-file-name))))
(expand-file-name "snippets" yas--loaddir))
(defconst yas--default-user-snippets-dir
(expand-file-name "snippets" user-emacs-directory))
@ -1977,9 +1980,21 @@ This works by stubbing a few functions, then calling
(defun yas-about ()
(interactive)
(message (concat "yasnippet (version "
yas--version
") -- pluskid/joaotavora/npostavs")))
(message "yasnippet (version %s) -- pluskid/joaotavora/npostavs"
(or (ignore-errors (car (let ((default-directory yas--loaddir))
(process-lines "git" "describe"
"--tags" "--dirty"))))
(when (and (featurep 'package) (fboundp 'package-desc-version))
(ignore-errors
(let* ((yas-pkg (cdr (assq 'yasnippet package-alist)))
(version (package-version-join
(package-desc-version (car yas-pkg)))))
;; Special case for MELPA's bogus version numbers.
(if (string-match "\\`20..[01][0-9][0-3][0-9][.][0-9]\\{3,4\\}\\'"
version)
(concat yas--version "-snapshot" version)
version))))
yas--version)))
;;; Apropos snippet menu: