[elpa] externals/system-packages 749c053 009/117: Finishes list installed packages function

[Stefan Monnier]

branch: externals/system-packages
commit 749c053b756d8f7a10d2ca7da669c8819010ae7e
Author: Alex Branham <address@hidden>
Commit: Alex Branham <address@hidden>

    Finishes list installed packages function
---
 system-packages.el | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

diff --git a/system-packages.el b/system-packages.el
index 2e16ba3..797975c 100644
--- a/system-packages.el
+++ b/system-packages.el
@@ -120,14 +120,16 @@
         (async-shell-command (mapconcat 'identity (list "sudo" command) " "))
       (async-shell-command (mapconcat 'identity (list command) " ")))))
 
-;; (defun system-packages-list-installed-packages ()
-;;   "List explicitly installed packages. With the prefix argument,
-;; list all installed packages."
-;;   (interactive)
-;;   (let ((command
-;;          (if (equal system-packages-packagemanager "pacman") "pacman -"
-;;            (if (equal system-packages-packagemanager "apt") "apt-cache 
search"
-;;              (if (equal system-packages-packagemanager "brew") "brew 
search")))))
-;;     (async-shell-command (mapconcat 'identity (list command pack) " "))))
+(defun system-packages-list-installed-packages (arg)
+  "List explicitly installed packages. With \\[universal-argument],
+list all installed packages."
+  (interactive "P")
+  (if (equal system-packages-packagemanager "apt")
+      (error "Not supported on apt systems"))
+  (let ((command
+         (if (and arg (equal system-packages-packagemanager "pacman")) "pacman 
-Q"
+           (if (equal system-packages-packagemanager "pacman") "pacman -Qe"
+             (if (equal system-packages-packagemanager "brew") "brew list")))))
+         (async-shell-command command)))
                
 (provide 'system-packages)