diff options
author | jao <jao@gnu.org> | 2022-06-08 22:54:49 +0100 |
---|---|---|
committer | jao <jao@gnu.org> | 2022-06-08 22:54:49 +0100 |
commit | 4fc81beb4aee43207dec0d665935d5579ad06818 (patch) | |
tree | da305d55bbef1d1ed1966931834589fda69fafaf /init.el | |
parent | 480dea9ddfcd9cc621ad1385f4359f4a27ea4926 (diff) | |
download | elibs-4fc81beb4aee43207dec0d665935d5579ad06818.tar.gz elibs-4fc81beb4aee43207dec0d665935d5579ad06818.tar.bz2 |
ace-window is evil: it badly messes the keyboard
Diffstat (limited to 'init.el')
-rw-r--r-- | init.el | 53 |
1 files changed, 13 insertions, 40 deletions
@@ -124,6 +124,10 @@ ;;;; server (setenv "EDITOR" "emacsclient") + +;;;; timers +(put 'list-timers 'disabled nil) + ;; (unless (daemonp) (server-start)) ;;; System Utilities @@ -182,18 +186,18 @@ (not (string-empty-p (shell-command-to-string "setxkbmap -query|grep variant")))) -(set-keyboard-coding-system 'latin-1) -(set-language-environment "UTF-8") +;; (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") ;; http://mbork.pl/2022-03-07_Transient_input_method (customize-set-variable 'default-transient-input-method "TeX") -(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) +;; (defun jao--set-kb-system (frame) +;; (select-frame frame) +;; (set-keyboard-coding-system 'utf-8) +;; t) +;; (add-to-list 'after-make-frame-functions 'jao--set-kb-system) (setq echo-keystrokes 1 suggest-key-bindings nil) @@ -214,7 +218,8 @@ (transient-define-prefix ,name () ,(format "Transient ops for %s" mode) [,(format "Operations for %s" mode) :if-derived ',mode ,@suffix]) - (define-key ,mmap (kbd "s-SPC") #',name)))) + (define-key ,mmap (kbd "s-SPC") #',name) + (define-key ,mmap (kbd "C-c SPC") #',name)))) (defmacro jao-transient-major-mode+1 (mode suffix) (declare (indent defun)) @@ -779,9 +784,6 @@ (jao-exec-in-term "curl wttr.in" "*wttr*")))) (global-set-key (kbd "<f5>") #'jao-weather) -;;;; timers -(put 'list-timers 'disabled nil) - ;;; Files, dired and scratch buffer ;;;; so-long (setq large-file-warning-threshold (* 200 1024 1024)) @@ -1021,35 +1023,6 @@ (global-set-key (kbd "s-a") #'jao-first-window) (global-set-key (kbd "M-a") #'jao-first-window) -;;;; ace window -(use-package ace-window - :ensure t - :demand t - :init (setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l) - aw-char-position 'top-left - aw-ignore-current nil - aw-dispatch-when-more-than 2 - aw-leading-char-style 'path - aw-display-mode-overlay t - aw-scope 'frame) - :config - - (defun jao-ace-consult-buffer-other-window (w) - (interactive) - (aw-switch-to-window w) - (consult-buffer)) - - (setf (alist-get ?b aw-dispatch-alist) - '(jao-ace-consult-buffer-other-window "Consult buffer")) - - (setf (alist-get ?B aw-dispatch-alist) - (alist-get ?u aw-dispatch-alist)) - - - :bind (("M-o" . ace-window) - ("M-O" . ace-swap-window) - ("C-x 4 t" . ace-swap-window))) - ;;;; window navigation (custom) (defun jao-nth-window (n) (if (zerop n) |