add epm programs command

bin/epm

@@ -165,6 +165,9 @@ check_command()
     -qa|list|packages|-l) # HELPCMD: list of installed package(s)
         epm_cmd=packages
         ;;
+    programs)             # HELPCMD: list of installed program(s)
+        epm_cmd=programs
+        ;;
 
 # Repository control
     update)               # HELPCMD: update remote package repository databases

bin/epm-programs

+#!/bin/sh
+#
+# Copyright (C) 2013  Etersoft
+# Copyright (C) 2013  Vitaly Lipatov <lav@etersoft.ru>
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+#
+
+load_helper epm-query_file
+
+# Inspired by http://www.altlinux.org/Tips
+epm_programs()
+{
+	local DESKTOPDIR=/usr/share/applications
+	[ -d "$DESKTOPDIR" ] || fatal "There is no $DESKTOPDIR dir on the system."
+	#find /usr/share/applications -type f -name "*.desktop" | while read f; do pkg_files="$f" quiet=1 short=1 epm_query_file ; done | sort -u
+	find /usr/share/applications -type f -name "*.desktop" | \
+		xargs $0 -qf --quiet --short | sort -u
+}