feat(all): move to Nord theme

doom-emacs/.doom.d/config.el

@@ -7,7 +7,7 @@
 ;; Some functionality uses this to identify you, e.g. GPG configuration, email
 ;; clients, file templates and snippets.
 (setq user-full-name "minhtrannhat"
-      user-mail-address "minhtrannhat2001@gmail.com")
+      user-mail-address "minhtrannhat@minhtrannhat.com")
 
 ;; Doom exposes five (optional) variables for controlling fonts in Doom. Here
 ;; are the three important ones:
@@ -25,11 +25,14 @@
 (setq doom-emoji-fallback-font-families nil)
 (setq doom-symbol-fallback-font-families nil)
 
+(add-hook 'prog-mode-hook #'pixel-scroll-mode)
+(add-hook 'text-mode-hook #'pixel-scroll-mode)
+
 (setq fancy-splash-image "/home/minhradz/.doom.d/marivector.png")
 
 (defun synchronize-theme ()
-(let* ((light-theme 'doom-gruvbox-light)
-        (dark-theme 'doom-gruvbox)
+(let* ((light-theme 'doom-nord-light)
+        (dark-theme 'doom-nord)
         (start-time-light-theme 6)
         (end-time-light-theme 16)
         (hour (string-to-number (substring (current-time-string) 11 13)))
@@ -81,6 +84,13 @@
 ;;   (global-tree-sitter-mode)
 ;;   (add-hook 'tree-sitter-after-on-hook #'tree-sitter-hl-mode))
 
+(global-tree-sitter-mode)
+(add-hook 'tree-sitter-after-on-hook #'tree-sitter-hl-mode)
+
+(require 'elcord)
+(elcord-mode)
+(setq elcord-use-major-mode-as-main-icon 't)
+
 ;; gpg
 (setq epg-pinentry-mode 'loopback)
 
@@ -89,6 +99,8 @@
 
 ;; org org
 (setq +latex-viewers '(zathura))
+;; auto render latex in org mode
+(add-hook 'org-mode-hook 'org-fragtog-mode)
 
 ;; fish fish
 (setq vterm-shell 'fish)
@@ -163,18 +175,6 @@
         :desc "Search org-roam with consult-ripgrep"
         "n r F" #'org-roam-rg-search)
 
-;; Function for inserting node into Org Roam
-(defun org-roam-node-insert-immediate (arg &rest args)
-  (interactive "P")
-  (let ((args (cons arg args))
-        (org-roam-capture-templates (list (append (car org-roam-capture-templates)
-                                                  '(:immediate-finish t)))))
-    (apply #'org-roam-node-insert args)))
-
-(map! :leader
-        :desc "Insert node immediately"
-        "n r I" #'org-roam-node-insert-immediate)
-
 (setq avy-all-windows 't)
 
 ;; Disables lsp-signature-auto-activate
@@ -208,9 +208,7 @@
   (blamer-face ((t :foreground "#7a88cf"
                     :background nil
                     :height 110
-                    :italic t)))
-  :config
-  (global-blamer-mode 1))
+                    :italic t))))
 
 ;; elfeed the rss reader
 (after! elfeed
@@ -265,3 +263,29 @@
        ((daily today remove-match)
         (800 1200 1600 2000)
         "......" "----------------")))
+
+;; Clojure stuffs
+(setq clojure-indent-style :always-align)
+
+(defun delete-file-and-buffer ()
+  "Kill the current buffer and deletes the file it is visiting."
+  (interactive)
+  (let ((filename (buffer-file-name)))
+    (if filename
+        (if (y-or-n-p (concat "Do you really want to delete file " filename " ?"))
+            (progn
+              (delete-file filename)
+              (message "Deleted file %s." filename)
+              (kill-buffer)))
+      (message "Not a file visiting buffer!"))))
+
+;; email stuffs
+;; Each path is relative to the path of the maildir you passed to mu
+(set-email-account! "minhtrannhat.com"
+  '((mu4e-sent-folder       . "/minhtrannhat@minhtrannhat.com/Sent")
+    (mu4e-drafts-folder     . "/minhtrannhat@minhtrannhat.com/Drafts")
+    (mu4e-trash-folder      . "/minhtrannhat@minhtrannhat.com/Trash")
+    (mu4e-refile-folder     . "/minhtrannhat@minhtrannhat.com/All Mail")
+    (smtpmail-smtp-user     . "minhtrannhat@minhtrannhat.com")
+    (mu4e-compose-signature . "---\nMinh Tran"))
+  t)

doom-emacs/.doom.d/custom.el

@@ -0,0 +1,17 @@
+(custom-set-variables
+ ;; custom-set-variables was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ '(elcord-display-buffer-details t)
+ '(git-gutter:update-interval 0.02)
+ '(smtpmail-smtp-server "mail.minhtrannhat.com")
+ '(smtpmail-smtp-service 587)
+ '(warning-suppress-types '((org-element-cache))))
+(custom-set-faces
+ ;; custom-set-faces was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ '(blamer-face ((t :foreground "#7a88cf" :background nil :height 110 :italic t)))
+ '(ts-fold-replacement-face ((t (:foreground nil :box nil :inherit font-lock-comment-face :weight light)))))

doom-emacs/.doom.d/init.el

@@ -31,7 +31,7 @@
        indent-guides     ; highlighted indent columns
        ligatures         ; ligatures and symbols to make your code pretty again
        ;;minimap           ; show a map of the code on the side
-       modeline                 ; snazzy, Atom-inspired modeline, plus API
+       (modeline +light)                 ; snazzy, Atom-inspired modeline, plus API
        ;;nav-flash         ; blink cursor line after big motions
        ;;neotree           ; a project drawer, like NERDTree for vim
        ophints           ; highlight the region an operation acts on
@@ -75,6 +75,7 @@
        :tools
        ;;ansible
        ;;debugger          ; FIXME stepping through code, to help you add bugs
+       tree-sitter
        direnv
        (docker +lsp)
        ;;editorconfig      ; let someone else argue about tabs vs spaces
@@ -100,7 +101,7 @@
        ;;agda              ; types of types of types of types...
        ;;beancount         ; mind the GAAP
        (cc +lsp)                ; C > C++ == 1
-       clojure           ; java with a lisp
+       (clojure +lsp)           ; java with a lisp
        common-lisp       ; if you've seen one lisp, you've seen them all
        ;;coq               ; proofs-as-programs
        ;;crystal           ; ruby at the speed of c
@@ -158,9 +159,9 @@
        ;;terra             ; Earth and Moon in alignment for performance.
        (web +lsp)               ; the tubes
        yaml              ; JSON, but readable
-       ;;zig               ; C, but simpler
+       zig               ; C, but simpler
        :email
-       ;;(mu4e +gmail +org)
+       (mu4e +org)
        ;;notmuch
        ;;(wanderlust +gmail)
        :app

doom-emacs/.doom.d/packages.el

@@ -48,12 +48,10 @@
 ;(unpin! pinned-package another-pinned-package)
 ;; ...Or *all* packages (NOT RECOMMENDED; will likely break things)
 ;(unpin! t)
-;;(package! elcord)
-(package! tree-sitter)
-(package! tree-sitter-langs)
+(package! elcord)
 (unpin! org-roam)
 (package! websocket)
 (package! org-roam-ui :recipe (:host github :repo "org-roam/org-roam-ui" :files ("*.el" "out")))
 (package! magit-delta)
 (package! blamer :recipe (:host github :repo "artawower/blamer.el"))
-(package! org-gtd)
+(package! org-fragtog)