x: add xterm config

[~bandali/configs] / .emacs.d / init.el

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 3257260..251319a 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -220,6 +220,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 +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
 
@@ -450,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)
+      )))
 
 \f
 ;;; Useful utilities
@@ -644,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)