cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-09 07:18:39 +01:00
Code Issues

- added command to show bookmaks also to global keymap;

Browse Source 
- switched to gemini keymap when opening a gemini page from memory.
This commit is contained in:
cage 2021-08-28 19:53:41 +02:00
parent df3bff9421
commit 21214137ff
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
etc/init.lisp
View File

@ -163,6 +163,8 @@
(define-key "M-g g l" #'open-gempub-library) (define-key "M-g g l" #'open-gempub-library)
(define-key "M-g g b s" #'display-bookmark)
(define-key "M-right" #'pass-focus-on-right) (define-key "M-right" #'pass-focus-on-right)
(define-key "M-left" #'pass-focus-on-left) (define-key "M-left" #'pass-focus-on-left)

2
src/program-events.lisp
View File

@ -1040,6 +1040,8 @@
:comes-from-local-file local-path-p)) :comes-from-local-file local-path-p))
(ir-text (gemini-parser:sexp->text-rows parsed (ir-text (gemini-parser:sexp->text-rows parsed
gemini-client:*gemini-page-theme*))) gemini-client:*gemini-page-theme*)))
(setf (windows:keybindings window)
keybindings:*gemini-message-keymap*)
(gemini-viewer:maybe-initialize-metadata window) (gemini-viewer:maybe-initialize-metadata window)
(refresh-gemini-message-window links page-data ir-text nil) (refresh-gemini-message-window links page-data ir-text nil)
(ui:open-gemini-toc) (ui:open-gemini-toc)