X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/272a75dc74b1d02748472d5014be26aab7c060be..eea8548ebf049229cfdd38d85dd39789b254309c:/.emacs.d/init.el diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 459dbe8..60f5f0d 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -194,24 +194,17 @@ (setq ;; line-spacing 3 - ;; completion case sensitivity completion-ignore-case t read-buffer-completion-ignore-case t - ;; minibuffer enable-recursive-minibuffers t resize-mini-windows t - ;; mode-line mode-line-compact t + ;; mouse-autoselect-window t + scroll-conservatively 101 + scroll-preserve-screen-position 1 ;; i don't feel like jumping out of my chair every now and again; ;; so...don't *BEEP* at me, emacs =) - ring-bell-function 'ignore - ;; better scrolling - ;; scroll-conservatively 101 - scroll-conservatively 15 - ;; scroll-preserve-screen-position 1 - ;; focus follows mouse - ;; mouse-autoselect-window t - ) + ring-bell-function 'ignore) (setq-default ;; case-sensitive search (and `dabbrev-expand') @@ -432,20 +425,11 @@ ;; faces (when (display-graphic-p) (with-eval-after-load 'faces - (let* ((grey "#e7e7e7") - ;; (darker-grey "#d9d9d9") - ;; (box ;; 'unspecified - ;; `(;; :line-width -1 - ;; :style released-button)) - ) - ;; (set-face-attribute 'fixed-pitch nil :family "Source Code Pro") - (set-face-attribute 'fixed-pitch nil :family "Inconsolata") + (let ((grey "#e7e7e7")) + (set-face-attribute 'fixed-pitch nil :family "Source Code Pro") (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) - ))) + :background grey + :inherit 'fixed-pitch)))) ;;; Useful utilities @@ -527,7 +511,9 @@ Make N (default: 1) copies of the current line or region." "Invert the `default' face (swap its background and foreground). Effectively a very simple light/dark theme toggle switch." (interactive) - (invert-face 'default)) + (invert-face 'default) + (when (display-graphic-p) + (invert-face 'mode-line))) ;;; General key bindings @@ -803,6 +789,12 @@ Effectively a very simple light/dark theme toggle switch." (add-hook 'tex-mode-hook #'auto-fill-mode) (add-hook 'tex-mode-hook #'flyspell-mode) +(run-with-idle-timer 0.5 nil #'require 'cmake-mode) +(with-eval-after-load 'cmake-mode + (setq cmake-tab-width 4) + (add-to-list 'load-path (b/lisp "cmake-font-lock")) + (run-with-idle-timer 0.5 nil #'require 'cmake-font-lock)) + ;;; Emacs enhancements & auxiliary packages @@ -971,6 +963,21 @@ Effectively a very simple light/dark theme toggle switch." (with-eval-after-load 'emms (setq emms-directory (b/var "emms"))) +(add-to-list 'load-path (b/lisp "ffs")) +(run-with-idle-timer 0.5 nil #'require 'ffs) +(with-eval-after-load 'ffs + (global-set-key (kbd "C-c f s") #'ffs)) + +(defun b/export-frame () + (interactive) + ;; TODO: ask for fn and/or take as arg + (let* ((fn (make-temp-file "emacs" nil ".pdf")) + (data (x-export-frames nil 'pdf))) + (with-temp-file fn + (insert data)) + (kill-new fn) + (message fn))) + ;;; Post initialization