rewrite keymap system, introduce transient-like functionality

extensions/bookmark/bookmark.lisp

@@ -58,7 +58,7 @@ Use (DESCRIBE (FIND-PACKAGE \"LEM-BOOKMARK\")) to find all available commands.")
 If the file is a relative path, it is relative to LEM-HOME.")
 
 (defvar *keymap*
-  (make-keymap :name "Bookmark keymap")
+  (make-keymap :description "Bookmark keymap")
   "Keymap for bookmark related commands.")
 
 (defvar *bookmark-table* (make-hash-table :test #'equal))

extensions/copilot/copilot.lisp

@@ -238,15 +238,15 @@
 (defvar *inline-completion-request* nil)
 (defvar *completion-canceled* nil)
 
-(defvar *copilot-completion-keymap* (make-keymap :name "Copilot Completion"))
+(defvar *copilot-completion-keymap* (make-keymap :description "Copilot Completion"))
 
 (define-key *copilot-completion-keymap* "Tab" 'copilot-accept-suggestion)
 (define-key *copilot-completion-keymap* 'copilot-next-suggestion 'copilot-next-suggestion)
 (define-key *copilot-completion-keymap* 'copilot-previous-suggestion 'copilot-previous-suggestion)
 
 (defun find-copilot-completion-command (key)
   (lookup-keybind key
-                  :keymaps (append (lem-core::all-keymaps)
+                  :keymaps (append (lem-core::other-keymaps)
                                    (list *copilot-completion-keymap*))))
 
 (defun search-preffix (str1 str2)

extensions/lem-dashboard/lem-dashboard.lisp

@@ -17,7 +17,7 @@
 
 (defvar *dashboard-buffer-name* "*dashboard*")
 (defvar *dashboard-enable* t)
-(defvar *dashboard-mode-keymap* (make-keymap :name '*dashboard-mode-keymap* :parent *global-keymap*))
+(defvar *dashboard-mode-keymap* (make-keymap :description '*dashboard-mode-keymap*))
 (defvar *dashboard-layout* nil
   "List of dashboard-item instances; will be drawn in order.")
 

extensions/living-canvas/living-canvas.lisp

@@ -41,7 +41,7 @@
   "Current overlay used to highlight the selected function in source view.")
 
 (defvar *living-canvas-keymap*
-  (lem:make-keymap :name '*living-canvas-keymap*))
+  (lem:make-keymap :description '*living-canvas-keymap*))
 
 ;;; Attributes
 

extensions/skk-mode/skk-mode.lisp

@@ -49,7 +49,7 @@
 ;;; Keymap
 
 (defvar *skk-mode-keymap*
-  (make-keymap :name '*skk-mode-keymap*)
+  (make-keymap :description '*skk-mode-keymap*)
   "Keymap for SKK mode. Binds printable characters for Japanese input.")
 
 ;; Bind all lowercase letters to skk-self-insert

extensions/transient/demo.lisp

@@ -0,0 +1,77 @@
+(in-package :lem/transient)
+
+(defvar *demo-language*
+  "lisp"
+  "a demo variable that stays in sync with an infix.")
+
+(define-transient *demo-keymap*
+  :display-style :row
+  (:keymap
+   :display-style :column
+   :description "file operations"
+   (:key "o" :suffix 'demo-open :description "demo open")
+   (:key "s" :suffix 'demo-save :description "demo save (disabled)" :active-p nil)
+   (:key "w" :suffix 'demo-write :description "demo write")
+   (:key "x"
+    :suffix (:keymap
+             (:key "p" :suffix 'demo-pdf :description "pdf")
+             (:key "h" :suffix 'demo-html :description "html")
+             (:key "m" :suffix 'demo-md :description "markdown")
+             (:key "b" :behavior :back :description "back"))
+    :description "export format"))
+  (:keymap
+   :display-style :column
+   :description "edit operations"
+   (:key "c" :suffix 'demo-copy)
+   (:key "v" :suffix 'demo-paste)
+   (:key "u" :suffix 'demo-undo)
+   (:key "q" :behavior :cancel :description "quit"))
+  (:key "f"
+   :suffix (:keymap
+            (:key "g" :suffix 'demo-grep :description "grep")
+            (:key "f" :suffix 'demo-find :description "find")
+            (:key "r" :suffix 'demo-replace :description "replace"))
+   :description "search menu")
+  (:key "t"
+   :suffix (:keymap
+            :display-style :row
+            (:keymap
+             :description "languages"
+             (:key "l"
+              :type :choice
+              :id :mode
+              :choices-func (progn
+                              ;; something meaningless
+                              (+ 1 1)
+                              ;; then return value
+                              (list "lisp" "python" "js"))
+              :value "python"
+              :description "mode"))
+            (:keymap
+             :description "editor"
+             (:key "v"
+              :type :choice
+              :choices '("vim" "emacs")
+              :description "keys")))
+   :description "langs demo")
+  (:key "a"
+   :type :choice
+   :choices '("value1" "value2" "value3")
+   :description "multi-value infix")
+  (:key "s"
+   :type :choice
+   :id :synced-infix
+   :choices '("lisp" "python" "js")
+   :variable '*demo-language*
+   :description "variable-synced infix")
+  (:key "R" :suffix 'demo-run :description "run with mode")
+  (:key "T" :type 'toggle :value t :suffix 'demo-toggle :description "demo toggle")
+  (:key "e e" :type 'toggle :value t :suffix 'demo-toggle :description "another demo toggle")
+  (:key "e a" :type 'toggle :value t :suffix 'demo-toggle :description "and another demo toggle"))
+
+(define-command demo-run () ()
+  (let ((mode-prefix (find-prefix-by-id *demo-keymap* :mode)))
+    (message "mode thing value: ~A" (prefix-value mode-prefix))
+    (message "synced var value: ~A" *demo-language*)))
+
+(define-key *global-keymap* "C-c t" *demo-keymap*)