cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2024-12-22 23:47:56 +01:00
Code Issues

- [GUI] changed default keybindings.

Browse Source
This commit is contained in:
cage 2023-06-13 18:34:15 +02:00
parent 0c091b299f
commit 5c8bc72712
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
etc/gui.conf
View File

@ -189,21 +189,21 @@ toc.autoresize = yes
keybinding.quit = "Control-q" keybinding.quit = "Control-q"
keybinding.search = "Control-f" keybinding.search = "Alt-f"
keybinding.stream = "Control-s" keybinding.stream = "Alt-s"
keybinding.certificates = "Control-c" keybinding.certificates = "Alt-c"
keybinding.tour.manage = "Control-t" keybinding.tour.manage = "Alt-t"
keybinding.tour.next = "Alt-t" keybinding.tour.next = "Control-t"
keybinding.tour.shuffle = "Alt-S" keybinding.tour.shuffle = "Alt-S"
keybinding.gemlog = "Control-g" keybinding.gemlog = "Alt-g"
keybinding.about = "Control-a" keybinding.about = "Alt-a"
keybinding.type-address = "Alt-d" keybinding.type-address = "Alt-d"
@ -213,7 +213,7 @@ keybinding.up = "U"
keybinding.bookmark.toggle = "Control-d" keybinding.bookmark.toggle = "Control-d"
keybinding.bookmark.show = "Control-b" keybinding.bookmark.show = "Alt-b"
keybinding.gemtext.scaling.increase = "Control-plus" keybinding.gemtext.scaling.increase = "Control-plus"

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

@ -1540,8 +1540,8 @@
(setf gui-goodies:*main-frame* main-frame) (setf gui-goodies:*main-frame* main-frame)
(initialize-menu gui:*tk* main-frame) (initialize-menu gui:*tk* main-frame)
(gui:grid main-frame 0 0 :sticky :nswe) (gui:grid main-frame 0 0 :sticky :nswe)
(initialize-keybindings main-frame (gui:root-toplevel))
(initialize-keybindings main-frame (gui:inner-text (gemtext-widget main-frame))) (initialize-keybindings main-frame (gui:inner-text (gemtext-widget main-frame)))
(initialize-keybindings main-frame (gui:root-toplevel))
(gui-goodies:gui-resize-grid-all gui-goodies:*toplevel*) (gui-goodies:gui-resize-grid-all gui-goodies:*toplevel*)
(gui:wait-complete-redraw) (gui:wait-complete-redraw)
(when (string-not-empty-p starting-iri) (when (string-not-empty-p starting-iri)