larstvei/Try
1
0
Fork 0
mirror of https://github.com/larstvei/Try.git synced 2024-11-26 11:38:30 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Merge pull request #1 from torenord/master

Browse Source 
Let's use try function non-interactively.
This commit is contained in:
Lars Tveito 2015-06-08 11:11:16 +02:00
commit 464cfb7359
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
try.el
View File

@ -105,7 +105,7 @@
(lambda (&rest x) (funcall f (apply g x)))) (lambda (&rest x) (funcall f (apply g x))))
;;;###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."
@ -116,10 +116,14 @@ to a raw .el file. Packages are stored in `try-tmp-dir' and raw
(< 1 (length package-archives)) (< 1 (length package-archives))
(package-refresh-contents)) (package-refresh-contents))
;; Completions for packages. ;; Completions for packages.
(let* ((url-or-package (completing-read (let* ((url-or-package
(cond ((null url-or-package)
(completing-read
"url or package: " "url or package: "
(mapcar (try-compose 'symbol-name 'car) (mapcar (try-compose 'symbol-name 'car)
package-archive-contents))) package-archive-contents)))
((symbolp url-or-package) (symbol-name url-or-package))
(t url-or-package)))
(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)