gitback/el-get
1
0
Fork 0
mirror of https://github.com/dimitri/el-get.git synced 2024-09-29 13:08:51 +08:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #413 from pd/github-website

Browse Source 
el-get-describe: guess a project's github URL if no website was defined i
This commit is contained in:
Dimitri Fontaine 2011-10-01 12:44:41 -07:00
commit bbb87940d0
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
el-get-list-packages.el
View File

@ -64,6 +64,12 @@ matching REGEX with TYPE and ARGS as parameter."
(re-search-backward regex nil t)
(apply #'help-xref-button 1 type args))))
(defun el-get-guess-github-website (url)
"If a package's URL is on Github, return the project's Github URL."
(when (and url (string-match "github\\.com/" url))
(replace-regexp-in-string "\\.git$" ""
(replace-regexp-in-string "\\(git\\|https\\)://" "http://" url))))
(defun el-get-describe-1 (package)
(let* ((psym (el-get-as-symbol package))
(pname (symbol-name psym))
@ -92,9 +98,11 @@ matching REGEX with TYPE and ARGS as parameter."
'el-get-help-install package)))
(princ ".\n\n")
(when website
(el-get-describe-princ-button (format "Website: %s\n" website)
": \\(.+\\)" 'help-url website))
(let ((website (or website
(and (eq 'git type) (el-get-guess-github-website url)))))
(when website
(el-get-describe-princ-button (format "Website: %s\n" website)
": \\(.+\\)" 'help-url website)))
(when descr
(princ (format "Description: %s\n" descr)))
(when depends