diff options
Diffstat (limited to 'init.org')
| -rw-r--r-- | init.org | 62 |
1 files changed, 31 insertions, 31 deletions
@@ -205,12 +205,38 @@ :config (setq repeat-echo-function #'repeat-echo-mode-line)) (when (> emacs-major-version 27) (repeat-mode)) + (defun jao-kb-toggle (&optional lyt) + (interactive) + (shell-command-to-string (or lyt + (if (jao-kb-toggled-p) + "setxkbmap us" + "setxkbmap us -variant intl")))) + + (defun jao-kb-toggled-p () + (not (string-empty-p + (shell-command-to-string "setxkbmap -query|grep variant")))) + + (set-keyboard-coding-system 'latin-1) + (set-language-environment "UTF-8") + ;; must be set after current-language-environment + (customize-set-variable 'default-input-method "catalan-prefix") + + (defun jao--set-kb-system (frame) + (select-frame frame) + (set-keyboard-coding-system 'latin-1) + t) + (add-to-list 'after-make-frame-functions 'jao--set-kb-system) + + (setq echo-keystrokes 1 + suggest-key-bindings nil) + #+end_src +*** Transient + #+begin_src emacs-lisp (use-package transient :init (setq transient-show-popup 2.0) + :demand t :config - (transient-bind-q-to-quit) - - :bind (("s-SPC" . jao-transient-major-mode))) + (transient-bind-q-to-quit)) (defmacro jao-transient-major-mode (mode &rest suffix) (declare (indent defun)) @@ -232,35 +258,9 @@ (defmacro jao-transient-major-mode+ (mode &rest suffixes) (declare (indent defun)) - `(progn - ,@(mapcar (lambda (s) `(jao-transient-major-mode+1 ,mode ,s)) - suffixes))) - - - (defun jao-kb-toggle (&optional lyt) - (interactive) - (shell-command-to-string (or lyt - (if (jao-kb-toggled-p) - "setxkbmap us" - "setxkbmap us -variant intl")))) - - (defun jao-kb-toggled-p () - (not (string-empty-p - (shell-command-to-string "setxkbmap -query|grep variant")))) + `(progn ,@(mapcar (lambda (s) `(jao-transient-major-mode+1 ,mode ,s)) + suffixes))) - (set-keyboard-coding-system 'latin-1) - (set-language-environment "UTF-8") - ;; must be set after current-language-environment - (customize-set-variable 'default-input-method "catalan-prefix") - - (defun jao--set-kb-system (frame) - (select-frame frame) - (set-keyboard-coding-system 'latin-1) - t) - (add-to-list 'after-make-frame-functions 'jao--set-kb-system) - - (setq echo-keystrokes 1 - suggest-key-bindings nil) #+end_src * Crypto *** PGP, EPG, passwords |