Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Common settings keybindings review #3326

Merged
merged 3 commits into from
Jan 30, 2024
Merged

Common settings keybindings review #3326

Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
2b8ded6
help(common-settings): Simplify keybindings auto-config.
aadcg Jan 29, 2024
e3a3a74
help(common-settings): Refactor current default keyscheme logic.
aadcg Jan 29, 2024
3a93d0c
help(common-settings): Minor wording refactor.
aadcg Jan 29, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
29 changes: 15 additions & 14 deletions source/help.lisp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -139,40 +139,41 @@ to the next."
(case section
(keybindings
(:div.section
(:h3 "Keybinding mode")
(:h3 "Keybindings")
(:div.row
(:div.left
(:nradio
:name "keyscheme"
:vertical t
:checked (cond
((find 'nyxt/mode/emacs:emacs-mode (default-modes (current-buffer))) 'emacs)
((find 'nyxt/mode/vi:vi-normal-mode (default-modes (current-buffer))) 'vi)
((find 'nyxt/mode/vi:vi-insert-mode (default-modes (current-buffer))) 'vi)
(t 'cua))
:checked (cond ((find "nyxt/mode/vi" (default-modes (current-buffer))
:key #'uiop:symbol-package-name :test #'string-equal)
'vi)
((find "nyxt/mode/emacs" (default-modes (current-buffer))
:key #'uiop:symbol-package-name :test #'string-equal)
'emacs)
(t 'cua))
:buffer buffer
'(cua "CUA (default)"
(nyxt::auto-configure
:form '(define-configuration (web-buffer prompt-buffer
panel-buffer nyxt/mode/editor:editor-buffer)
:form '(define-configuration (input-buffer)
((default-modes (remove-if (lambda (m)
(find (symbol-name m)
'("EMACS-MODE" "VI-NORMAL-MODE" "VI-INSERT-MODE")
:test #'string=))
%slot-value%))))))
'(emacs "Emacs"
(nyxt::auto-configure
:form '(define-configuration (web-buffer prompt-buffer
panel-buffer nyxt/mode/editor:editor-buffer)
:form '(define-configuration (input-buffer)
((default-modes (pushnew 'nyxt/mode/emacs:emacs-mode %slot-value%))))))
'(vi "vi"
(nyxt::auto-configure
:form '(define-configuration (web-buffer prompt-buffer
panel-buffer nyxt/mode/editor:editor-buffer)
:form '(define-configuration (input-buffer)
((default-modes (pushnew 'nyxt/mode/vi:vi-normal-mode %slot-value%))))))))
(:div.right
(:p "For individual buffers - keyschemes can be toggled with the (toggle-modes) command.")
(:p "For a persistent keyscheme each time you start Nyxt - make a selection here.")))))
(:p "Make a selection to set the default keybindings for every new
Nyxt session (after restart).")
(:p "Keybindings can also be enabled on a per-buffer basis by
invoking the " (:nxref :command 'toggle-modes) "command.")))))
(theme-and-style
(:div.section
(:h3 "Browser interface")
Expand Down