X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/a0e241c4c77ca92e5b3757e6422267a4e86e476e..08b0fb0ad623f5bb73299beb12a5d85e47be07ac:/.emacs.d/init.el

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 390be17..251319a 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -99,7 +99,7 @@
 
 ;;; whoami
 
-(setq user-full-name "Amin Bandali"
+(setq ;; user-full-name "bandali"
       user-mail-address "bandali@gnu.org")
 
 
@@ -220,8 +220,10 @@ 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
  ;; minibuffer
  enable-recursive-minibuffers t
  resize-mini-windows t
@@ -245,7 +247,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
 
@@ -286,6 +292,9 @@ This sets each user option VAR's value to the corresponding VALUE.
 ;;   ;; (keyboard-translate ?\] ?\])
 ;; )
 
+;; minibuffer
+(csetq read-file-name-completion-ignore-case t)
+
 ;; startup
 ;; don't need to see the startup echo area message
 (advice-add #'display-startup-echo-area-message :override #'ignore)
@@ -446,13 +455,17 @@ This sets each user option VAR's value to the corresponding VALUE.
 (when (display-graphic-p)
   (with-eval-after-load 'faces
     (let* ((grey "#e7e7e7")
-           (darker-grey "#d9d9d9")
-           (box ;; `(:line-width -1 :style released-button)
-            'unspecified))
+           ;; (darker-grey "#d9d9d9")
+           ;; (box ;; 'unspecified
+           ;;      `(;; :line-width -1
+           ;;        :style released-button))
+           )
       (set-face-attribute 'mode-line nil
-                          :background grey :box box)
-      (set-face-attribute 'mode-line-inactive nil
-                          :background darker-grey :box box))))
+                          :background grey ;; :box box
+                          )
+      ;; (set-face-attribute 'mode-line-inactive nil
+      ;;                     :background darker-grey :box box)
+      )))
 
 
 ;;; Useful utilities
@@ -555,6 +568,7 @@ Make N (default: 1) copies of the current line or region."
 (global-set-key (kbd "C-c f .") #'find-file)
 (global-set-key (kbd "C-c f d") #'find-name-dired)
 (global-set-key (kbd "C-c f l") #'find-library)
+(global-set-key (kbd "C-c f p") #'find-file-at-point)
 
 ;; frames
 (global-set-key (kbd "C-c F m") #'make-frame-command)
@@ -600,16 +614,16 @@ Make N (default: 1) copies of the current line or region."
    (completing-read "Find recent file: " recentf-list)))
   (global-set-key (kbd "C-c f r") #'b/recentf-open))
 
-(fido-mode 1)
-(defun b/icomplete--fido-mode-setup ()
-  "Customizations to `fido-mode''s minibuffer."
-  (when (and icomplete-mode (icomplete-simple-completing-p))
-    (setq-local
-     ;; icomplete-compute-delay 0.1
-     ;; icomplete-hide-common-prefix t
-     icomplete-separator " · "
-     completion-styles '(basic substring partial-completion flex))))
-(add-hook 'minibuffer-setup-hook #'b/icomplete--fido-mode-setup 1)
+;; (fido-mode 1)
+;; (defun b/icomplete--fido-mode-setup ()
+;;   "Customizations to `fido-mode''s minibuffer."
+;;   (when (and icomplete-mode (icomplete-simple-completing-p))
+;;     (setq-local
+;;      ;; icomplete-compute-delay 0.1
+;;      ;; icomplete-hide-common-prefix t
+;;      icomplete-separator " · "
+;;      completion-styles '(basic substring partial-completion flex))))
+;; (add-hook 'minibuffer-setup-hook #'b/icomplete--fido-mode-setup 1)
 
 (require 'bandali-eshell)
 
@@ -639,9 +653,12 @@ Make N (default: 1) copies of the current line or region."
 
 (csetq shr-max-width 80)
 
-;; Email (with Gnus and message)
+;; Email (with Gnus, message, and smtpmail)
 (require 'bandali-gnus)
 (require 'bandali-message)
+;; (with-eval-after-load 'smtpmail
+;;   (csetq smtpmail-queue-mail t
+;;          smtpmail-queue-dir (concat b/maildir "queue/")))
 
 ;; IRC (with ERC)
 (require 'bandali-erc)
@@ -962,6 +979,9 @@ Make N (default: 1) copies of the current line or region."
   (delight 'mml-mode " mml" "mml")
   (delight 'yas-minor-mode "" "yasnippet"))
 
+;; po-mode
+(require 'bandali-po)
+
 
 ;;; Post initialization