eufon

commit 0a2959af30820e2b195d966e28d2773cb5b7ba47
parent 11facddf8a6a2b1e3b9b665b826c0ae7a86a92a7
Author: Daniel Barlow <dan@telent.net>
Date:   Tue, 18 Jan 2022 20:54:35 +0000

review comments

Diffstat:
M
saturn/main.fnl
 | 
8
++++----

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/saturn/main.fnl b/saturn/main.fnl
@@ -85,7 +85,6 @@
 
 (fn all-apps []
   (var apps-table {})
-  ;; for i in ${XDG_DATA_DIRS//:/ /} ; do ls $i/applications/*.desktop ;done
   (each [path (string.gmatch (os.getenv "XDG_DATA_DIRS") "[^:]*")]
     (let [apps  (..  path "/applications/")]
       (when (lfs.attributes apps)
@@ -97,8 +96,9 @@
   apps-table)
 
 ;; Exec entries in desktop files may contain %u %f and other characters
-;; in which the launcheris supposed to interpolate filenames/urls etc.
-;; We don't
+;; in which the launcher is supposed to interpolate filenames/urls etc.
+;; We don't afford the user any way to pick filenames, but we do need
+;; to remove the placeholders.
 (fn parse-percents [str]
   (str:gsub "%%(.)" (fn [c] (if (= c "%") "%" ""))))
 
@@ -111,7 +111,7 @@
           (posix.execp "/usr/bin/env" vec)))))
 
 (fn launch [app]
-;  (print (if app.DBusActivatable "dbus" "not dbus"))
+  ;; FIXME check app.DBusActivatable and do DBus launch if true
   (let [cmd (parse-percents app.Exec)]
     (if app.Terminal
         (spawn-async ["kitty" cmd])