X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/c6e4b014cb53f028da64232b28053d48014ab12b..c4c2ff4ebcfeda2603eef806193ef8d891035b9f:/.emacs.d/init.el diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 781b7f0..32989b0 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -99,7 +99,7 @@ ;;; whoami -(setq ;; user-full-name "bandali" +(setq user-full-name "Amin Bandali" user-mail-address "bandali@gnu.org") @@ -135,26 +135,19 @@ This sets each user option VAR's value to the corresponding VALUE. ;; (package-generate-description-file d "refinery-theme-pkg.el")) (run-with-idle-timer 0.01 nil #'require 'package) (with-eval-after-load 'package - (when (= (length package-archives) 1) - (csetq - package-archives - `(,@package-archives - ;; ("bndl" . "https://p.bndl.org/elpa/") - ("org" . "https://orgmode.org/elpa/")) - package-load-list - '(;; GNU ELPA - (debbugs "0.26") - (delight "1.7") - (orgalist "1.13") - (rt-liberation "1.31") - (yasnippet "0.14.0") - (expand-region "0.11.0") - (emms "6.2") - ;; bndl - ;; (refinery-theme "0.1.1") - ;; Org ELPA - (org-plus-contrib "20201109")))) - (package-initialize)) + ;; (csetq + ;; ;; package-archives + ;; ;; `(,@package-archives + ;; ;; ("bndl" . "https://p.bndl.org/elpa/")) + ;; package-load-list + ;; '(;; GNU ELPA + ;; (debbugs "0.29") + ;; (delight "1.7") + ;; (emms "7.7") + ;; (expand-region "0.11.0") + ;; (rt-liberation "2.4") + ;; (yasnippet "0.14.0"))) +(package-initialize)) (csetq package-archive-upload-base "/ssh:caffeine:~/www/p/elpa") @@ -220,6 +213,7 @@ This sets each user option VAR's value to the corresponding VALUE. ;;;; C-level customizations (csetq + ;; line-spacing 3 ;; completion case sensitivity completion-ignore-case t read-buffer-completion-ignore-case t @@ -246,7 +240,11 @@ This sets each user option VAR's value to the corresponding VALUE. indent-tabs-mode nil tab-width 4) -(set-fontset-font t 'arabic "Vazir") +(when (display-graphic-p) + (set-fontset-font t 'arabic "Vazir")) +;; ;; (set-frame-font "Drafting Mono-14:weight=light" nil t) +;; (set-frame-font "Drafting Mono:pixelsize=16" nil t) +;; (set-face-attribute 'bold nil :weight 'semi-bold) ;;;; Elisp-level customizations @@ -343,7 +341,12 @@ This sets each user option VAR's value to the corresponding VALUE. display-time-mail-icon '(image :type xpm :file "gnus/gnus-pointer.xpm" :ascent center) - display-time-use-mail-icon t) + display-time-use-mail-icon t + zoneinfo-style-world-list + `(,@zoneinfo-style-world-list + ("Etc/UTC" "UTC") + ("Asia/Tehran" "Tehran") + ("Australia/Melbourne" "Melbourne"))) (display-time-mode)) (run-with-idle-timer 0.1 nil #'require 'battery) @@ -359,6 +362,14 @@ This sets each user option VAR's value to the corresponding VALUE. (require 'winner) (winner-mode 1) +(run-with-idle-timer 0.1 nil #'require 'windmove) +(with-eval-after-load 'windmove + (csetq windmove-wrap-around t) + (global-set-key (kbd "M-H") #'windmove-left) + (global-set-key (kbd "M-L") #'windmove-right) + (global-set-key (kbd "M-K") #'windmove-up) + (global-set-key (kbd "M-J") #'windmove-down)) + (with-eval-after-load 'compile ;; don't display *compilation* buffer on success. based on ;; https://stackoverflow.com/a/17788551, with changes to use `cl-letf' @@ -429,11 +440,6 @@ This sets each user option VAR's value to the corresponding VALUE. ;; this will fail if gpg>=2.1 is not available epg-pinentry-mode 'loopback) -;; (require 'pinentry) -;; workaround for systemd-based distros: -;; (setq pinentry--socket-dir server-socket-dir) -;; (pinentry-start) - ;; auth-source (csetq auth-sources '("~/.authinfo.gpg") @@ -441,20 +447,27 @@ 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) (with-eval-after-load 'faces (let* ((grey "#e7e7e7") - (darker-grey "#d9d9d9") - (box ;; 'unspecified - `(:line-width -1 :style released-button))) + ;; (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") (set-face-attribute 'mode-line nil - :background grey :box box) + :background grey ;; :box box + :inherit 'fixed-pitch) ;; (set-face-attribute 'mode-line-inactive nil ;; :background darker-grey :box box) ))) @@ -535,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 @@ -544,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) @@ -974,6 +994,9 @@ Make N (default: 1) copies of the current line or region." ;; po-mode (require 'bandali-po) +(with-eval-after-load 'emms + (csetq emms-directory (b/var "emms"))) + ;;; Post initialization