diff options
Diffstat (limited to '')
| -rw-r--r-- | .emacs.d/init.el | 120 |
1 files changed, 14 insertions, 106 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 7ab00be..9267ce4 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -24,6 +24,14 @@ ;;; Code: +;; whoami +(setq + user-full-name "Amin Bandali" + user-mail-address "bandali@kelar.org") + + +;;; Package management + (setq use-package-verbose init-file-debug use-package-expand-minimally (not init-file-debug) @@ -32,17 +40,13 @@ debug-on-quit init-file-debug) (require 'package) +;; Install use-package on older Emascen if needed. (when (< emacs-major-version 29) (unless (package-installed-p 'use-package) (unless package-archive-contents (package-refresh-contents)) (package-install 'use-package))) -;; whoami -(setq - user-full-name "Amin Bandali" - user-mail-address "bandali@kelar.org") - ;;; Initial setup @@ -127,6 +131,7 @@ plain variables. This means that `setopt' will execute any (add-to-list 'load-path (b/emacs.d "lisp")) (require 'bandali-essentials) +(require 'bandali-prog) ;; (require 'bandali-exwm) (require 'bandali-eshell) (require 'bandali-ibuffer) @@ -141,70 +146,8 @@ plain variables. This means that `setopt' will execute any ;; smtpmail-queue-dir (concat b/maildir "queue/"))) ;;; IRC with ERC (require 'bandali-erc) - - -;;; Programming modes - -(use-package elisp-mode - :bind - ("C-c e e" . eval-last-sexp)) - -(use-package pp - :bind - ("C-c e m" . pp-macroexpand-last-sexp)) - -(with-eval-after-load 'lisp-mode - (add-hook - 'lisp-interaction-mode-hook - (lambda () (setq indent-tabs-mode nil)))) - -;; (add-to-list 'load-path (b/lisp "alloy-mode")) -;; (autoload 'alloy-mode "alloy-mode" nil t) -;; (with-eval-after-load 'alloy-mode -;; (setq alloy-basic-offset 2) -;; ;; (defun b/alloy-simple-indent (start end) -;; ;; (interactive "r") -;; ;; ;; (if (region-active-p) -;; ;; ;; (indent-rigidly start end alloy-basic-offset) -;; ;; ;; (if (bolp) -;; ;; ;; (indent-rigidly (line-beginning-position) -;; ;; ;; (line-end-position) -;; ;; ;; alloy-basic-offset))) -;; ;; (indent-to (+ (current-column) alloy-basic-offset))) -;; (define-key alloy-mode-map (kbd "RET") #'electric-newline-and-maybe-indent) -;; ;; (define-key alloy-mode-map (kbd "TAB") #'b/alloy-simple-indent) -;; (define-key alloy-mode-map (kbd "TAB") #'indent-for-tab-command)) -;; (add-to-list 'auto-mode-alist '("\\.\\(als\\|dsh\\)\\'" . alloy-mode)) -;; (add-hook 'alloy-mode-hook (lambda nil (setq-local indent-tabs-mode nil))) - -;; (eval-when-compile (defvar lean-mode-map)) -;; (run-with-idle-timer 0.4 nil #'require 'lean-mode) -;; (with-eval-after-load 'lean-mode -;; (require 'lean-input) -;; (setq default-input-method "Lean" -;; lean-input-tweak-all '(lean-input-compose -;; (lean-input-prepend "/") -;; (lean-input-nonempty)) -;; lean-input-user-translations '(("/" "/"))) -;; (lean-input-setup) -;; ;; local key bindings -;; (define-key lean-mode-map (kbd "S-SPC") #'company-complete)) - -(with-eval-after-load 'sgml-mode - (setopt sgml-basic-offset 0)) - -(with-eval-after-load 'css-mode - (setopt css-indent-offset 2)) - -(add-hook 'tex-mode-hook #'auto-fill-mode) -(add-hook 'tex-mode-hook #'flyspell-mode) - -(autoload 'cmake-mode "cmake-mode" nil t) -(add-to-list 'auto-mode-alist '("CMakeLists\\.txt\\'" . cmake-mode)) -(add-to-list 'auto-mode-alist '("\\.cmake\\'" . cmake-mode)) -(with-eval-after-load 'cmake-mode - (add-to-list 'load-path (b/emacs.d "lisp/cmake-font-lock")) - (require 'cmake-font-lock)) +;; (require 'bandali-misc) +(require 'bandali-po) ;;; Emacs enhancements & auxiliary packages @@ -224,43 +167,8 @@ plain variables. This means that `setopt' will execute any (debbugs-gnu debbugs-gnu-default-severities '("gnuzilla")))) -(with-eval-after-load 'eww - (setopt - eww-download-directory - (file-name-as-directory (getenv "XDG_DOWNLOAD_DIR")))) -(b/keymap-global-set "C-c e w" #'eww) - -(run-with-idle-timer - 0.2 nil #'require 'display-fill-column-indicator nil 'noerror) -(with-eval-after-load 'display-fill-column-indicator - (global-display-fill-column-indicator-mode 1)) - -(with-eval-after-load 'window - (setopt split-width-threshold 140)) - -(add-hook 'latex-mode-hook #'reftex-mode) - -(when (and - (featurep 'completion-preview) - (functionp #'completion-preview-mode)) - (b/keymap-set completion-preview-active-mode-map - "M-n" #'completion-preview-next-candidate) - (b/keymap-set completion-preview-active-mode-map - "M-p" #'completion-preview-prev-candidate) - (b/keymap-set completion-preview-active-mode-map - "M-i" #'completion-preview-insert) - (add-hook 'prog-mode-hook #'completion-preview-mode) - (add-hook 'text-mode-hook #'completion-preview-mode) - (with-eval-after-load 'comint - (add-hook 'comint-mode-hook #'completion-preview-mode))) - -(run-with-idle-timer 0.5 nil #'require 'delight) -(with-eval-after-load 'delight - (delight 'auto-fill-function " f" "simple") - (delight 'abbrev-mode "" "abbrev") - (delight 'mml-mode " mml" "mml")) - -(require 'bandali-po) +(use-package mml + :delight " mml") (add-to-list 'load-path (b/emacs.d "lisp/ffs")) (run-with-idle-timer 0.5 nil #'require 'ffs) |