* .bashrc: reorganize, and update prompt

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

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 0ae6f40..97ad750 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -99,7 +99,7 @@
 \f
 ;;; whoami
 
 \f
 ;;; whoami
 

-(setq user-full-name "Amin Bandali"
+(setq ;; user-full-name "bandali"

       user-mail-address "bandali@gnu.org")
 
 \f
       user-mail-address "bandali@gnu.org")
 
 \f


@@ -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
 ;;   (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")
 
 
 (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
 ;;;; C-level customizations
 
 (csetq

+ ;; line-spacing 3

  ;; completion case sensitivity
  completion-ignore-case t
  read-buffer-completion-ignore-case t
  ;; 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)
 
  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
 
 
 ;;;; Elisp-level customizations
 


@@ -429,11 +427,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)
 
  ;; 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")
 ;; auth-source
 (csetq
  auth-sources '("~/.authinfo.gpg")


@@ -450,13 +443,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")
 (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
       (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
 
 \f
 ;;; Useful utilities


@@ -559,6 +556,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 .") #'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)
 
 ;; frames
 (global-set-key (kbd "C-c F m") #'make-frame-command)


@@ -643,9 +641,12 @@ Make N (default: 1) copies of the current line or region."
 
 (csetq shr-max-width 80)
 
 
 (csetq shr-max-width 80)
 

-;; Email (with Gnus and message)
+;; Email (with Gnus, message, and smtpmail)

 (require 'bandali-gnus)
 (require 'bandali-message)
 (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)
 
 ;; IRC (with ERC)
 (require 'bandali-erc)


@@ -966,6 +967,12 @@ Make N (default: 1) copies of the current line or region."
   (delight 'mml-mode " mml" "mml")
   (delight 'yas-minor-mode "" "yasnippet"))
 
   (delight 'mml-mode " mml" "mml")
   (delight 'yas-minor-mode "" "yasnippet"))
 

+;; po-mode
+(require 'bandali-po)
+
+(with-eval-after-load 'emms
+  (csetq emms-directory (b/var "emms")))
+

 \f
 ;;; Post initialization
 
 \f
 ;;; Post initialization