new source: zaw-applications

README.rst

@@ -35,12 +35,11 @@ sources
 
 currently these sources are available:
 
+  - ack
+  - applications
   - bookmark
   - git-files
-  - git-showbranch
   - history
-  - memo
-  - named-cmd
   - open-file
   - perldoc
   - screens
@@ -60,10 +59,14 @@ you can get all available shortcut widgets' name using ``zaw-print-src``::
   $ zaw-print-src
   source name      shortcut widget name
   ----------------------------------------
+  ack              zaw-ack
+  applications     zaw-applications
   bookmark         zaw-bookmark
   git-files        zaw-git-files
   history          zaw-history
+  open-file        zaw-open-file
   perldoc          zaw-perldoc
+  screens          zaw-screens
 
 
 key binds and styles

sources/applications.zsh

@@ -0,0 +1,57 @@
+#
+# zaw-src-applications
+#
+# zaw source for desktop applications
+#
+
+function zaw-src-applications() {
+    emulate -L zsh
+    setopt local_options extended_glob null_glob
+
+    local d
+    local -a match mbegin mend
+    for d in /usr/share/applications/*.desktop; do
+        local name="" comment="" exec_="" terminal=0 no_display=0
+        while read line; do
+            case "${line}" in
+                Name=(#b)(*))
+                    name="${match[1]}"
+                    ;;
+                Comment=(#b)(*))
+                    comment="${match[1]}"
+                    ;;
+                Exec=(#b)(*))
+                    exec_="${match[1]}"
+                    ;;
+                Terminal=true)
+                    terminal=1
+                    ;;
+
+                NoDisplay=true)
+                    no_display=1
+                    ;;
+            esac
+        done < "${d}"
+
+        if (( no_display )); then
+            continue
+        fi
+
+        # TODO: % expansion in $exec_
+        # remove args that match %* from $exec_
+        exec_="${(@m)${(z)exec_}:#%*}"
+
+        if ! (( terminal )); then
+            # disown
+            exec_="${exec_} &!"
+        fi
+
+        candidates+=( "${exec_}" )
+        cand_descriptions+=( "${name} - ${comment}" )
+    done
+
+    actions=("zaw-callback-execute" "zaw-callback-append-to-buffer")
+    act_descriptions=("execute application" "append to edit buffer")
+}
+
+zaw-register-src -n applications zaw-src-applications