From: Steve Youngs <steve@steveyoungs.com>
Date: Mon, 17 Mar 2014 13:09:02 +0000 (+1000)
Subject: Support pkg sub-groups in pkgusr-cmd-pkg/pkgusr-file-pkg
X-Git-Url: http://cgit.sxemacs.org/?p=pkgusr;a=commitdiff_plain;h=255d22136a046d5233084b1473bc9cf344170ae9;ds=sidebyside

Support pkg sub-groups in pkgusr-cmd-pkg/pkgusr-file-pkg

	* lisp/pkgusr.el (pkgusr-cmd-pkg): Use the new #'user-group-name
	from latest SXEmacs.  This fixes the issue of a pkgusr sub-group
	being displayed as "nil".
	(pkgusr-file-pkg): Ditto.

	* usr/lib/pkgusr/update-pkg-project: Always exit zero.

Signed-off-by: Steve Youngs <steve@steveyoungs.com>
---

diff --git a/lisp/pkgusr.el b/lisp/pkgusr.el
index 43ff0de..d6a9ac1 100644
--- a/lisp/pkgusr.el
+++ b/lisp/pkgusr.el
@@ -5,7 +5,7 @@
 ;; Author:     Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;; Created:    <2007-07-13>
-;; Time-stamp: <Sunday Mar 16, 2014 01:10:12 steve>
+;; Time-stamp: <Monday Mar 17, 2014 22:33:38 steve>
 ;; Homepage:   N/A
 ;; Keywords:   utils package-management
 
@@ -216,7 +216,6 @@ With a prefix arg, force update of the packages list."
     (narrow-to-region start end)
     (goto-char (point-min))))
 
-;;; FIXME: doesn't work for sub-groups.
 (defun pkgusr-cmd-pkg (cmd)
   "Display the package name \(user:group\) which contains CMD.
 
@@ -228,8 +227,10 @@ If non-interactive, return a list whose car is user and cdr is group."
 		  (error 'pkgusr-unknown-cmd cmd)))
 	 (user (user-login-name
 		(nth 2 (file-attributes cmd))))
-	 (group (user-login-name
-		 (nth 3 (file-attributes cmd)))))
+	 (group (or (declare-fboundp (user-group-name
+				      (nth 3 (file-attributes cmd))))
+		    (user-login-name
+		     (nth 3 (file-attributes cmd))))))
     (unless (or (member user pkgusr-all-pkgs)
 		(member group pkgusr-all-pkgs))
       (error 'pkgusr-unknown-pkg user))
@@ -249,8 +250,10 @@ If non-interactive, return a list whose car is user and cdr is group."
   (interactive "fFile: ")
   (let ((user (user-login-name
 	       (nth 2 (file-attributes file))))
-	(group (user-login-name
-		(nth 3 (file-attributes file)))))
+	(group (or (declare-fboundp (user-group-name
+				     (nth 3 (file-attributes file))))
+		   (user-login-name
+		    (nth 3 (file-attributes file))))))
     (unless (or (member user pkgusr-all-pkgs)
 		(member group pkgusr-all-pkgs))
       (error 'pkgusr-unknown-pkg user))
diff --git a/usr/lib/pkgusr/update-pkg-project b/usr/lib/pkgusr/update-pkg-project
index 2dfcd11..e0d9f40 100755
--- a/usr/lib/pkgusr/update-pkg-project
+++ b/usr/lib/pkgusr/update-pkg-project
@@ -40,3 +40,4 @@ mv ${pkgdir}/.projtmp ${pkgdir}/.project
 
 # If we're root, chown the .project file
 [[ $(id -u) -eq 0 ]] && chown -v ${pkg}:${pkg} ${pkgdir}/.project
+exit 0