mirror of https://codeberg.org/cage/tinmop/
- [GUI] added more keybindings;
- [GUI] parsed keybindings.
This commit is contained in:
parent
b516f9e161
commit
e944219350
|
@ -200,3 +200,7 @@ keybinding.gemlog = "Control-g"
|
||||||
keybinding.about = "Control-a"
|
keybinding.about = "Control-a"
|
||||||
|
|
||||||
keybinding.type-address = "Alt-d"
|
keybinding.type-address = "Alt-d"
|
||||||
|
|
||||||
|
keybinding.back = "BackSpace"
|
||||||
|
|
||||||
|
keybinding.up = "U"
|
||||||
|
|
|
@ -39,7 +39,8 @@
|
||||||
type-address
|
type-address
|
||||||
next
|
next
|
||||||
shuffle
|
shuffle
|
||||||
manage)
|
manage
|
||||||
|
up)
|
||||||
|
|
||||||
(defun load-config-file (&optional (virtual-filepath +client-conf-filename+)
|
(defun load-config-file (&optional (virtual-filepath +client-conf-filename+)
|
||||||
(perform-missing-value-check nil))
|
(perform-missing-value-check nil))
|
||||||
|
@ -263,7 +264,7 @@
|
||||||
+key-underline+)))))
|
+key-underline+)))))
|
||||||
|
|
||||||
(defun keybinding->tk-event (keys)
|
(defun keybinding->tk-event (keys)
|
||||||
(strcat "<" keys ">"))
|
(nodgui.event-parser:parse-event (strcat "<" keys ">")))
|
||||||
|
|
||||||
(defun get-keybinding (key)
|
(defun get-keybinding (key)
|
||||||
(keybinding->tk-event (access:accesses *client-configuration*
|
(keybinding->tk-event (access:accesses *client-configuration*
|
||||||
|
|
|
@ -1320,6 +1320,18 @@
|
||||||
(lambda (e)
|
(lambda (e)
|
||||||
(declare (ignore e))
|
(declare (ignore e))
|
||||||
(funcall (tour-visit-next-iri-clsr main-window)))
|
(funcall (tour-visit-next-iri-clsr main-window)))
|
||||||
|
:exclusive t)
|
||||||
|
(gui:bind (gui:root-toplevel)
|
||||||
|
(client-configuration:get-keybinding :back)
|
||||||
|
(lambda (e)
|
||||||
|
(declare (ignore e))
|
||||||
|
(funcall (back-iri-clsr main-window)))
|
||||||
|
:exclusive t)
|
||||||
|
(gui:bind (gui:root-toplevel)
|
||||||
|
(client-configuration:get-keybinding :up)
|
||||||
|
(lambda (e)
|
||||||
|
(declare (ignore e))
|
||||||
|
(funcall (up-iri-clsr main-window)))
|
||||||
:exclusive t))
|
:exclusive t))
|
||||||
|
|
||||||
(defun init-main-window ()
|
(defun init-main-window ()
|
||||||
|
|
Loading…
Reference in New Issue