Skip to content

Latest commit

 

History

History
854 lines (809 loc) · 23.3 KB

config.org

File metadata and controls

854 lines (809 loc) · 23.3 KB

doom emacs config.el

Lexical binding

;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-


;; blank

Config toggles

(load! "~/.doom.d/work.el")
(load! "~/.doom.d/headless.el")

Fixes

(progn
      (defun fix+org/insert-item-below ()
              (interactive)
              (+org/insert-item-above 1)
              (org-metadown 1))

      (map!
              :after evil-org
              :map evil-org-mode-map
              :ni [C-return]   #'fix+org/insert-item-below)

      (map!
              :after org
              :map org-mode-map
              "C-RET"      #'fix+org/insert-item-below
              [C-return]   #'fix+org/insert-item-below))

(defun my-demoted-errors-wrapper (orig-func &rest args)
  "Wrapper function to call FUNC with 'with-demoted-errors'."
  (with-demoted-errors "Error in 'func': %S"
    (apply orig-func args)))

(advice-add 'org-element-at-point :around #'my-demoted-errors-wrapper)

(load! "~/.config/emacs/modules/config/default/+evil-bindings.el")

Personal information

(setq user-full-name "Julian Lopez Carballal")
(if WORK_ENV
    (setq user-mail-address "[email protected]")
    (setq user-mail-address "[email protected]"))

 ;; Calendar starts on monday
(setq calendar-week-start-day 1)

;; blank

Fonts and color themes

(setq doom-font (font-spec :family "FantasqueSansM Nerd Font" :size 14))
(setq doom-unicode-font (font-spec :name "Noto Color Emoji" :size 14))
(setq org-emph-face (font-spec :family "FantasqueSansM Nerd Font" :size 14))
(set-face-attribute 'default nil :family "FantasqueSansM Nerd Font" :height 120)
(set-face-attribute 'variable-pitch nil :family "FantasqueSansM Nerd Font" :height 120)
(setq doom-emoji-fallback-font-families '("Noto Color Emoji" "Noto Emoji" "Apple Color Emoji" "Segoe UI Emoji"))

(if (not HEADLESS)
(progn
        (beacon-mode 1)
        (setq beacon-color "dark orange")
        (load! "~/.doom.d/modules/LectureNotes.el")))
;; blank
(if (string= (shell-command-to-string "/usr/bin/plasma-apply-desktoptheme --list-themes | grep current | grep light || true") "")
        (setq doom-theme 'doom-moonlight)
        (setq doom-theme 'doom-solarized-light)
        )
;; blank
;; blank

Doom config

;; blank
(setq  persp-save-dir (expand-file-name (concat org-directory ".sessions")))
;; blank

org and evil modules

(load! "~/.doom.d/modules/org.el")

(setq org-id-locations-file "~/.config/emacs/.org-id-locations")

(load! "~/.doom.d/modules/org-clock.el")

(map!
      :after org
      :leader
      :desc (documentation 'bh/punch-in) "mcpi" #'bh/punch-in
      :desc (documentation 'bh/punch-out) "mcpo" #'bh/punch-out
      :desc (documentation 'org-timer-set-timer) "mcpp" #'org-timer-set-timer
      :desc (documentation 'org-timer-start) "mcpr" #'org-timer-start
      :desc (documentation 'org-timer-pause-or-continue) "mcps" #'org-timer-pause-or-continue
      :desc (documentation 'org-timer-stop) "mcpk" #'org-timer-stop
      )

(map! :map evil-org-mode-map
      :after evil-org
      :n "g l" #'org-down-element
      :n "]]" #'org-next-visible-heading
      :n "[[" #'org-previous-visible-heading
)

;; From https://github.com/tecosaur/emacs-config/blob/master/config.org#the-utility-of-zero-width-spaces
(map! :map org-mode-map
      :nie "M-SPC M-SPC" (cmd! (insert "\u200B")))

(load! "~/.doom.d/modules/evil.el")
(load! "~/.doom.d/modules/xournalpp.el")
;; blank

org-export and org-caldav

(load! "~/.doom.d/modules/org-export.el")

(load! "~/.doom.d/modules/org-caldav.el")
;; blank

org-roam

(load! "~/.doom.d/modules/org-roam.el")
;; blank

SPC

bo

(map!
      :after org-roam
      :leader
      "bo" #'lytex/revert-buffer-reload-roam)
;; blank

r

(map! :after org-roam
      :leader
      :prefix ("r" . "org-roam")

o

Open org roam sidebar 
:desc (documentation 'org-roam-buffer-toggle) "o" #'org-roam-buffer-toggle

u

;; :desc (documentation 'org-roam-unlinked-references) "u" #'org-roam-unlinked-references

c

:desc (documentation 'org-roam-capture) "c" #'org-roam-capture

i

:desc (documentation 'org-roam-node-insert) "i" #'org-roam-node-insert

r

:desc (documentation 'org-roam-node-find) "r" #'org-roam-node-find

j

:desc (documentation 'lytex/org-roam-open-buffer-at-bottom) "j" #'lytex/org-roam-open-buffer-at-bottom

n

:desc (documentation 'lytex/org-open-new-buffer) "n" #'lytex/org-open-new-buffer

v

:desc (documentation 'lytex/org-follow-link-vsplit) "v" #'lytex/org-follow-link-vsplit

g

:desc (documentation 'org-roam-graph) "g" #'org-roam-graph

m

:desc (documentation 'org-remark-mark) "m" #'org-remark-mark

,

:desc (documentation 'org-remark-view-prev) "," #'(lambda () (interactive) (org-remark-view-prev) (evil-scroll-line-to-center (line-number-at-pos)))

.

:desc (documentation 'org-remark-view-next) "." #'(lambda () (interactive) (org-remark-view-next) (evil-scroll-line-to-center (line-number-at-pos)))

/

:desc (documentation 'org-remark-remove) "/" #'org-remark-remove

;

:desc (documentation 'org-remark-open) ";" #'org-remark-open)

rp

;; blank
(map! :after org-roam
      :leader
      :prefix ("rp" . "lytex/xournalpp")

i

:desc (documentation 'lytex/insert-global-sketch) "i" #'lytex/insert-global-sketch

p

:desc (documentation 'lytex/reset-sketch) "p" #'lytex/reset-sketch)

rf

;; blank
(map! :after org-roam
      :leader
      :prefix ("rf" . "lytex/org-roam-refile")

l

:desc (documentation 'lytex/org-link-and-refile) "l" #'lytex/org-link-and-refile

f

:desc (documentation #'org-roam-refile) "f" #'org-roam-refile

c

:desc (documentation 'lytex/org-refile-to-capture) "c" #'lytex/org-refile-to-capture

o

:desc (documentation 'lytex/org-refile-transclude-own) "o" #'lytex/org-refile-transclude-own

b

:desc (documentation 'lytex/org-link-and-refile-to-capture) "b" #'lytex/org-link-and-refile-to-capture)

rh

;; blank
(map! :after org-roam
      :leader
      :prefix ("rh" . "lytex/org-roam-heading")
;; blank

o

:desc (documentation 'lytex/org-roam-heading-backlinks) "o" #'lytex/org-roam-heading-backlinks

u

;; :desc (documentation 'lytex/org-roam-heading-unlinked-references) "u" #'lytex/org-roam-heading-unlinked-references

l

:desc (documentation 'lytex/org-roam-headings-all) "l" #'lytex/org-roam-headings-all)

org-transclusion

(load! "~/.doom.d/modules/org-transclusion.el"  )

org-remark

(load! "~/.doom.d/modules/org-remark.el"  )

org-edna

(if (not HEADLESS)
(progn
(load! "~/.doom.d/modules/org-edna.el")
;; blank

SPC ee

;; (map!
;;       :leader
;;       :desc (documentation 'org-linker-edna) "ee" #'org-linker-edna)
;; blank

org-journal

;; blank
(load! "~/.doom.d/modules/org-journal.el")
;; blank

SPC

om/jm

(map!
      :after org-journal
      :leader
      "jm" #'org-journal-mode)
(map!
      :leader
      "om" #'org-mode)
;; blank

mj/mJ

(map!
      :after org-journal
      :leader
      :desc (documentation 'org-journal-new-entry)  "mj" #'org-journal-new-entry
      :desc (documentation 'org-journal-new-scheduled-entry)  "mJ " #'org-journal-new-scheduled-entry

j

j

"jj" #'lytex/set-org-journal-J

i

"ji" #'lytex/set-org-journal-I

w

"jw" #'lytex/set-org-journal-W)

p

;; blank
(map! :after org-journal
      :leader
      :desc (documentation 'org-journal-previous-entry) "jp" #'org-journal-previous-entry

n

:desc (documentation 'org-journal-next-entry) "jn" #'org-journal-next-entry)

org-misc

;; blank
(load! "~/.doom.d/modules/org-misc.el")
;; blank

org-ql

;; blank
;; blank
(load! "~/.doom.d/modules/org-ql.el")
;; blank

SPC

oq

(map!
      :after org-ql
      :leader
      :prefix ("oq" . "org-ql-search")

w

:desc (documentation 'org-ql-view)  "w" #'org-ql-view

s

:desc (documentation 'org-ql-view-sidebar)  "s" #'org-ql-view-sidebar

t

:desc (documentation 'org-ql-sparse-tree)  "t" #'org-ql-sparse-tree

q

q is for query 
:desc (documentation 'org-ql-search)  "q" #'org-ql-search

h

:desc (documentation 'org-hyperscheduler-open)  "h" #'org-hyperscheduler-open

r

:desc (documentation 'lytex/reload-org-ql)  "r" #'lytex/reload-org-ql)

rt

;; blank
(map! :after org-ql
      :leader
      :prefix ("rt" . "lytex/org-sparse-tree")
      :desc (documentation 'lytex/org-sparse-tree-full) "j" #'lytex/org-sparse-tree-full
      :desc (documentation 'lytex/org-sparse-tree-almost-full) "k" #'lytex/org-sparse-tree-almost-full
      :desc (documentation 'lytex/org-sparse-tree-trimmed) "l" #'lytex/org-sparse-tree-trimmed
      :desc (documentation 'lytex/org-sparse-sparse-tree) ";" #'lytex/org-sparse-sparse-tree
      :desc (documentation 'lytex/org-sparse-sparse-sparse-tree) "'" #'lytex/org-sparse-sparse-sparse-tree
      :desc (documentation 'lytex/org-jira-assigned) "e" #'lytex/org-jira-assigned
)

helm-rg/helm-ag

;; blank

(use-package! helm-rg)
(use-package! helm-ag
  :custom
 (helm-ag-base-command "rg --no-heading")
 (helm-ag-success-exit-status '(0 2)))

SPC nrg / nrh

(setq helm-rg-default-directory org-directory)
(setq helm-ag--default-directory org-directory)
(map! :after helm
      :leader
      :desc (documentation 'helm-rg) "nrg" #'helm-rg
      :desc (documentation 'helm-ag) "nrh" #'helm-ag)

pdf

All pdf-annot-add-*-markup keybindings are in the left hand. The idea is to use the left hand to select an annotation and use the mouse on the right hand to select where to place it 
(use-package! pdf-info)
(if
  (file-executable-p pdf-info-epdfinfo-program)
(progn
  (load! "~/.doom.d/modules/pdf.el")
  (after! (pdf-tools)
  (map! :leader
        :mode (pdf-view-mode)
        :prefix ("a" . "annotations in pdf")
        :desc (documentation 'pdf-annot-add-markup-annotation)
        "a" #'lytex/pdf-annot-add-markup-annotation
        :desc (documentation 'pdf-annot-add-squiggly-markup-annotation)
        "g" #'lytex/pdf-annot-add-squiggly-markup-annotation
        :desc (documentation 'pdf-annot-add-highlight-markup-annotation)
        "f" #'lytex/pdf-annot-add-highlight-markup-annotation
        :desc (documentation 'pdf-annot-add-strikeout-markup-annotation)
        "s" #'lytex/pdf-annot-add-strikeout-markup-annotation
        :desc (documentation 'pdf-annot-add-underline-markup-annotation)
        "d" #'lytex/pdf-annot-add-underline-markup-annotation
        :desc (documentation 'lytex/join-org-headline-previous)
        "p" #'lytex/join-org-headline-previous
        :desc (documentation 'lytex/join-org-headline-next)
        "n" #'lytex/join-org-headline-next)


  (map! :leader
        :mode (pdf-view-mode)
        :prefix "p"
        :desc (documentation 'pdf-history-backward)  "[" #'pdf-history-backward
        :desc (documentation 'pdf-history-forward)  "]" #'pdf-history-forward))

  (after! org-noter
        (map! :leader
        :prefix ("on" . "org-noter")
        :desc (documentation 'org-noter-sync-current-note) "s" #'org-noter-sync-current-note
        :desc (documentation 'org-noter-sync-prev-note) "p" #'org-noter-sync-prev-note
        :desc (documentation 'org-noter-sync-next-note) "n" #'org-noter-sync-next-note
        :desc (documentation 'org-noter-insert-precise-note) "i" #'org-noter-insert-precise-note
        :desc (documentation 'org-noter-kill-session) "q" #'org-noter-kill-session))))
;; blank

anki

(load! "~/.doom.d/modules/anki.el")
(after! org
  (use-package! org-anki)
  (map! :leader
        :mode (org-mode)
        :prefix ("a" . "anki")
        :desc (documentation 'org-anki-cloze-dwim) "RET" #'org-anki-cloze-dwim
        :desc (documentation 'org-anki-sync-entry) "s" #'org-anki-sync-entry
        :desc (documentation 'org-anki-sync-all) "S" #'org-anki-sync-all))

latex

(setq tex-fontify-script nil)
(setq font-latex-fontify-script nil)

misc

(use-package! highlight-indent-guides
  :hook (prog-mode . highlight-indent-guides-mode)
  :init
  (setq highlight-indent-guides-method 'character))

(add-hook 'ediff-load-hook
              (lambda ()
                (set-face-background
                  ediff-current-diff-face-A  "red")
                (set-face-background
                  ediff-current-diff-face-B "blue")))

;; (use-package! activity-watch-mode)
;; (global-activity-watch-mode)


(load! "~/.doom.d/habitica.el")

;; (load! "~/.doom.d/modules/excorporate.el")

;; (if WORK_ENV
;;   (use-package! org-trello))

;; (if WORK_ENV
;;   (load! "~/.doom.d/jira.el"))

(use-package! emojify)

(add-hook 'after-init-hook #'global-emojify-mode)

(defun lytex/disable-emojify (match &rest ignored)
  (or (string= match "↔") (string= match "↖") (string= match "↗") (string= match "↘") (string= match "↙")))

(add-hook 'emojify-inhibit-functions #'lytex/disable-emojify)

(use-package! vimrc-mode)
(add-to-list 'auto-mode-alist '("\\.vim\\(rc\\)?\\'" . vimrc-mode))




Personal/Work profiles


(defun lytex/toggle-work ()
  "Toggle work profile"
  (interactive)
  (setq WORK_ENV (not WORK_ENV))
  (lytex/reload-org-ql))
(map!
      :after org-ql
      :leader
      :desc (documentation 'lytex/toggle-work) "tw" #'lytex/toggle-work)


Toggle mappings


(map!
      :leader
      :desc (documentation #'org-fold-hide-drawer-all) "tp" #'(lambda () (interactive) (org-fold-hide-drawer-all))
      :desc (documentation #'org-cycle-hide-drawers)  "tP" #'(lambda () (interactive) (org-cycle-hide-drawers 'all)))


Headless mode


)


(progn
  ;; Packages I want to have in headless mode too
(use-package! ob-plantuml
  :config
  (setq org-plantuml-jar-path "/usr/share/java/plantuml/plantuml.jar"))
  )


)


Convenience functions


Remove advice from functions


;; From https://emacs.stackexchange.com/a/33344:
(defun yf/advice-list (symbol)
  (let (result)
    (advice-mapc
     (lambda (ad props)
       (push ad result))
     symbol)
    (nreverse result)))

(defun yf/kill-advice (symbol advice)
  "Kill ADVICE from SYMBOL."
  (interactive (let* ((sym (intern (completing-read "Function: " obarray #'yf/advice-list t)))
                      (advice (let ((advices-and-their-name
                                     (mapcar (lambda (ad) (cons (prin1-to-string ad)
                                                                ad))
                                             (yf/advice-list sym))))
                                (cdr (assoc (completing-read "Remove advice: " advices-and-their-name nil t)
                                            advices-and-their-name)))))
                 (list sym advice)))
  (advice-remove symbol advice))

;; blank


Remove overlays


(defun lytex/remove-all-overlays ()
  "Remove all overlays in the current buffer."
  (interactive)
  (remove-overlays (point-min) (point-max)))


Get face at point


;; Disable hl-mode or all faces will be the same!
(defun what-face (pos)
  (interactive "d")
  (let ((face (or (get-char-property (point) 'read-face-name)
                  (get-char-property (point) 'face))))
    (if face (message "Face: %s" face) (message "No face at %d" pos))))


Activate org-rainbow-tags


;; This needs to be called at the end, otherwise I get this error:
;; Error (org-mode-hook): Error running hook "org-rainbow-tags-mode" because: (wrong-number-of-arguments #<subr min> 0)
;; File mode specification error: (doom-hook-error org-mode-hook org-rainbow-tags-mode (wrong-number-of-arguments #<subr min> 0))
(add-hook 'org-mode-hook 'org-rainbow-tags-mode)


Fixes


(progn

      (map!
              :after evil-org
              :map evil-org-mode-map
              :n [return]   #'+org/dwim-at-point)

      )


Local Variables


Replace all ocurrences of “;; blank” with blank space
  There is no way to control blank space AFAIK:
  https://emacs.stackexchange.com/questions/31738/org-mode-babel-ensure-more-than-one-empty-line-between-tangled-code-blocks-fo