X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/a5cc22f4475d08067bac19d3d36d27b99d2aa7ed..946188e1d6c6ba713f3d34a25c21b395234b043f:/.emacs.d/init.el diff --git a/.emacs.d/init.el b/.emacs.d/init.el index e36e204..2228c31 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -857,7 +857,7 @@ around if needed." ;; 'magit-insert-untracked-files ;; 'append) (setq magit-repository-directories '(("~/" . 0) - ("~/src/git/" . 1))) + ("~/src/git/" . 2))) (nconc magit-section-initial-visibility-alist '(([unpulled status] . show) ([unpushed status] . show))) @@ -1036,8 +1036,12 @@ This function is intended for use with `ivy-ignore-buffers'." ("C-S-l" . b/eshell-clear) ("M-r" . counsel-esh-history) ;; ([tab] . company-complete) - :map eshell-hist-mode-map - ("M-r" . counsel-esh-history))) + ) + (if (version< "27" emacs-version) + (bind-keys :map eshell-hist-mode-map + ("M-r" . counsel-esh-history)) + (bind-keys :map eshell-mode-map + ("M-r" . counsel-esh-history)))) :hook (eshell-mode . b/eshell-setup) :custom @@ -2420,7 +2424,7 @@ Cheriton School of Computer Science University of Waterloo https://bandali.eu.org") (defvar b/csc-signature "Amin Bandali -Systems Committee +System Administrator, Systems Committee Computer Science Club, University of Waterloo https://csclub.uwaterloo.ca/~abandali") (setq gnus-message-replysign t @@ -2492,7 +2496,8 @@ https://csclub.uwaterloo.ca/~abandali") (use-package mm-uu :config - (set-face-attribute 'mm-uu-extract nil :extend t) + (when (version< "27" emacs-version) + (set-face-attribute 'mm-uu-extract nil :extend t)) :custom (mm-uu-diff-groups-regexp "\\(gmane\\|gnu\\|l\\)\\..*\\(diff\\|commit\\|cvs\\|bug\\|dev\\)")) @@ -2726,22 +2731,21 @@ https://csclub.uwaterloo.ca/~abandali") (use-package erc-scrolltoplace :after erc) -;; (use-package znc -;; :straight (:host nil :repo "https://git.shemshak.org/amin/znc.el") -;; :bind (("C-c a e e" . znc-erc) -;; ("C-c a e a" . znc-all)) -;; :config -;; (let ((pwd (let ((auth (auth-source-search :host "znca"))) -;; (cond -;; ((null auth) (error "Couldn't find znca's authinfo")) -;; (t (funcall (plist-get (car auth) :secret))))))) -;; (setq znc-servers -;; `(("znc.shemshak.org" 1337 t -;; ((freenode "amin/freenode" ,pwd))) -;; ("znc.shemshak.org" 1337 t -;; ((moznet "amin/moznet" ,pwd))) -;; ("znc.shemshak.org" 1337 t -;; ((oftc "amin/oftc" ,pwd))))))) +(use-package znc + :bind (("C-c a e e" . znc-erc) + ("C-c a e a" . znc-all)) + :config + (let ((pwd (let ((auth (auth-source-search :host "znca"))) + (cond + ((null auth) (error "Couldn't find znca's authinfo")) + (t (funcall (plist-get (car auth) :secret))))))) + (setq znc-servers + `(("znc.shemshak.org" 1337 t + ((freenode "amin/freenode" ,pwd))) + ("znc.shemshak.org" 1337 t + ((moznet "amin/moznet" ,pwd))) + ("znc.shemshak.org" 1337 t + ((oftc "amin/oftc" ,pwd))))))) ;;; Post initialization