epm-programs: add --short support

bin/epm

@@ -308,7 +308,7 @@ check_command()
         epm_cmd=list_available
         direct_args=1
         ;;
-    programs)                 # HELPCMD: print list of installed GUI program(s) (they have .desktop files)
+    programs)                 # HELPCMD: print list of installed packages with GUI program(s) (they have .desktop files)
         epm_cmd=programs
         direct_args=1
         ;;

bin/epm-programs

@@ -32,6 +32,14 @@ epm_programs()
     esac
 
     [ -d "$DESKTOPDIR" ] || fatal "There is no $DESKTOPDIR dir on the system."
+
+    if [ -n "$short" ] ; then
+        cd $DESKTOPDIR || fatal
+        showcmd ls -1 *.desktop
+        ls -1 *.desktop
+        exit
+    fi
+
     #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
     showcmd "find $DESKTOPDIR -type f -print0 -name "*.desktop" | xargs -0 $0 -qf --quiet --short | sort -u"
     find $DESKTOPDIR -type f -print0 -name "*.desktop" | \