Update/shorten various custom Emacs bindings
authorAmin Bandali <bandali@kelar.org>
Thu, 4 Aug 2022 03:06:32 +0000 (23:06 -0400)
committerAmin Bandali <bandali@kelar.org>
Thu, 4 Aug 2022 03:06:32 +0000 (23:06 -0400)
.emacs.d/init.el
.emacs.d/lisp/bandali-erc.el
.emacs.d/lisp/bandali-eshell.el
.emacs.d/lisp/bandali-gnus.el

index ae6afba..6e70ee6 100644 (file)
@@ -453,11 +453,11 @@ Effectively a very simple light/dark theme toggle switch."
 ;;; General key bindings
 
 (global-set-key (kbd "C-a") #'b/move-indentation-or-beginning-of-line)
 ;;; General key bindings
 
 (global-set-key (kbd "C-a") #'b/move-indentation-or-beginning-of-line)
-(global-set-key (kbd "C-c i") #'ielm)
+(global-set-key (kbd "C-c i") #'ielm)
 (global-set-key (kbd "C-c d") #'b/duplicate-line-or-region)
 (global-set-key (kbd "C-c j") #'b/join-line-top)
 (global-set-key (kbd "C-S-j") #'b/join-line-top)
 (global-set-key (kbd "C-c d") #'b/duplicate-line-or-region)
 (global-set-key (kbd "C-c j") #'b/join-line-top)
 (global-set-key (kbd "C-S-j") #'b/join-line-top)
-(global-set-key (kbd "C-c s") #'b/*scratch*)
+(global-set-key (kbd "C-c s c") #'b/*scratch*)
 (global-set-key (kbd "C-c x") #'execute-extended-command)
 (global-set-key (kbd "C-c v") #'b/invert-default-face)
 
 (global-set-key (kbd "C-c x") #'execute-extended-command)
 (global-set-key (kbd "C-c v") #'b/invert-default-face)
 
@@ -600,8 +600,8 @@ Effectively a very simple light/dark theme toggle switch."
         scpaste-scp-destination "p:~"))
 (autoload 'scpaste "scpaste" nil t)
 (autoload 'scpaste-region "scpaste" nil t)
         scpaste-scp-destination "p:~"))
 (autoload 'scpaste "scpaste" nil t)
 (autoload 'scpaste-region "scpaste" nil t)
-(global-set-key (kbd "C-c p p") #'scpaste)
-(global-set-key (kbd "C-c p r") #'scpaste-region)
+(global-set-key (kbd "C-c p p") #'scpaste)
+(global-set-key (kbd "C-c p r") #'scpaste-region)
 
 \f
 ;;; Editing
 
 \f
 ;;; Editing
@@ -844,7 +844,7 @@ Effectively a very simple light/dark theme toggle switch."
   (setq
    eww-download-directory
    (file-name-as-directory (getenv "XDG_DOWNLOAD_DIR"))))
   (setq
    eww-download-directory
    (file-name-as-directory (getenv "XDG_DOWNLOAD_DIR"))))
-(global-set-key (kbd "C-c e w") #'eww)
+(global-set-key (kbd "C-c e w") #'eww)
 
 ;; (with-eval-after-load 'org-ref
 ;;   (setq
 
 ;; (with-eval-after-load 'org-ref
 ;;   (setq
index 1180e93..a365ac7 100644 (file)
 
 ;; global key bindings
 (global-set-key
 
 ;; global key bindings
 (global-set-key
- (kbd "C-c e l")
+ (kbd "C-c e l")
  (lambda ()
    (interactive)
    (erc-tls :server "irc.libera.chat" :port 6697
             :client-certificate t)))
 (global-set-key
  (lambda ()
    (interactive)
    (erc-tls :server "irc.libera.chat" :port 6697
             :client-certificate t)))
 (global-set-key
- (kbd "C-c e o")
+ (kbd "C-c e o")
  (lambda ()
    (interactive)
    (erc-tls :server "irc.oftc.net" :port 6697
             :client-certificate t)))
 (global-set-key
  (lambda ()
    (interactive)
    (erc-tls :server "irc.oftc.net" :port 6697
             :client-certificate t)))
 (global-set-key
- (kbd "C-c e t")
+ (kbd "C-c e t")
  (lambda ()
    (interactive)
    (erc-tls :server "na.tilde.chat" :port 6697
  (lambda ()
    (interactive)
    (erc-tls :server "na.tilde.chat" :port 6697
index e1326ef..66e7808 100644 (file)
@@ -78,7 +78,7 @@
     (define-key eshell-hist-mode-map (kbd "M-r")
       #'b/eshell-history)))
 ;; global key bindings
     (define-key eshell-hist-mode-map (kbd "M-r")
       #'b/eshell-history)))
 ;; global key bindings
-(global-set-key (kbd "C-c s e") #'eshell)
+(global-set-key (kbd "C-c s e") #'eshell)
 ;; hooks
 (add-hook 'eshell-mode-hook #'b/eshell-setup)
 
 ;; hooks
 (add-hook 'eshell-mode-hook #'b/eshell-setup)
 
index febf30f..237e4f3 100644 (file)
   (add-hook 'gnus-group-mode-hook #'gnus-topic-mode)
   (add-hook 'gnus-group-mode-hook #'gnus-agent-mode))
 ;; global key bindings
   (add-hook 'gnus-group-mode-hook #'gnus-topic-mode)
   (add-hook 'gnus-group-mode-hook #'gnus-agent-mode))
 ;; global key bindings
-(global-set-key (kbd "C-c m") #'gnus-plugged)
-(global-set-key (kbd "C-c M") #'gnus-unplugged)
+(global-set-key (kbd "C-c g") #'gnus-plugged)
+(global-set-key (kbd "C-c G") #'gnus-unplugged)
 
 (with-eval-after-load 'gnus-art
   (setq
 
 (with-eval-after-load 'gnus-art
   (setq