cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-02 04:36:43 +01:00
Code Issues

- [GUI] added more keybindings;

Browse Source 
- [GUI] parsed keybindings.
This commit is contained in:
cage 2023-05-14 17:12:33 +02:00
parent b516f9e161
commit e944219350
3 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
etc/gui.conf
View File

@ -200,3 +200,7 @@ keybinding.gemlog = "Control-g"
keybinding.about = "Control-a"
keybinding.type-address = "Alt-d"
keybinding.back = "BackSpace"
keybinding.up = "U"

5
src/gui/client/client-configuration.lisp
View File

@ -39,7 +39,8 @@
type-address
next
shuffle
manage)
manage
up)
(defun load-config-file (&optional (virtual-filepath +client-conf-filename+)
(perform-missing-value-check nil))
@ -263,7 +264,7 @@
+key-underline+)))))
(defun keybinding->tk-event (keys)
(strcat "<" keys ">"))
(nodgui.event-parser:parse-event (strcat "<" keys ">")))
(defun get-keybinding (key)
(keybinding->tk-event (access:accesses *client-configuration*

12
src/gui/client/main-window.lisp
View File

@ -1320,6 +1320,18 @@
(lambda (e)
(declare (ignore e))
(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))
(defun init-main-window ()