/doom-config

Primary LanguageEmacs Lisp

Doom Emacs Config

Table of contents

Instructions

  1. Place your private configuration here! Remember, you do not need to run ‘doom sync’ after modifying this file!
  2. Here are some additional functions/macros that could help you configure Doom:
    • load! for loading external *.el files relative to this one
    • use-package! for configuring packages
    • after! for running code after a package has loaded
    • add-load-path! for adding directories to the load-path, relative to this file. Emacs searches the load-path when you load packages with require or use-package.
    • map! for binding new keys
  3. To get information about any of these functions/macros, move the cursor over the highlighted symbol at press ‘K’. This will open documentation for it, including demos of how they are used.
  4. You can also try ‘gd’ to jump to their definition and see how they are implemented.

Default configs

;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-
(setq user-full-name "Adeeb HS"
      user-mail-address "adeeb.hs1@gmail.com"
      display-line-numbers-type 'relative
      ;;confirm-kill-emacs nil
)

Set path variables in emacs from shell

Emacs instance launched as a GUI app inherits a default minimal set of environment variables that are probably not the ones that are used in a terminal window. Therefore the path is imported from shell.

(when (or (memq window-system '(mac ns x))(daemonp))
  (exec-path-from-shell-initialize))
;; (when (daemonp)
;;   (exec-path-from-shell-initialize))

Visual

General Information

  • Doom exposes five (optional) variables for controlling fonts in Doom. Here are the three important ones:
    • doom-font – Used mostly
    • doom-variable-pitch-font – Used in some extentions like eww browser
    • doom-big-font – used for doom-big-font-mode; use this for presentations or streaming.
  • They all accept either a font-spec, font string (“Input Mono-12”), or xlfd font string. You generally only need these two:
  • There are two ways to load a theme. Both assume the theme is installed and available. You can either set doom-theme or manually load a theme with the load-theme function. This is the default:

Theme

Dracula theme

(setq doom-theme 'doom-dracula)
;; (setq doom-theme 'doom-one)

Catppuccin theme

(setq doom-theme 'doom-catppuccin)
(defun icy/load-theme ()
  (interactive)
  (load-theme 'doom-catppuccin t))


(if (daemonp)
    (add-hook 'after-make-frame-functions
              (lambda (frame)
                (with-selected-frame frame (icy/load-theme))))
  (icy/load-theme))

;; (custom-set-faces!
;;   '(doom-modeline-buffer-modified :foreground "orange"))

(setf treemacs-window-background-color (cons "#1A1826" "#302D41"))

(with-eval-after-load 'solaire-mode
  (add-to-list 'solaire-mode-themes-to-face-swap "^doom-"))

Scrolling

(setq scroll-margin 3)
(setq hscroll-margin 3)

Font

Source Code Pro

(setq doom-font (font-spec :family "Source Code Pro" :size 25 :weight 'normal)
      doom-variable-pitch-font (font-spec :family "Source Code Pro" :size 23)
      doom-big-font (font-spec :family "Source Code Pro" :size 35 :weight 'normal))
(after! doom-themes
  (setq doom-themes-enable-bold t
        doom-themes-enable-italic t))
(custom-set-faces!
  '(font-lock-comment-face :slant italic)
  '(font-lock-keyword-face :slant italic))

VictorMono

(setq doom-font
      (font-spec
       :family "Victor Mono"
       :size 15.0
       :weight 'semi-bold)
      doom-big-font
      (font-spec
       :family "Victor Mono"
       :size 23.0
       :weight 'semi-bold)
      doom-variable-pitch-font
      (font-spec
       :family "Victor Mono"
       :size 15.0
       :weight 'semi-bold))

(after! doom-themes
  (setq doom-themes-enable-bold t
        doom-themes-enable-italic t))

(custom-set-faces!
  '(font-lock-builtin-face :slant italic)
  '(font-lock-comment-face :slant italic)
  '(font-lock-function-name-face :weight bold :slant italic)
  '(font-lock-keyword-face :slant italic))

Fira code

Helpes enable extra ligatures

(use-package fira-code-mode
  :config
  (fira-code-mode-set-font)
  :custom
  (fira-code-mode-disabled-ligatures '("www" "[]" "#{" "#(" "#_" "#_(" "x" "***" "<>")) ;; List of ligatures to turn off
  (prettify-symbols-unprettify-at-point t)
  :hook prog-mode org-mode ;; Enables fira-code-mode automatically for programming and org major modes
  )
(set-language-environment "UTF-8")
(set-default-coding-systems 'utf-8)

Icons

(use-package all-the-icons
  :if (display-graphic-p))
(use-package all-the-icons-dired
  :hook (dired-mode . all-the-icons-dired-mode)
  )             ;; Icons for dired
(setq doom-themes-treemacs-theme "doom-colors")
(setq +ligatures-extras-in-modes '(haskell-mode org-mode))
;; (set-scroll-bar-mode 'right)

Configure Indentation

(use-package highlight-indent-guides
  :ensure t
  :commands highlight-indent-guides-mode
  :hook (prog-mode . highlight-indent-guides-mode)
  :config
  (setq highlight-indent-guides-method 'character
        ;;highlight-indent-guides-character ?\❯
   )
 )

Org mode config

Default configs

(setq org-directory "~/org/")
(map! :leader
      :desc "Org babel tangle" "m v" #'org-babel-tangle)
(after! org
  (setq
        org-pretty-entities t
        org-startup-folded t
        org-ellipsis " ▼ "
        org-superstar-headline-bullets-list '("◉" "●" "○" "◆" "●" "○" "◆")
        ;;org-superstar-item-bullet-alist '((?+ . ?➤) (?- . ?✦)) ; changes +/- symbols in item lists
        org-log-done 'time
        org-hide-emphasis-markers t
        )
  )

Remap Keys

Esc to fj

(setq key-chord-two-keys-delay 0.1)
(key-chord-define evil-insert-state-map "fj" 'evil-normal-state)
(key-chord-mode 1)

Resizing windows

Use SPC w c and then the following keys

DescriptionKey Binding
Increase Window Width=
Decrease Window Width-
Increase Window Height+
Decrease Window Height_
(defhydra hydra-window-size (:timeout 5)
"Resize window"
("=" evil-window-increase-width "Increase Width")
("-" evil-window-decrease-width "Decrease Width")
("+" evil-window-increase-height "Increase Height")
("_" evil-window-decrease-height "Decrease Height")
("f" nil "finished" :exit t))

(map! :leader
    (:prefix ("w". "window")
    :desc "Resize current window" "c" #'hydra-window-size/body))

Switch M-x and eval Expression key maps

(map! :leader
      :desc "M-x" ";" #'execute-extended-command)

(map! :leader
      :desc "Eval Expression" ":" #'eval-expression)

Switch evil beginning of line and first non white space character keys

(define-key evil-normal-state-map (kbd "0") #'evil-first-non-blank)
(define-key evil-normal-state-map (kbd "^") #'evil-beginning-of-line)

Remaping register commands to SPC r

(map! :leader
      :desc "Register"
      "r" ctl-x-r-map)

Define back tab

(global-set-key (kbd "<backtab>") 'un-indent-by-removing-4-spaces)
(defun un-indent-by-removing-4-spaces ()
  "remove 4 spaces or a tab from beginning of of line"
  (interactive)
  (save-excursion
    (save-match-data
      (beginning-of-line)
      ;; get rid of tabs at beginning of line
      (when (looking-at "^\\s-+")
        (untabify (match-beginning 0) (match-end 0)))
      (when (looking-at "^    ")
        (replace-match "")))))

Dired key binding

(map! :leader
      (:prefix ("d" . "dired")
       :desc "Open dired" "d" #'dired
       :desc "Dired jump to current" "j" #'dired-jump)
      (:after dired
       (:map dired-mode-map
        :desc "Peep-dired image previews" "d p" #'peep-dired
        :desc "Dired view file" "d v" #'dired-view-file)))

(evil-define-key 'normal dired-mode-map
  (kbd "M-RET") 'dired-display-file
  (kbd "h") 'dired-up-directory
  (kbd "l") 'dired-find-file
  (kbd "m") 'dired-mark
  (kbd "t") 'dired-toggle-marks
  (kbd "u") 'dired-unmark
  (kbd "C") 'dired-do-copy
  (kbd "D") 'dired-do-delete
  (kbd "J") 'dired-goto-file
  (kbd "M") 'dired-do-chmod
  (kbd "O") 'dired-do-chown
  (kbd "P") 'dired-do-print
  (kbd "R") 'dired-do-rename
  (kbd "T") 'dired-do-touch
  (kbd "Y") 'dired-copy-filenamecopy-filename-as-kill ; copies filename to kill ring.
  (kbd "Z") 'dired-do-compress
  (kbd "+") 'dired-create-directory
  (kbd "-") 'dired-do-kill-lines
  (kbd "% l") 'dired-downcase
  (kbd "% m") 'dired-mark-files-regexp
  (kbd "% u") 'dired-upcase
  (kbd "* %") 'dired-mark-files-regexp
  (kbd "* .") 'dired-mark-extension
  (kbd "* /") 'dired-mark-directories
  (kbd "; d") 'epa-dired-do-decrypt
  (kbd "; e") 'epa-dired-do-encrypt)

Devepolment

Company mode

(use-package company
  :after lsp-mode
  :hook (lsp-mode . company-mode)
  :custom
  ;; (+lsp-company-backends '(company-tabnine :separate company-capf company-yasnippet)) ;; to enable Tab-nine autocomplete
  (company-minimum-prefix-length 1)
  (company-idle-delay 0.0))

(use-package company-box
  :hook (company-mode . company-box-mode))

Set up direnv

(use-package direnv
 :config
 (direnv-mode))

Languages

Language Server

Lsp Mode

Setting up lsp mode

(use-package lsp-mode
  :after (lsp direnv)
  :commands (lsp lsp-deferred)
  :config
  (lsp-enable-which-key-integration t)
  )

Configuring lsp-mode after loading, refer Lsp mode features

(after! lsp-mode
    (setq lsp-enable-symbol-highlighting nil)                   ;; 1
    (setq lsp-ui-doc-enable nil)                                ;; 2
    (setq lsp-ui-doc-show-with-cursor nil)
    (setq lsp-ui-doc-show-with-mouse nil)
    (setq lsp-lens-enable nil)                                  ;; 3
    (setq lsp-headerline-breadcrumb-segments
          '(path-up-to-project file symbols))
    (setq lsp-headerline-breadcrumb-enable nil)                 ;; 4
    (setq lsp-ui-sideline-enable t)                             ;; 5
    (setq lsp-ui-sideline-show-code-actions t)
    (setq lsp-ui-sideline-enable t)                             ;; 6
    (setq lsp-ui-sideline-show-hover t)
    (setq lsp-modeline-code-actions-enable t)                   ;; 7

    (setq lsp-diagnostics-provider :auto)                       ;; 8
    (setq lsp-ui-sideline-enable t)                             ;; 9
    (setq lsp-eldoc-enable-hover t)                             ;; 10
    (setq lsp-modeline-diagnostics-enable t)                    ;; 11

    (setq lsp-signature-auto-activate t)                        ;; 12
    (setq lsp-signature-render-documentation nil)               ;; 13

    (setq lsp-completion-provider :capf)                        ;; 14
    (setq lsp-completion-show-detail t)                         ;; 15
    (setq lsp-completion-show-kind t)                           ;; 16
  )

Lsp Ui

(use-package lsp-ui
  :after lsp
  :hook (lsp-mode . lsp-ui-mode)
  :custom
  (lsp-ui-doc-position 'bottom)
  )

Lsp Treemacs

(use-package lsp-treemacs
  :after lsp)

C/C++

(setq lsp-clients-clangd-args '("--header-insertion=never"))

Python

Set-up LSP for python

(use-package lsp-pyright
  :after lsp
  :ensure t
  :init
  (setq lsp-pyright-multi-root nil)
  :hook (python-mode . (lambda ()
                          (require 'lsp-pyright)
                          (lsp))))  ; or lsp-deferred

Pyvenv package to set up virtual environments

(use-package pyvenv
  :config
  (pyvenv-mode 1))

Haskell

Setting up extra ligatures just for haskell

(plist-put! +ligatures-extra-symbols
            :sum        "∑"
            :product    "∏"
            )

(after! haskell-mode
  (set-ligatures!  'haskell-mode
    :lambda        "\\"
    :composition   "."
    :null          "()"
    :int           "Int"
    :float         "Double"
    :str           "String"
    :bool          "Bool"
    :in            "`elem`"
    :not-in        "`notElem`"
    :union         "`union`"
    :intersect     "`intersect`"
    :or            "||"
    :and           "&&"
    :for           "forall"
    :sum           "sum"
    :product       "product"
    )
   )

Competitive coding

Add c++ template automatically while file creation

(use-package autoinsert
  :config
  (setq auto-insert-query nil)             ; disable the default auto-inserts
  (auto-insert-mode 1)                     ; enable auto-insert-mode globally
  (add-hook 'find-file-hook 'auto-insert)  ; insert templates when we create new files
  (setq auto-insert-alist nil)             ; remove this line to restore defaults
  ;; (add-to-list 'auto-insert-alist          ; add "competitive coding" templates to auto insert
  ;;              '("^/home/adeeb/code/.+\\.cpp\\'" . "/home/adeeb/code/template.cpp"))
  (add-to-list 'auto-insert-alist          ; the same with ~ expansion
               (cons (concat "^" (expand-file-name "~/code/") ".+\\.cpp\\'")
                     (expand-file-name "~/code/template.cpp")))
 )

Shells

V-term

Open v-term in a new window

(setq vterm-shell "/bin/zsh")
(after! vterm
  (set-popup-rule! "\\*doom:vterm-popup:.*\\*" :size 0.35 :vslot -4 :select t :quit nil :ttl 0 :side 'right)
  )

Browsers

Eww browser

(setq
 ;; browse-url-browser-function 'eww-browse-url                    ; Use eww as the default browser
 shr-use-fonts  nil                                             ; No special fonts
 shr-use-colors nil                                             ; No colours
 shr-indentation 2                                              ; Left-side margin
 shr-width 70                                                   ; Fold text to 70 columns
 shr-image-animate nil                                          ; Amination switched off
 shr-inhibit-images t                                           ; Images are switched off
 )
(defun my/eww-toggle-images ()
  "Toggle whether images are loaded and reload the current page from cache."
  (interactive)
  (setq-local shr-inhibit-images (not shr-inhibit-images))
  (eww-reload t)
  (message "Images are now %s"
           (if shr-inhibit-images "off" "on")))

(map! :leader
    (:prefix ("e". "eww-browser")
    :desc "Open new eww buffer" "o" #'eww))

(after! eww
  (set-popup-rule! "*eww*" :size 0.4 :vslot -4 :select t :quit nil :ttl 0 :side 'right)
  )

Dashboard

Basic set up for dashboard

(use-package dashboard
  :init
  (setq dashboard-set-heading-icons t)
  (setq dashboard-set-file-icons t)
  (setq dashboard-banner-logo-title nil)
  ;;(setq dashboard-startup-banner 'logo) ;; use standard emacs logo as banner
  (setq dashboard-startup-banner "./logos/gnu.png")  ;; use custom image as banner
  (setq dashboard-set-init-info t)
  (setq dashboard-center-content nil) ;; set to 't' for centered content
  (setq dashboard-items '((recents . 5)
                          (projects . 5)))
  (setq dashboard-set-navigator t)
  (setq dashboard-projects-backend 'projectile)
  (setq doom-fallback-buffer-name "*dashboard*")

:config
  (dashboard-setup-startup-hook)
  (dashboard-modify-heading-icons '((bookmarks . "book"))))

Hide files or directories

(add-to-list 'recentf-exclude "/.emacs.d/.local/etc/workspaces/autosave") ;;hide recent files from recentf
(add-to-list 'projectile-ignored-projects "*.emacs.d")                 ;;hide emacs.d dir from projectile projects

FlySpell

Spell checker for text mode buffers

(use-package flyspell
  :ensure nil
  :defer t
  :if (executable-find "aspell")
  :hook (((text-mode outline-mode latex-mode org-mode markdown-mode) . flyspell-mode))
  :custom
  (flyspell-issue-message-flag nil)
  (ispell-program-name "aspell")
  (ispell-extra-args
   '("--sug-mode=ultra" "--lang=en_US" "--camel-case"))
  )
(remove-hook 'org-mode-hook #'flyspell-mode)

Configuration of emacs daemon

Check if current session is daemon session

(if (daemonp)
    (message "Loading emacs as a client!")
    (message "Loading regular emacs"))

Extra hacks

Rainbow mode

(use-package rainbow-mode
  :hook prog-mode org-mode ;; Enables rainbow-mode automatically for programming and org major modes
)

Beacon

(beacon-mode 1)

Columns number

(add-hook 'prog-mode-hook 'column-number-mode)