From 0a2959af30820e2b195d966e28d2773cb5b7ba47 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Tue, 18 Jan 2022 20:54:35 +0000
Subject: [PATCH] review comments
---
saturn/main.fnl | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/saturn/main.fnl b/saturn/main.fnl
index ecbf0e1..a79c7ee 100644
--- 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])