X-Git-Url: https://git.shemshak.org/gitweb.cgi/~bandali/configs/blobdiff_plain/69ad7e369bcbb17c8301a5e26ff6e3300649b98f..6cf7efb05e6c807bd1d8c4c4f2f6db40cf183835:/.emacs.d/init.el?ds=inline

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 9c2f1ff..32989b0 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -447,10 +447,12 @@ This sets each user option VAR's value to the corresponding VALUE.
 
 ;; info
 (with-eval-after-load 'info
-  (add-to-list
-   'Info-directory-list
-   (expand-file-name
-    (convert-standard-filename "info/") source-directory)))
+  (csetq
+   Info-directory-list
+   `(,@Info-directory-list
+     ,(expand-file-name
+       (convert-standard-filename "info/") source-directory)
+     "/usr/share/info/")))
 
 ;; faces
 (when (display-graphic-p)
@@ -461,9 +463,11 @@ This sets each user option VAR's value to the corresponding VALUE.
            ;;      `(;; :line-width -1
            ;;        :style released-button))
            )
+      ;; (set-face-attribute 'fixed-pitch nil :family "Source Code Pro")
+      (set-face-attribute 'fixed-pitch nil :family "Inconsolata")
       (set-face-attribute 'mode-line nil
                           :background grey ;; :box box
-                          )
+                          :inherit 'fixed-pitch)
       ;; (set-face-attribute 'mode-line-inactive nil
       ;;                     :background darker-grey :box box)
       )))
@@ -544,6 +548,12 @@ Make N (default: 1) copies of the current line or region."
         (dotimes (_ (abs n1))
           (insert text))))))
 
+(defun b/invert-default-face ()
+  "Invert the `default' face (swap its background and foreground).
+Effectively a very simple light/dark theme toggle switch."
+  (interactive)
+  (invert-face 'default))
+
 
 ;;; General key bindings
 
@@ -553,6 +563,7 @@ Make N (default: 1) copies of the current 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 x") #'execute-extended-command)
+(global-set-key (kbd "C-c v") #'b/invert-default-face)
 
 ;; evaling and macro-expanding
 (global-set-key (kbd "C-c e b") #'eval-buffer)