You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
195 lines
8.2 KiB
195 lines
8.2 KiB
;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-
|
|
|
|
;; Place your private configuration here! Remember, you do not need to run 'doom
|
|
;; sync' after modifying this file!
|
|
|
|
|
|
;; Some functionality uses this to identify you, e.g. GPG configuration, email
|
|
;; clients, file templates and snippets.
|
|
(setq user-full-name "Ian Mancini"
|
|
user-mail-address "ianmethyst@gmail.com")
|
|
|
|
;; Doom exposes five (optional) variables for controlling fonts in Doom. Here
|
|
;; are the three important ones:
|
|
;;
|
|
;; + `doom-font'
|
|
;; + `doom-variable-pitch-font'
|
|
;; + `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:
|
|
(setq doom-font (font-spec :family "{{typography.mono.font}}" :size {{typography.mono.size}}))
|
|
;; doom-variable-pitch-font (font-spec :family "sans" :size 13))
|
|
|
|
;; 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:
|
|
(setq doom-theme '{{colors.emacs_colorscheme}})
|
|
(setq doom-themes-treemacs-theme "doom-colors")
|
|
|
|
;; If you use `org' and don't want your org files in the default location below,
|
|
;; change `org-directory'. It must be set before org loads!
|
|
(setq org-directory "~/.org/")
|
|
|
|
;; This determines the style of line numbers in effect. If set to `nil', line
|
|
;; numbers are disabled. For relative line numbers, set this to `relative'.
|
|
(setq display-line-numbers-type t)
|
|
|
|
|
|
;; 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
|
|
;;
|
|
;; To get information about any of these functions/macros, move the cursor over
|
|
;; the highlighted symbol at press 'K' (non-evil users must press 'C-c c k').
|
|
;; This will open documentation for it, including demos of how they are used.
|
|
;;
|
|
;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how
|
|
;; they are implemented.
|
|
|
|
|
|
(use-package! org)
|
|
(use-package! org-clock)
|
|
|
|
(after! org
|
|
(setq org-modules '(ol-w3m ol-bbdb ol-bibtex ol-docview ol-gnus ol-info ol-irc ol-mhe ol-rmail ol-eww ol-bibtex))
|
|
(setq org-latex-pdf-process (list "latexmk -shell-escape -bibtex -f -pdf %f"))
|
|
(add-hook 'org-mode-hook 'visual-line-mode)
|
|
(add-hook 'org-mode-hook '(lambda () (setq fill-column 80)))
|
|
(add-hook 'org-mode-hook 'turn-on-auto-fill)
|
|
(setq org-ellipsis " ... "
|
|
org-bullets-bullet-list '("⁖")
|
|
org-todo-keywords '((sequence "TODO(t)" "NEXT(n)" "WIP(i)" "INACTIVE(x)" "WAITING(w)" "|" "DONE(d)" "CANCELLED(c)"))
|
|
org-todo-keyword-faces
|
|
'(("TODO" :inherit +org-todo-onhold :weight normal :underline t)
|
|
("NEXT" :inherit +org-todo-onhold :weight normal :underline t)
|
|
("WIP" :inherit org-todo :weight normal :underline t)
|
|
("WAITING" :inherit +org-todo-active :weight normal :underline t)
|
|
("INACTIVE" :inherit +org-todo-active :weight normal :underline t)
|
|
("DONE" :inherit +org-todo-project :weight normal :underline t)
|
|
("CANCELLED" :inherit org-priority :weight normal :underline t))
|
|
)
|
|
(setq org-log-done 'time)
|
|
(setq org-agenda-files (apply 'append
|
|
(mapcar
|
|
(lambda (directory)
|
|
(directory-files-recursively
|
|
directory org-agenda-file-regexp))
|
|
'("~/.org/work/" "~/.org/projects/" "~/.org/learning/" "~/.org/calendars" "~/.org/conferences/"))))
|
|
)
|
|
|
|
(use-package! org-fancy-priorities
|
|
:after org
|
|
:ensure t
|
|
:hook
|
|
(org-mode . org-fancy-priorities-mode)
|
|
:config
|
|
(setq org-fancy-priorities-list '("▴" "▸" "▾")))
|
|
|
|
(use-package! org-bullets
|
|
:after org
|
|
:config
|
|
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1))))
|
|
|
|
(use-package! org-ref
|
|
:after org
|
|
:config
|
|
(setq bibtex-completion-pdf-field 'file)
|
|
(defun my/org-ref-open-pdf-at-point ()
|
|
"Open the pdf for bibtex key under point if it exists."
|
|
(interactive)
|
|
(let* ((results (org-ref-get-bibtex-key-and-file))
|
|
(key (car results))
|
|
(pdf-file (car (bibtex-completion-find-pdf key))))
|
|
(if (file-exists-p pdf-file)
|
|
(find-file pdf-file) ; original in org-ref-help,
|
|
; opens external viewer (org-open-file pdf-file)
|
|
(message "No PDF found for %s" key))))
|
|
(setq org-ref-open-pdf-function 'find-file)
|
|
|
|
(setq bibtex-file "~/.org/biblio.bib"
|
|
bibtex-completion-bibliography bibtex-file
|
|
reftex-default-bibliography bibtex-file
|
|
org-ref-default-bibliography (list bibtex-file)
|
|
org-ref-completion-library 'org-ref-ivy-cite
|
|
org-ref-bibliography-notes "~/.org/biblio-notes.org"
|
|
org-ref-pdf-directory "~/.org/biblio-pdfs/")
|
|
)
|
|
|
|
(use-package! org-roam
|
|
:after org
|
|
:config
|
|
(setq org-roam-db-location "/home/ianmethyst/.local/share/emacs/org-roam.db"))
|
|
|
|
|
|
(setq deft-directory "~/.org"
|
|
deft-recursive t)
|
|
|
|
(setq undo-limit 100000000 ; Raise undo-limit to 100mb
|
|
evil-want-fine-undo nil) ; By default while in insert all changes are one big blob. Be more granular
|
|
|
|
(setq-default delete-by-moving-to-trash t) ; Delete files to trash
|
|
|
|
(defvar holiday-custom-holidays nil
|
|
"Custom holidays")
|
|
|
|
(setq holiday-custom-holidays
|
|
'((holiday-fixed 1 1 "Año nuevo")
|
|
(holiday-fixed 2 14 "San Valentín")
|
|
(holiday-fixed 3 24 "Día Nacional de la Memoria por la Verdad y la Justicia")
|
|
(holiday-fixed 4 1 "April Fools")
|
|
(holiday-fixed 4 2 "Día del Veterano y de los Caídos en la Guerra de Malvinas")
|
|
(holiday-fixed 5 1 "Día de lx trabajadorx")
|
|
(holiday-fixed 5 25 "Día de la Revolución de Mayo")
|
|
(holiday-fixed 6 17 "Paso a la Inmortalidad del General Martín Miguel de Güemes")
|
|
(holiday-fixed 6 20 "Paso a la Inmortalidad del General Manuel Belgrano")
|
|
(holiday-fixed 7 9 "Día de la Independencia")
|
|
(holiday-fixed 8 17 "Paso a la Inmortalidad del General José de San Martín")
|
|
(holiday-fixed 9 11 "Día de lx Maestrx")
|
|
(holiday-fixed 9 21 "Día de lx Estudiante")
|
|
(holiday-fixed 10 12 "Día del Respeto a la Diversidad Cultural")
|
|
(holiday-fixed 10 31 "Halloween")
|
|
(holiday-fixed 11 20 "Día de la Soberanía Nacional")
|
|
(holiday-fixed 12 8 "Día de la Inmaculada Concepción de María")
|
|
(holiday-fixed 12 25 "Navidad")))
|
|
|
|
(setq calendar-holidays holiday-custom-holidays)
|
|
|
|
|
|
(use-package! org-caldav
|
|
:after org
|
|
:config
|
|
(setq org-caldav-url "https://nextcloud.trov.ar/remote.php/dav/calendars/ianmethyst/"
|
|
org-caldav-calendar-id "contact_birthdays"
|
|
inbox-file (concat org-directory "calendars/nextcloud-caldav.org")
|
|
org-caldav-files (list inbox-file)
|
|
org-caldav-inbox inbox-file
|
|
org-icalendar-timezone "America/Buenos_Aires"
|
|
org-caldav-sync-direction 'cal->org)
|
|
|
|
(defun fix-birthdays-timestamps ()
|
|
"Fix birthdays fetched from nextcloud with org-caldav not being repeating events."
|
|
(let (birthdays-buffer find-replace)
|
|
;; FIXME: This assumes the file exists
|
|
(setq birthdays-buffer (find-file-other-window (concat org-directory "calendars/nextcloud-caldav.org")))
|
|
;; NOTE: Remove repeating timestamps in case this function was executed previously
|
|
(setq find-replace (lambda (patt newtext)
|
|
(goto-char (point-min)) ;; In case buffer is open
|
|
(while (search-forward-regexp patt nil t)
|
|
(replace-match newtext nil t))))
|
|
(funcall #'find-replace "\\s-+\\+1y>" ">")
|
|
(funcall #'find-replace ">" " +1y>")
|
|
(save-buffer)))
|
|
|
|
(advice-add
|
|
'org-caldav-sync
|
|
:after
|
|
#'fix-birthdays-timestamps))
|