;;; -*- lexical-binding: t -*- ;; ;; this file: ;; https://dataswamp.org/~incal/emacs-init/global-keys.el (require 'align-from-left) (require 'align-incal) (require 'buffer-menu) (require 'caps-back) (require 'edit) (require 'elpher) (require 'erc-connect) (require 'erc-incal) (require 'file) (require 'fill-incal) (require 'find-command-zsh) (require 'gnus-incal) (require 'help-incal) (require 'keys) (require 'kill) (require 'lisp-incal) (require 'revert-buffer) (require 'scroll) (require 'sort-incal) (require 'spell) (require 'super) (require 'w3m-incal) (require 'w3m-swamp) (require 'w3m-unisearch) (require 'window-incal) (require 'wrap-search) (require 'yank) (super-global-set-key "\M-L" #'elpher) (super-global-set-key "\M-\r" #'find-file-at-point) (super-global-set-key [S-caps] #'dired-jump) ;; scroll horizontally (super-global-set-key "\C-\M-j" #'scroll-left-1) (super-global-set-key "\C-\M-l" #'scroll-right-1) ;; vertically 1 (super-global-set-key "\M-i" #'scroll-up-1) (super-global-set-key "\M-k" #'scroll-down-1) ;; panes (super-global-set-key "\M-I" #'scroll-up-pane) (super-global-set-key "\M-K" #'scroll-down-pane) ;; two windows (super-global-set-key "\M-o" #'other-window-or-split) (super-global-set-key "\M-p" #'delete-other-windows) ;; find function (global-set-key "\C-oE" #'find-function) (global-set-key "\C-oz" #'find-command-zsh) ;; permissions (global-set-key "\C-oF" #'message-permissions) (global-set-key "\C-ox" #'make-executable) ;; buffers (global-set-key "\C-xk" #'kill-current-buffer) (global-set-key [caps] #'buffer-menu-files-only) (global-set-key [M-tab] #'switch-buffer) ;; help etc (global-set-key "\M-m" #'describe-variable-short) (global-set-key "\C-hV" #'apropos-value) (global-set-key "\C-ha" #'apropos) (global-set-key "\C-hA" #'apropos-command) (global-set-keys #'man-buc "\C-om" "\C-o\C-om") ;; repeat commands (super-global-set-key "\M-a" #'do-repeat-complex-command) (super-global-set-key "\M-A" #'repeat) ;; edit (global-set-key "\C-\M-y" #'yank-pop-back) (global-set-key "\C-a" #'back-to-dwim) (global-set-key "\C-cj" #'push-to-col) (global-set-key "\C-k" #'kill-line-remove-blanks) (global-set-key "\M-0" #'undo) (global-set-key "\M-q" #'fill-down) (global-set-key "\r" #'newline-and-indent) (global-set-key [M-caps] #'toggle-caps-mode) ;; edit region (global-set-key "\C-orC" #'capitalize-region) (global-set-key "\C-orc" #'center-region) (global-set-key "\C-ord" #'downcase-region) (global-set-key "\C-orf" #'describe-face) (global-set-key "\C-orl" #'count-words-region) (global-set-key "\C-ors" #'sort-whole-lines) (global-set-key "\C-oru" #'upcase-region) ;; align (global-set-key "\M- " #'eat-space) (global-set-key [incal-C-M-SPC] #'align-from-left) ;; search (global-set-key "\C-s" #'wrap-search) (global-set-key "\C-r" #'wrap-search-again) ;; misc (global-set-key "\M-2" #'erc-goto-irc) (global-set-key "\M-9" #'eval-last-sexp) ;; unbind / disable / drop (global-unset-key "\C-h\C-a") ; `about-emacs' (global-unset-key "\C-h\C-n") ; `view-emacs-news' (global-unset-key "\C-h\C-o") ; `describe-distribution' (global-unset-key "\C-hg") ; `describe-gnu-project' (global-unset-key "\C-hh") ; `view-hello-file' (global-unset-key "\C-hn") ; `view-emacs-news' (global-unset-key "\C-l") ; `open-line' (global-unset-key "\C-x\C-z") ; `suspend-frame' (global-unset-key "\C-xm") ; `compose-mail' (global-unset-key "\C-z") ; `suspend-frame' ;; ooa as not used (global-unset-key "\C-_") ; `undo', instead use M-0 (global-unset-key "\C-x0") ; `delete-window', M-p (global-unset-key "\C-x1") ; `delete-other-windows', M-p (global-unset-key "\C-x\C-u") ; `upcase-region', C-o r u (global-unset-key "\C-xo") ; `other-window', M-o ;; spell (global-set-key "\C-oe" #'spell-english) (global-set-key "\C-os" #'spell-swedish) ;; buffers (global-set-key "\C-o\C-of" #'font-lock-fontify-buffer) (global-set-key "\C-ol" #'revert-buffer-check) (global-set-key "\C-op" #'find-zsh-command-file-file) ;; top/bottom (global-set-key "\C-oi" #'beginning-of-buffer) (global-set-key "\C-ok" #'end-of-buffer) ;; Usenet/gmane/mail (global-set-key [C-i] #'new-message) (super-global-set-key "\C-l" #'gnus-switch-to-group-buffer) ;; w3m (global-set-key "\C-o\C-oi" #'wiki-search) (global-set-key "\C-o\C-oS" #'browse-swamp) (global-set-key "\C-o\C-os" #'web-search) (global-set-key "\C-o\C-ow" #'w3m) (global-set-key "\C-o\C-oW" #'wiki-search) (provide 'global-keys)