Plaster
New
List
Login
common-lisp
default
anonymous
2021.06.06 15:20:31
(define-command-global prompting-quit () "Asks the user to quit before actually quitting!" (if-confirm ("Do you really want to close Nyxt?") (quit) nil)) (define-configuration buffer ((override-map (let ((map (make-keymap "override-map"))) (define-key map "C-x C-c" 'prompting-quit)))))
Raw
Annotate
Repaste
Edit