larstvei/Try
1
0
Fork 0
mirror of https://github.com/larstvei/Try.git synced 2025-11-04 00:40:11 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of github.com:larstvei/Try

Browse Source
This commit is contained in:
Lars Tveito 2016-02-03 00:57:16 +01:00
commit ba3b4c3e58
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
try.el
View File

@ -112,13 +112,16 @@
(package-refresh-contents) (try)) (package-refresh-contents) (try))
;;;###autoload ;;;###autoload
(defun try () (defun try (&optional url-or-package)
"Try out a package from your `package-archives' or pass a URL "Try out a package from your `package-archives' or pass a URL
to a raw .el file. Packages are stored in `try-tmp-dir' and raw to a raw .el file. Packages are stored in `try-tmp-dir' and raw
.el files are not stored at all." .el files are not stored at all."
(interactive) (interactive)
;; Completions for packages. ;; Completions for packages.
(let* ((url-or-package (try-complete package-archive-contents)) (let* ((url-or-package (or (if (symbolp url-or-package)
(symbol-name url-or-package)
url-or-package)
(try-complete package-archive-contents)))
(package-symbol (intern url-or-package))) (package-symbol (intern url-or-package)))
(cond ((try-raw-link-p url-or-package) (try-raw-link url-or-package)) (cond ((try-raw-link-p url-or-package) (try-raw-link url-or-package))
((try-package-exists-p package-symbol) ((try-package-exists-p package-symbol)