feat: add frontmost_application_history_index support

software_function.open_application

- :oi frontmost_application_history_index
- :oid bundle_identifier

BREAKING CHANGE: software_function.open_application :oi changed from bundle_identifier to frontmost_application_history_index

Author: yqrashawn

CHANGELOG.org

@@ -3,7 +3,15 @@ All notable changes to this project will be documented in this file. This change
 
 ** Unreleased
 
-[Unreleased Commits]: https://github.com/yqrashawn/GokuRakuJoudo/compare/v0.7.2..HEAD
+[Unreleased Commits]: https://github.com/yqrashawn/GokuRakuJoudo/compare/v0.8.0..HEAD
+
+** 0.8.0 - 2025-02-22
+*** Added
+  *BREAKING*
+  ~:oi~ changed from ~bundle_identifier~ to ~frontmost_application_history_index~
+  ~:oid~ is now ~bundle_identifier~
+
+- software_function.open_application.frontmost_application_history_index
 
 ** 0.7.2 - 2024-10-17
 *** Added
@@ -15,7 +23,7 @@ All notable changes to this project will be documented in this file. This change
 
 ** 0.7.0 - 2024-10-16
 *** Added
-- BREAKING `software_function` support, [karabiner doc](https://karabiner-elements.pqrs.org/docs/json/complex-modifications-manipulator-definition/to/software_function/)
+- *BREAKING* `software_function` support, [karabiner doc](https://karabiner-elements.pqrs.org/docs/json/complex-modifications-manipulator-definition/to/software_function/)
   - example can be found at https://github.com/yqrashawn/GokuRakuJoudo/commit/8dfe510eeaec58c3314afceab0e4b8ac20cfa4ba#diff-bdf007c27f040fdb32781729c690e316b78cb697fac1e9b4f14f19aeb0cff70fR92-R691
 - homebrew goku now supports arm devices
 

src/karabiner_configurator/data.clj

@@ -83,7 +83,14 @@
   (and (vector? vec)
        (let [[k i] vec]
          (and (= k :oi)
+              (int? i)))))
+
+(defn oid? [vec]
+  (and (vector? vec)
+       (let [[k i] vec]
+         (and (= k :oid)
               (string? i)))))
+
 (defn raw-rule? [rule]
   (and (map? rule)
        (or (= :basic (:type rule))

src/karabiner_configurator/rules.clj

@@ -64,6 +64,12 @@
   (let [[_ path] to]
     (first (tos/parse-to des [{:softf {:open {:file_path path}}}]))))
 (defn parse-oi-with-tos [des to]
+  (let [[_ idx] to]
+    (first
+     (tos/parse-to
+      des
+      [{:softf {:open {:frontmost_application_history_index idx}}}]))))
+(defn parse-oid-with-tos [des to]
   (let [[_ id] to]
     (first (tos/parse-to des [{:softf {:open {:bundle_identifier id}}}]))))
 
@@ -75,6 +81,8 @@
         [(parse-noti-with-tos des to)]
         (d/op? to)
         [(parse-op-with-tos des to)]
+        (d/oid? to)
+        [(parse-oid-with-tos des to)]
         (d/oi? to)
         [(parse-oi-with-tos des to)]
         (d/softf? to)

src/karabiner_configurator/tos.clj

@@ -65,68 +65,84 @@
   [tname tinfos]
   (mapv
    (fn [{:keys [set input shell lazy repeat halt hold_down_ms select_input_source noti softf] :as tinfo}]
-     (let [result          (parse-key tname tinfo true true)
-           _validate-shell (massert (or (and (vector? shell) (contains? (:templates @conf-data) (first shell))) (string? shell) (nil? shell))
-                                    (str "invalid `shell` in to definition " tname " " shell ", should be string or keyword"))
-           _validate-input (massert (or (nil? input) (and (keyword? input) (contains? (:input-sources @conf-data) input)))
-                                    (str "invalid `input` in to definition " tname " " input ", should be a keyword"))
-           _validate-set   (massert (or (vector? set) (nil? set))
-                                    (str "invalid `set` in to definition " tname " " set ", should be a vector"))
-           _validate-noti  (massert (or (nil? noti) (and (map? noti)
-                                                         (or (keyword? (get noti :id))
-                                                             (string? (get noti :id)))
-                                                         (or (nil? (get noti :text))
-                                                             (keyword? (get noti :text))
-                                                             (string? (get noti :text)))))
-                                    (str "invalid `noti`, must be a map with at least :id, :id must be string or keyword"))
-           _validate-softf (massert (or (nil? softf) (map? softf))
-                                    (str "invalid `softf`, must be a map with valid keys"))
-           result          (if (keyword? input)
-                             (assoc result :select_input_source (input (:input-sources @conf-data)))
-                             result)
-           result          (if (string? shell)
-                             (assoc result :shell_command shell)
-                             result)
-           result          (if (vector? shell)
-                             (assoc result
-                                    :shell_command (apply
-                                                    format
-                                                    (flatten
-                                                     [((first shell)
-                                                       (:templates @conf-data))
-                                                      (rest shell)
-                                                     ;; optional arguments
-                                                      "" "" "" "" "" ""])))
-                             result)
-           result          (if (vector? set)
-                             (assoc result :set_variable {:name (first set) :value (second set)})
-                             result)
-           result          (if (false? repeat)
-                             (assoc result :repeat false)
-                             result)
-           result          (if (true? halt)
-                             (assoc result :halt true)
-                             result)
-           result          (if (and (number? hold_down_ms) (not (= 0 hold_down_ms)))
-                             (assoc result :hold_down_milliseconds hold_down_ms)
-                             result)
-           result          (if (boolean? lazy)
-                             (assoc result :lazy lazy)
-                             result)
-           result          (if noti
-                             (let [{:keys [id text]} noti]
-                               (assoc result :set_notification_message {:id id :text (or text "")}))
-                             result)
-           softf           (when softf
-                             (cset/rename-keys softf {:dbc     :cg_event_double_click
-                                                      :sleep   :iokit_power_management_sleep_system
-                                                      :open    :open_application
-                                                      :setmpos :set_mouse_cursor_position}))
-           result          (cond-> result
-                             (map? softf)
-                             (assoc :software_function softf))
-           result          (if select_input_source tinfo result)]
-       result))
+     ;; validate-shell
+     (massert (or (and (vector? shell)
+                       (contains? (:templates @conf-data) (first shell)))
+                  (string? shell) (nil? shell))
+              (format
+               "invalid `shell` in to definition %s %s, should be string or keyword"
+               tname shell))
+     ;; validate-input
+     (massert (or (nil? input)
+                  (and
+                   (keyword? input)
+                   (contains? (:input-sources @conf-data) input)))
+              (format
+               "invalid `input` in to definition %s %s, should be a keyword"
+               tname input))
+     ;; validate-set
+     (massert (or (vector? set) (nil? set))
+              (format "invalid `set` in to definition %s %s, should be a vector"
+                      tname set))
+     ;; validate-noti
+     (massert (or (nil? noti)
+                  (and (map? noti)
+                       (or (keyword? (get noti :id))
+                           (string? (get noti :id)))
+                       (or (nil? (get noti :text))
+                           (keyword? (get noti :text))
+                           (string? (get noti :text)))))
+              (str "invalid `noti`, must be a map with at least :id, :id must be string or keyword"))
+     ;; validate-softf
+     (massert (or (nil? softf) (map? softf))
+              (str "invalid `softf`, must be a map with valid keys"))
+     (let [softf
+           (when softf
+             (cset/rename-keys softf {:dbc     :cg_event_double_click
+                                      :sleep   :iokit_power_management_sleep_system
+                                      :open    :open_application
+                                      :setmpos :set_mouse_cursor_position}))
+           result
+           (cond-> (parse-key tname tinfo true true)
+             (keyword? input)
+             (assoc :select_input_source (input (:input-sources @conf-data)))
+
+             (string? shell)
+             (assoc :shell_command shell)
+
+             (vector? shell)
+             (assoc :shell_command
+                    (apply
+                     format
+                     (flatten
+                      [((first shell)
+                        (:templates @conf-data))
+                       (rest shell)
+                       ;; optional arguments
+                       "" "" "" "" "" ""])))
+
+             (vector? set)
+             (assoc :set_variable {:name (first set) :value (second set)})
+
+             (false? repeat)
+             (assoc :repeat false)
+
+             (true? halt)
+             (assoc :halt true)
+
+             (and (number? hold_down_ms) (not (= 0 hold_down_ms)))
+             (assoc :hold_down_milliseconds hold_down_ms)
+
+             (boolean? lazy)
+             (assoc :lazy lazy)
+
+             noti
+             (assoc :set_notification_message {:id   (:id noti)
+                                               :text (or (:text noti) "")})
+
+             (map? softf)
+             (assoc :software_function softf))]
+       (if select_input_source tinfo result)))
    tinfos))
 
 (defn generate [tos]