Skip to content

Latest commit

 

History

History
1020 lines (927 loc) · 33.4 KB

Emacs.org

File metadata and controls

1020 lines (927 loc) · 33.4 KB
Raw

Emacs Configuration

Rewrite my config to get rid of the redunant functions and build the system from stratch using straight.el for package management.

Emacs configurations [4/7]

  • [ ] ox-json + pyorg to obtain json data from org files, check org ele API also
  • [ ] Install blink-search and explore it.
  • [X] Check on embark to see if it’s an alternative to which-key
  • [X] Install Projectile
  • [ ] rewrite the super-agenda to make it nicer.
  • [X] improvement of performance of emacs (not really… but I tried…)
  • [X] reconfiuring eshell

Setup before everything else

(setq package-enable-at-startup nil)

Performance Monitoring

Define a function that will monitor how long it takes for Emacs to startup:

(defun efs/display-startup-time ()
  (message "Emacs loaded in %s with %d garbage collections."
           (format "%.2f seconds"
                   (float-time
                   (time-subtract after-init-time before-init-time)))
           gcs-done))

(add-hook 'emacs-startup-hook #'efs/display-startup-time)

Keep .emacs.d clean

			;; Change the user-emacs-directory to keep unwanted things out of ~/.emacs.d
	;; NOTE: If you want to move everything out of the ~/.emacs.d folder
	;; reliably, set `user-emacs-directory` before loading no-littering!
	;(setq user-emacs-directory "~/.cache/emacs")

	;; (use-package no-littering)

	;; no-littering doesn't set this by default so we must place
	;; auto save files in the same path as it uses for sessions
	;; (setq auto-save-file-name-transforms
	;; 			`((".*" ,(no-littering-expand-var-file-name "auto-save/") t)))

Personal Setting

helper function

Open configuration file

To quickly open my configuration org file. I have a alias setting in my zshconfig too named emacsconfig which opens my init.el in VsCode, allowing me to quickly edit my init files to open emacs correctly (I am very bad at debug in emacs and I personally find this way easier).

(defun joz/myconfig ()
	"open my personal config"
	(interactive)
	(switch-to-buffer (find-file-noselect "~/.dotfiles/Emacs.org")))

Open bookmark capture

Open captured information from browser:

(defun joz/mycapture ()
	"Open my captued info from interent"
	(interactive)
	(switch-to-buffer (find-file-noselect "~/Notes/captures.org")))

Auto Tangle

(defun joz/org-babel-tangle-config ()
  (when (string-equal (buffer-file-name)
			(expand-file-name "~/.dotfiles/Emacs.org"))
  (let ((org-confim-babel-evaluate t))
    (org-babel-tangle))))

Package System Setup

use-package

use-package is a way to organize the code neat and also by defer loading of packages it will improve the start up time of emacs. Typical pacakges that implies defering loading of packages includes: :command , :bind, :hook, :defer, if one package is needed to be run at the start up time, using :demand to make sure the package is get loaded.

straigt.el

  • Note taken on [2022-11-03 Thu 21:38]
    Better way of organizing the package, according to system crafter, better switch to straight.el once and for all to avoice weird behavior. Make sure to backup the current init.el first.
straight.el needs to be bootstrapped into the system. There’s motivation in using it because it makes life easier for installing package from Git repo.

Bootstrap

(defvar bootstrap-version)
(let ((bootstrap-file
			 (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
			(bootstrap-version 5))
  (unless (file-exists-p bootstrap-file)
    (with-current-buffer
				(url-retrieve-synchronously
				 "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
				 'silent 'inhibit-cookies)
			(goto-char (point-max))
			(eval-print-last-sexp)))
  (load bootstrap-file nil 'nomessage))

(straight-use-package 'org)
(straight-use-package 'use-package)

(setq straight-use-package-by-default t)

Upgrade straight package using straight-pull-all.

Setup

;; From this point on we should be able to use `use-package
(use-package straight
  :config
  (setq straight-host-usernames '((github . "mrvdb"))) ; Move to personal information?
  ;; Make sure packages do not pull in internal org, we pregister org from straight.el
  (straight-register-package 'org)
  (straight-register-package 'org-contrib)
  :custom (straight-use-package-by-default t))

(use-package use-package-ensure-system-package)   ; because we are in use-package config
(use-package bind-key)                  ; Load early, but see section [[Key bindings]]
;; (setq straight-use-package-by-default t)

General

Some general settings

Auto-revert, save history etc to improve general usage

;; Revert buffers when the underlying file has changed
(global-auto-revert-mode 1)

;; Revert Dired and other buffers
(setq global-auto-revert-non-file-buffers t)

;;save what you enter into minibuffer prompts
(setq history-length 25)
(savehist-mode 1)

;; Remember and restore the last cursor location of opened files
(save-place-mode 1)

;; Turn on auto-fill-mode so the paragraph doesn't get super long
(add-hook 'org-mode-hook 'turn-on-auto-fill)

;; Turn of the electric indent mode
(electric-indent-mode -1)

Using shit to switch between windows:

(windmove-default-keybindings)

Use ibuffer to nevigate the buffers:

;;use ibuffer
(defalias 'list-buffers 'ibuffer-other-window) ;;open another buffer window

UI setting

Most general setting

Stuff like get rid of the tool-bar, splashing lines etc.

;; Don't show the splash screen
(setq inhibit-splash-screen t)
;; Don't show startup message
(setq inhibit-startup-message t)
;; don't flash when the bell rings
(setq visible-bell nil) 
;; hide the tool-bar-mode
(tool-bar-mode -1)
;;diable the scrool bar
(scroll-bar-mode -1)
;;short form of yes or no
(fset 'yes-or-no-p 'y-or-n-p)
;;when displaying picture, don't display actual size(they can be huge)
(setq org-image-actual-width nil)
;;show line number on the left of the window
(global-display-line-numbers-mode 1)
;;store the recently opened files in order
(recentf-mode 1)
;; Don't pop up UI dialogs when prompting
(setq use-dialog-box nil)
;; The the global scale tab-width
(setq-default tab-width 2)

By defult, Mac use option for meta key, and Command for super-key, I’d like to swap the functionality of it:

;; Set the option, command key to corresponding emacs key
(setq mac-command-modifier      'meta
			mac-option-modifier       'super
			mac-right-option-modifier 'hyper)

Org-mode code block related setting:

(setq   org-src-tab-acts-natively t
        org-confirm-babel-evaluate nil
        org-edit-src-content-indentation 0)

To disable the auto indentation in org-mode

Misc

;; flash cursor lines when scroll
(use-package beacon
	:config
	(beacon-mode 2))

Face

Font

The :height stands for the height of the font, which also determines the size of the font.

;; Set the default face to larger font.
(set-face-attribute 'default nil :font "Fira Code" :height 180)

;; Set the fixed pitch face
(set-face-attribute 'fixed-pitch nil :font "Fira Code" :height 180)

;; Set the variable pitch face
(set-face-attribute 'variable-pitch nil :font "Fira Code" :height 180 :weight 'regular)

Define a font-setup function

(defun org-font-setup ()
	;; Set faces for heading levels
	(dolist (face '((org-level-1 . 1.2)
									(org-level-2 . 1.1)
									(org-level-3 . 1.05)
									(org-level-4 . 1.0)
									(org-level-5 . 0.8)
									(org-level-6 . 0.8)
									(org-level-7 . 0.8)
									(org-level-8 . 0.8)))
		(set-face-attribute (car face) nil :font "Fira Code" :weight 'regular :height (cdr face)))

	;; Ensure that anything that should be fixed-pitch in Org files appears that way
	(set-face-attribute 'org-block nil :foreground nil  :inherit 'fixed-pitch)
	(set-face-attribute 'org-code nil   :inherit '(shadow fixed-pitch))
	(set-face-attribute 'org-table nil   :inherit '(shadow fixed-pitch))
	(set-face-attribute 'org-verbatim nil :inherit '(shadow fixed-pitch))
	(set-face-attribute 'org-special-keyword nil :inherit '(font-lock-comment-face fixed-pitch))
	(set-face-attribute 'org-meta-line nil :inherit '(font-lock-comment-face fixed-pitch))
	(set-face-attribute 'org-checkbox nil :inherit 'fixed-pitch))

(add-hook 'org-mode-hook 'org-font-setup)

Beautify

;;replace list hyphen with dot
(font-lock-add-keywords 'org-mode
												'(("^ *\\([-]\\) "
													 (0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•"))))))
;;add emphasis markets at the end of the list
(setq org-ellipsis " ▼"
			org-hide-emphasis-markers t)

(use-package org-bullets
	:hook
	(org-mode . (lambda () (org-bullets-mode 1)))
	(org-mode . (lambda ()
								"Beautify Org Checkbox Symbol"
								(push '("[ ]" . "☐" ) prettify-symbols-alist)
								(push '("[X]" . "☑" ) prettify-symbols-alist)
								(push '("[-]" . "⊡" ) prettify-symbols-alist)
								(prettify-symbols-mode))))

Theme

Use :ensure to make sure the all-the-icons package will be autoinstalled when doom-themes is installed.

(use-package treemacs)
(use-package all-the-icons)
(use-package minions
	:config (minions-mode 1))
(use-package doom-themes
	:config
	(load-theme 'doom-one t)
	;; all-the-icons has to be installed, enabling custom neotree theme
	(doom-themes-neotree-config)
	;; for treemacs user
	(setq doom-themes-treemacs-theme "doom-atom")
	(doom-themes-treemacs-config)
	;;conrrect the org-mode's native fontification
	(doom-themes-org-config))

Also, use doom-modeline to prettify the mode-line section

(use-package doom-modeline
	:ensure t
	:init (doom-modeline-mode 1)
	:hook (after-init . doom-modeline-mode)
	:custom 
	(doom-modeline-height 10)
	(doom-modeline-enable-word-count nil)
	(doom-modeline-minor-modes t))

Helpful

(use-package helpful
	:bind
	("C-h f" . helpful-callable)
	("C-h v" . helpful-variable)
	("C-h k" . helpful-key)
	("C-h o" . helpful-symbol))

Completion

Vertico

Minimalistic auto completion setting: vertico + savehist + marginalia Reference to this tutorial.

;;enable Vertico
(use-package vertico
	:custom
	(vertico-count 13)
	(vertico-resize t)
	(vertico-cycle nil)
  ;; Extensions
  (vertico-grid-separator "       ")
  (vertico-grid-lookahead 50)
  (vertico-buffer-display-action '(display-buffer-reuse-window))
  (vertico-multiform-categories
   '((file reverse)
     (consult-grep buffer)
     (consult-location)
     (imenu buffer)
     (library reverse indexed)
     (org-roam-node reverse indexed)
     (t reverse)
     ))
  (vertico-multiform-commands
   '(("flyspell-correct-*" grid reverse)
     (org-refile grid reverse indexed)
     (consult-yank-pop indexed)
     (consult-lsp-diagnostics)
     ))
	:bind
	(:map vertico-map
				( "?" . minibuffer-completion-help)
				("M-RET" . minibuffer-force-complete)
				("M-TAB" . minibuffer-complete)
				("C-M-n" . vertico-next-group)
				("C-M-p" . vertico-previous-group)
				)
  :hook ((rfn-eshadow-update-overlay . vertico-directory-tidy) ; Clean up file path when typing
         )
	:init
	(vertico-mode))

;; Persist history over Emacs restarts. Vertico sorts by history position.
(use-package savehist
	:init
	(savehist-mode))

;; Show info of files at the marginal
(use-package marginalia
	:after vertico
	:custom
	(marginalia-annotators '(marginalia-annotators-heavy marginalia-annotators-light nil))
	:init
	(marginalia-mode))

;;icon's completion in minibuffer
(use-package all-the-icons-completion
  :after (marginalia all-the-icons)
  :hook (marginalia-mode . all-the-icons-completion-marginalia-setup)
  :init
  (all-the-icons-completion-mode))

;; Optionally use the `orderless' completion style, so no need to worry about the
;; order of keywords when trying to search for command.
(use-package orderless
	:init
	;; Configure a custom style dispatcher (see the Consult wiki)
	;; (setq orderless-style-dispatchers '(+orderless-dispatch)
	;;       orderless-component-separator #'orderless-escapable-split-on-space)
	(setq completion-styles '(orderless basic)
				completion-category-defaults nil
				completion-category-overrides '((file (styles partial-completion)))))

Embark

(use-package embark
  :bind
  (("C-." . embark-act)         ;; pick some comfortable binding
   ("C-:" . embark-dwim)        ;; good alternative: M-.
   ("C-h B" . embark-bindings)) ;; alternative for `describe-bindings'
  :init
  ;; Optionally replace the key help with a completing-read interface
  (setq prefix-help-command #'embark-prefix-help-command)
  :config
  ;; Hide the mode line of the Embark live/completions buffers
  (add-to-list 'display-buffer-alist
               '("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
                 nil
                 (window-parameters (mode-line-format . none)))))

;; Consult users will also want the embark-consult package.
(use-package embark-consult
  :hook
  (embark-collect-mode . consult-preview-at-point-mode))

Company

(use-package company
	:init
	(global-company-mode)
	:custom
	(company-minimum-prefix-length 2)
	(company-idle-delay 0.25)
	(company-backends '((company-capf company-semantic company-keywords company-etags company-dabbrev-code company-yasnippet)))
	(company-files-exclusions '(".git/" ".DS_Store"))
	:bind
	(:map company-active-map
				("C-n" . company-select-next)
				("C-p" . company-select-previous)))

Pair

(use-package smartparens
	:config
	(smartparens-global-mode t))

Which-key

This package offer all the possible completions for the prefix.

(use-package which-key
  :config (which-key-mode))

Expansion

The basic expansion comes in handy by using org-tempo

(add-to-list 'org-structure-template-alist '("sh" . "src shell"))
(add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp"))
(add-to-list 'org-structure-template-alist '("py" . "src python"))
(add-to-list 'org-structure-template-alist '("ja" . "src java"))
(add-to-list 'org-structure-template-alist '("quo" . "quote"))
(add-to-list 'org-structure-template-alist '("ex" . "example"))

Movement and editing

Consult

;;define prefix C-s for search map
(define-prefix-command 'search-map)
(global-set-key (kbd "C-s") 'search-map)

(use-package consult
	:bind
	("C-x b" . consult-buffer)
	("M-y" . consult-yank-pop)
	(:map search-map
				("s" . consult-line)
				("l" . consult-goto-line)
				("o" . consult-outline)
				("S" . consult-line-multi)))

Multi-editing

(use-package iedit
	:bind
	("C-;" . iedit-mode))

Misc

;;expand region basiced semantics
(use-package expand-region
	:bind
	("C-=" . er/expand-region))

Snippet

(defun my-org-mode-hook ()
  (setq-local yas-buffer-local-condition
							'(not (org-in-src-block-p t))))

(use-package yasnippet
	:init
	(yas-global-mode 1)
	:custom
	(yas-snippet-dirs '("~/.emacs.d/straight/repos/yasnippet-snippets/snippets"
											"~/.emacs.d/snippets"))
	:bind
	("\C-o" . yas-expand)
	:config
	(add-hook 'org-mode-hook 'my-org-mode-hook))

;;download snippets lib
(use-package yasnippet-snippets)

;;integration with consult
(use-package consult-yasnippet)

Project

(use-package projectile
	:config
	(setq projectile-project-search-path '("~/Blogs" "~/Desktop/ZeroToMastery"))
	(setq projectile-switch-project-action #'projectile-dired)
	:bind
	(:map projectile-mode-map
				("s-p" . projectile-command-map)
				("C-c p" . projectile-command-map)))

Integration with consult:

(use-package consult-projectile
  :straight (consult-projectile :type git :host gitlab :repo "OlMon/consult-projectile" :branch "master")
	:after projectile)

Org-roam

Basic config

The straight version of org is not working, using straight to make sure using the built-in version

(use-package org
	;; :straight (
	;; 	org :type built-in
	;; )
	:mode ("\\.org" . org-mode)
	:hook ((org-mode . org-font-setup)
				 (org-mode . turn-on-visual-line-mode)
				 (org-mode . company-mode))
	:bind
	("C-c a" . org-agenda)
	("C-c l"   . 'org-store-link)
	("C-c C-l"  . 'org-insert-link))

;;load babel after org has loaded
(with-eval-after-load 'org
  (org-babel-do-load-languages
      'org-babel-load-languages
      '((emacs-lisp . t)
      (python . t))))

;;The official one has deprecated, use self-defined one instead.
(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)))



(use-package org-roam
	:after org
	:config
	(org-roam-setup)
	:custom
	(org-roam-directory "~/Notes/RoamNotes")
	(org-roam-completion-everywhere t)
	(org-roam-file-extensions '("org" "md"))
	(org-roam-completion-system 'vertico)
	:bind (("C-c n l" . org-roam-buffer-toggle)
				 ("C-c n f" . org-roam-node-find)
				 ("C-c n i" . org-roam-node-insert)
				 ("C-c n I" . org-roam-node-insert-immediate)
				 ("C-M-i" . completion-at-point)
				 ("C-c n t" . org-roam-tag-add)
				 ("C-c n a" . org-roam-alias-add)))

;;add tag in the node-find mini-buffer
(setq org-roam-node-display-template
			(concat "${title:*} "
							(propertize "${tags:10}" 'face 'org-tag)))

Consult-roam

(use-package consult-org-roam
   :after org-roam
   :init
   ;; Activate the minor mode
   (consult-org-roam-mode)
   :custom
   ;; Use `ripgrep' for searching with `consult-org-roam-search'
   (consult-org-roam-grep-func #'consult-ripgrep)
   ;; Display org-roam buffers right after non-org-roam buffers
   ;; in consult-buffer (and not down at the bottom)
   (consult-org-roam-buffer-after-buffers t)
   :config
   ;; Eventually suppress previewing for certain functions
   (consult-customize
    consult-org-roam-forward-links
    :preview-key (kbd "M-."))
   :bind
   ;; Define some convenient keybindings as an addition
   ("C-c n e" . consult-org-roam-file-find)
   ("C-c n b" . consult-org-roam-backlinks)
   ("C-c n l" . consult-org-roam-forward-links)
   ("C-c n r" . consult-org-roam-search))

Org-download

(use-package org-download
  :custom
  (org-download-method 'directory)
  (org-download-image-dir "~/Notes/static/images")
  (org-download-heading-lvl 0)
  (org-download-timestamp "org_%Y%m%d-%H%M%S_")
  (org-image-actual-width 400)
  (org-download-screenshot-method "xclip -selection clipboard -t image/png -o > '%s'")
	(org-download-image-html-width 400)
	(org-download-image-org-width 400)
  :bind
  ("C-M-y" . org-download-clipboard))

Org-noter + Pdf-tool

(use-package pdf-tools)
(use-package org-noter
	:bind
	("C-c n o" . org-noter))

(use-package org-pdftools
  :hook (org-mode . org-pdftools-setup-link))

(use-package org-noter-pdftools
  :after org-noter
  :config
  ;; Add a function to ensure precise note is inserted
  (defun org-noter-pdftools-insert-precise-note (&optional toggle-no-questions)
    (interactive "P")
    (org-noter--with-valid-session
     (let ((org-noter-insert-note-no-questions (if toggle-no-questions
                                                   (not org-noter-insert-note-no-questions)
                                                 org-noter-insert-note-no-questions))
           (org-pdftools-use-isearch-link t)
           (org-pdftools-use-freepointer-annot t))
       (org-noter-insert-note (org-noter--get-precise-info)))))

  ;; fix https://github.com/weirdNox/org-noter/pull/93/commits/f8349ae7575e599f375de1be6be2d0d5de4e6cbf
  (defun org-noter-set-start-location (&optional arg)
    "When opening a session with this document, go to the current location.
With a prefix ARG, remove start location."
    (interactive "P")
    (org-noter--with-valid-session
     (let ((inhibit-read-only t)
           (ast (org-noter--parse-root))
           (location (org-noter--doc-approx-location (when (called-interactively-p 'any) 'interactive))))
       (with-current-buffer (org-noter--session-notes-buffer session)
         (org-with-wide-buffer
          (goto-char (org-element-property :begin ast))
          (if arg
              (org-entry-delete nil org-noter-property-note-location)
            (org-entry-put nil org-noter-property-note-location
                           (org-noter--pretty-print-location location))))))))
  (with-eval-after-load 'pdf-annot
    (add-hook 'pdf-annot-activate-handler-functions #'org-noter-pdftools-jump-to-note)))

Org-bibtex

bibtex completion system

;;download  org-ref
(use-package org-ref)

;;download helm completion
(use-package helm-bibtex
	:bind
	("C-c h b" . helm-bibtex)
	:custom
	(bibtex-completion-bibliography '("/Users/zhouqiaohui/Documents/MyLibrary.bib"))
	(bibtex-completion-library-path '("~/Notes/RoamNotes/Paper"))
	(bibtex-completion-pdf-field "File")
	(bibtex-completion-notes-path "~/Notes/RoamNotes"))

org-roam-bibtex

This allows roam like citation backlink

(use-package org-roam-bibtex
  :after org-roam
	:hook (org-roam-mode . org-roam-bibtex-mode))

template

(setq orb-preformat-keywords
      '("citekey" "title" "url" "author-or-editor" "keywords" "file")
      orb-process-file-keyword t
      orb-attached-file-extensions '("pdf"))

(setq org-roam-capture-templates
      '(("r" "bibliography reference" plain
         (file "~/Notes/RoamNotes/Templates/cite_temp.org")
         :target
         (file+head "${citekey}.org" "#+title: ${title}\n"))
				("t" "thought" plain
				 (file "~/Notes/RoamNotes/Templates/thought_temp.org")
				 :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n")
				 :unnarrowed t)
				("d" "default" plain
				 "%?"
				 :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n")
				 :unnarrowed t)
				))

other-setting

For the PDF Scrapper, change the formate of the paper key:

(setq orb-autokey-format "%a%T[3]%y")

Org-roam-ui

(use-package org-roam-ui
    :after org-roam
;;         normally we'd recommend hooking orui after org-roam, but since org-roam does not have
;;         a hookable mode anymore, you're advised to pick something yourself
;;         if you don't care about startup time, use
;;  :hook (after-init . org-roam-ui-mode)
    :config
    (setq org-roam-ui-sync-theme t
          org-roam-ui-follow t
          org-roam-ui-update-on-save t
          org-roam-ui-open-on-start t))

Org-protocol

(server-start)
(setq org-directory "~/Notes/")

(defun transform-square-brackets-to-round-ones(string-to-transform)
  "Transforms [ into ( and ] into ), other chars left unchanged."
  (concat 
   (mapcar #'(lambda (c) (if (equal c ?[) ?\( (if (equal c ?]) ?\) c))) string-to-transform))
	)

(global-set-key (kbd "C-c c") 'org-capture)

Agenda

Basic Setup

(setq org-agenda-files (list "~/Notes/Agenda/dailylife.org"
														 "~/.dotfiles/Emacs.org"
														 "~/Notes/blogideas.org"
														 "~/Notes/Questions.org"
														 "~/Notes/RoamNotes/readinglists.org"))
;;Add progress logging to the org-agenda file
;; (setq org-log-done 'note)
(setq org-log-done t)
;;Add captures template
(setq org-capture-templates '(
															("p" "Protocol" entry 
															 (file+headline "~/Notes/captures.org" "Inbox")
															 "* %^{Title}\nSource: %u, %c\n #+BEGIN_QUOTE\n%i\n#+END_QUOTE\n\n\n%?")	
															("L" "Protocol Link" entry 
															 (file+headline "~/Notes/captures.org" "Link")
															 "* %? [[%:link][%(transform-square-brackets-to-round-ones \"%:description\")]]\n")
															("t" "Todo" entry 
															 (file+headline "~/Notes/Agenda/dailylife.org" "Task")
															 "* TODO %?\n %i\n")
															("b" "Blog Idea" plain 
															 (file+headline "~/Notes/blogideas.org" "Inbox")
															 (file "~/Notes/RoamNotes/Templates/blog_temp.org")
															 )
															("f" "emacs problem" plain 
															 (file+headline "~/Notes/captures.org" "Emacs Problems")
															 "- [ ] %?\n")
															))

;;set todo keywords
(setq org-todo-keywords
      '((sequence "TODO(t)" "|" "DONE(d)")
        (sequence "TOREAD(t)" "READING(r)" "|" "CANCELLED(c)" "STALLED(s)" "DONE(d)")
        (sequence "|" "CANCELED(c)")))

;;set faces
(setq org-todo-keyword-faces
			'(("TODO" . (:foreground "white" :background "#238B22" :weight bold))
				("READING" . "yellow")
				("QUE" . (:foreground "red" :background "white" :weight bold))
				("SOMEDAY" . (:forground "#CABCB5" :underline t))))

Super-agenda

(use-package org-ql)
(use-package org-super-agenda
	:hook org-agenda-mode)

(setq org-super-agenda-groups
			'((:name "Priority"
							 :tag "priority"
							 :face (:foreground "#E1B896"  :underline t))
				(:name "Reading List"
							 :file-path "~/Notes/RoamNotes/readinglists.org"
							 :todo "READING")
				(:name "Research"
							 :and (
										 :tag "research"
													:not (
																:todo ("SOMEDAY" "PROJECT"))))
				(:name "Learning"
							 :and(:tag "learning"
												 :not (:todo ("PROJECT" "NEXT"))))
				(:name "Questions to answer"
							 :todo "QUE")
				(:name "Long term plan"
							 :and(:todo "PROJECT"
													:children t))))

Editing

Grammar Check

(use-package lsp-grammarly
  :hook (text-mode . (lambda ()
                       (require 'lsp-grammarly)
                       (lsp))))  ; or lsp-deferred

Syntax Highlighting

(use-package rainbow-delimiters
  :hook (prog-mode . rainbow-delimiters-mode))

Undo Tree

(use-package undo-tree
:ensure t
:init
(global-undo-tree-mode))

Magit

(use-package magit
	:defer t)

Programming

Exec-path-from-shell

(use-package exec-path-from-shell)
(setq exec-path-from-shell-variables '("PATH"))
  (exec-path-from-shell-initialize)

Python

(use-package python-mode
	:custom
	(python-shell-interpreter "/opt/homebrew/opt/[email protected]/bin/python3.10"))
(setq python-shell-completion-native-enable nil)
(setq org-babel-python-command "python3")

Others

Terminal

Eshell

Some links about eshell configuration and tutorial: Eshell Aliases, Prompt and colors, shell setup gitrepo.

	 (defun efs/configure-eshell ()
		 ;; Save command history when commands are entered
		 (add-hook 'eshell-pre-command-hook 'eshell-save-some-history)
		 ;; Truncate buffer for performance
		 (add-to-list 'eshell-output-filter-functions 'eshell-truncate-buffer)

		 (setq eshell-history-size         10000
					 eshell-buffer-maximum-lines 10000
					 eshell-hist-ignoredups t
					 eshell-scroll-to-bottom-on-input t))

	 (use-package eshell-git-prompt)

	 (use-package eshell
		 :bind
		 (:map eshell-mode-map
					 ("C-r" . consult-history)
					 ("<home>" . eshell-bol))
		 :hook (eshell-first-time-mode . efs/configure-eshell)
		 :config
		 (eshell-git-prompt-use-theme 'powerline))

	 (use-package esh-autosuggest
		 :hook (eshell-mode . esh-autosuggest-mode))

Dired

		 (use-package all-the-icons-dired)
		 (use-package dired-rainbow
			 :defer 2
			 :config
			 (dired-rainbow-define-chmod directory "#6cb2eb" "d.*")
			 (dired-rainbow-define html "#eb5286" ("css" "less" "sass" "scss" "htm" "html" "jhtm" "mht" "eml" "mustache" "xhtml"))
			 (dired-rainbow-define xml "#f2d024" ("xml" "xsd" "xsl" "xslt" "wsdl" "bib" "json" "msg" "pgn" "rss" "yaml" "yml" "rdata"))
			 (dired-rainbow-define document "#9561e2" ("docm" "doc" "docx" "odb" "odt" "pdb" "pdf" "ps" "rtf" "djvu" "epub" "odp" "ppt" "pptx"))
			 (dired-rainbow-define markdown "#ffed4a" ("org" "etx" "info" "markdown" "md" "mkd" "nfo" "pod" "rst" "tex" "textfile" "txt"))
			 (dired-rainbow-define database "#6574cd" ("xlsx" "xls" "csv" "accdb" "db" "mdb" "sqlite" "nc"))
			 (dired-rainbow-define media "#de751f" ("mp3" "mp4" "mkv" "MP3" "MP4" "avi" "mpeg" "mpg" "flv" "ogg" "mov" "mid" "midi" "wav" "aiff" "flac"))
			 (dired-rainbow-define image "#f66d9b" ("tiff" "tif" "cdr" "gif" "ico" "jpeg" "jpg" "png" "psd" "eps" "svg"))
			 (dired-rainbow-define log "#c17d11" ("log"))
			 (dired-rainbow-define shell "#f6993f" ("awk" "bash" "bat" "sed" "sh" "zsh" "vim"))
			 (dired-rainbow-define interpreted "#38c172" ("py" "ipynb" "rb" "pl" "t" "msql" "mysql" "pgsql" "sql" "r" "clj" "cljs" "scala" "js"))
			 (dired-rainbow-define compiled "#4dc0b5" ("asm" "cl" "lisp" "el" "c" "h" "c++" "h++" "hpp" "hxx" "m" "cc" "cs" "cp" "cpp" "go" "f" "for" "ftn" "f90" "f95" "f03" "f08" "s" "rs" "hi" "hs" "pyc" ".java"))
			 (dired-rainbow-define executable "#8cc4ff" ("exe" "msi"))
			 (dired-rainbow-define compressed "#51d88a" ("7z" "zip" "bz2" "tgz" "txz" "gz" "xz" "z" "Z" "jar" "war" "ear" "rar" "sar" "xpi" "apk" "xz" "tar"))
			 (dired-rainbow-define packaged "#faad63" ("deb" "rpm" "apk" "jad" "jar" "cab" "pak" "pk3" "vdf" "vpk" "bsp"))
			 (dired-rainbow-define encrypted "#ffed4a" ("gpg" "pgp" "asc" "bfe" "enc" "signature" "sig" "p12" "pem"))
			 (dired-rainbow-define fonts "#6cb2eb" ("afm" "fon" "fnt" "pfb" "pfm" "ttf" "otf"))
			 (dired-rainbow-define partition "#e3342f" ("dmg" "iso" "bin" "nrg" "qcow" "toast" "vcd" "vmdk" "bak"))
			 (dired-rainbow-define vc "#0074d9" ("git" "gitignore" "gitattributes" "gitmodules"))
			 (dired-rainbow-define-chmod executable-unix "#38c172" "-.*x.*"))

		 (use-package dired-single
			 :defer t)

		 (use-package dired-ranger
			 :defer t)

		 (use-package dired-collapse
			 :defer t)


		 (use-package dired-single)

		 (use-package all-the-icons-dired
			 :hook (dired-mode . all-the-icons-dired-mode))

		 (use-package dired-open
			 :config
			 ;; Doesn't work as expected!
			 ;;(add-to-list 'dired-open-functions #'dired-open-xdg t)
			 (setq dired-open-extensions '(("png" . "feh")
																		 ("mkv" . "mpv"))))

Obsidian

(use-package obsidian
  :config
  (obsidian-specify-path "~/Library/Mobile Documents/com~apple~CloudDocs/Obsidian/Research")
  (global-obsidian-mode t)
  :custom
  ;; This directory will be used for `obsidian-capture' if set.
  (obsidian-inbox-directory "Inbox")
  :bind (:map obsidian-mode-map
  ;; Replace C-c C-o with Obsidian.el's implementation. It's ok to use another key binding.
  ("C-c C-o" . obsidian-follow-link-at-point)
  ;; Jump to backlinks
  ("C-c C-b" . obsidian-backlink-jump)
  ;; If you prefer you can use `obsidian-insert-link'
  ("C-c C-l" . obsidian-insert-wikilink)))

link: https://github.com/zzamboni/vita/

For File navigation

(use-package deadgrep
	:bind 
	("C-c n d" . deadgrep))

Export

Blogging with ox-hugo

(use-package ox-hugo         
  :after ox)
(setq org-export-with-broken-links t)

CV with Org-mode

moderncv

(use-package ox-altacv
	:straight (org-cv :type git :host gitlab :repo "Titan-C/org-cv"))

Footnotes

[fn:1] #'foo and 'foo are equivalent when foo is a symbol, but the former is prefered when foo is a function. #' is intended to be a function call. More explanations here.