confi-emacs-actual/configs/init-org.el

252 lines
8.0 KiB
EmacsLisp
Raw Normal View History

2022-11-19 04:33:22 +01:00
;;; init-config.el --- Configuración de org-mode -*- lexical-binding: t -*-
;; Author: kj <webmaster@outcontrol.net>
;; URL: https://git.kj2.me/kj/confi-emacs-actual
;;; Commentary:
2023-04-14 18:39:19 +02:00
;; Aquí se encuentran todas las configuraciones relacionadas a org-mode.
;;
;; org-mode es un de los reclamos más potentes de Emacs. Aunque solo es
;; un formato de texto enrriquecido, básicamente algo similar a
;; markdown, Emacs es el que lo ha llevado muy bien y probalemente el que
;; mejor lo soporta.
;;
;; Cabe mencionar que este modo es también el predefinido para todo un
;; ecosistema dentro de Emacs, como es el caso de la agenda o la base de
;; conocimientos org-roam.
;;; Code:
(defun kj/org-hook ()
"Configuración para el hook de 'org-mode'."
2022-05-04 05:23:46 +02:00
(display-line-numbers-mode 0)
(variable-pitch-mode 1)
(visual-line-mode 1)
(visual-fill-column-mode 1)
2022-05-04 05:23:46 +02:00
;; Configuración de fonts
2022-05-05 07:59:45 +02:00
;; (set-face-attribute (car face) nil :font "Cantarell" :weight 'regular :height (cdr face))
2022-05-04 05:23:46 +02:00
;; Ensure that anything that should be fixed-pitch in Org files appears that way
2023-04-14 02:39:58 +02:00
;; (set-face-attribute 'org-hide nil :inherit 'fixed-pitch)
;; (set-face-attribute 'org-block nil :foreground 'unspecified :inherit 'fixed-pitch)
;; (set-face-attribute 'org-code nil :inherit '(shadow fixed-pitch))
(set-face-attribute 'org-block nil :underline nil :foreground nil :background "#1e1f28")
2022-05-04 05:23:46 +02:00
(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)
;; Tachar los elementos "DONE"
(set-face-attribute 'org-done nil :strike-through t)
(set-face-attribute 'org-headline-done nil
:strike-through t
:foreground "light gray")
2022-05-05 07:59:45 +02:00
)
;; org-mode
(use-package org
:defer t
2022-05-27 23:04:28 +02:00
:straight (:type built-in)
:bind (("C-c a" . org-agenda)
2022-12-16 06:15:05 +01:00
("C-c c" . org-capture))
:hook
(org-mode . kj/org-hook)
:config
(setq company-dabbrev-ignore-case nil) ; Hacer el autocompletado case-sensitive.
(setq org-ellipsis "")
(setq org-hide-emphasis-markers t)
;;(setq org-startup-folded 'content)
(setq org-agenda-start-with-log-mode t)
(setq org-log-done 'time)
(setq org-log-into-drawer t)
2022-07-17 22:12:43 +02:00
(setq org-cycle-separator-lines -1)
2022-05-04 05:23:46 +02:00
;; Identación
2022-05-05 07:59:45 +02:00
(setq org-startup-indented t)
(setq org-src-preserve-indentation nil)
(setq org-edit-src-content-indentation 0)
(setq org-src-tab-acts-natively t)
;; Palabras claves del To Do de org-mode
(setq org-todo-keywords
;;'((sequence "☐" "✔" "⌛" "❌")))
'((sequence "TODO(t)" "DOING(n)" "WAITING(w)" "|" "DONE(d!)" "CANCELED(c!)")))
(setq org-todo-keyword-faces
'(("TODO" . "#ff6464")
("DOING" . "yellow")
("DONE" . "green")
("WAITING" . "orange")
("CANCELED" . "#aaa"))
)
2022-05-04 05:23:46 +02:00
;; Embellecer los checkbox
2022-05-05 07:59:45 +02:00
;; (add-hook 'org-mode-hook (lambda ()
;; "Beautify Org Checkbox Symbol"
;; (push '("[ ]" . "☐") prettify-symbols-alist)
;; (push '("[X]" . "☑" ) prettify-symbols-alist)
;; (push '("[-]" . "❍" ) prettify-symbols-alist)
;; (prettify-symbols-mode)))
2022-05-04 05:23:46 +02:00
;; Tachar los checkbox marcados como terminados
(defface org-checkbox-done-text
'((t (:foreground "#71696A" :strike-through t)))
"Face for the text part of a checked org-mode checkbox.")
(font-lock-add-keywords
'org-mode
`(("^[ \t]*\\(?:[-+*]\\|[0-9]+[).]\\)[ \t]+\\(\\(?:\\[@\\(?:start:\\)?[0-9]+\\][ \t]*\\)?\\[\\(?:X\\|\\([0-9]+\\)/\\2\\)\\][^\n]*\n\\)"
1 'org-checkbox-done-text prepend))
'append)
;; Archivos a usarse en org-agenda
(setq org-agenda-files
'("~/Documentos/ORG/Agenda/Tareas.org")
)
;; Archivos entre los que se moverán las tareas
(setq org-refile-targets
'(("Archivo.org" :maxlevel . 1)
("Ideas.org" :maxlevel . 1)
("Tareas.org" :maxlevel . 1)))
;; Guardar los archivos cuando se muevan tareas entre ellos
(advice-add 'org-refile :after 'org-save-all-org-buffers)
(setq org-capture-templates
2022-06-27 22:00:04 +02:00
`(("t" "Tareas")
2022-05-10 02:28:50 +02:00
("tt" "Tareas" entry (file+olp "~/Documentos/ORG/Agenda/Tareas.org")
"* TODO %? \n %a\n %i" :empty-lines 1)
("i" "Ideas")
("ii" "Ideas" entry (file+olp "~/Documentos/ORG/Agenda/ideas.org")
"* TODO %? \n %a\n %i" :empty-lines 1)
)
)
2022-09-07 03:57:18 +02:00
;; Configuración de imágenes
(setq org-startup-with-inline-images t) ;; Mostrar por defecto las imágenes
(setq org-display-remote-inline-images 'cache) ;; Mostrar imágenes remotas
(setq org-image-actual-width 512)
(defun org-http-image-data-fn (protocol link _description)
"Interpret LINK as an URL to an image file."
(when (and (image-type-from-file-name link)
(not (eq org-display-remote-inline-images 'skip)))
(if-let (buf (url-retrieve-synchronously (concat protocol ":" link)))
(with-current-buffer buf
(goto-char (point-min))
(re-search-forward "\r?\n\r?\n" nil t)
(buffer-substring-no-properties (point) (point-max)))
(message "Download of image \"%s\" failed" link)
nil)))
(org-link-set-parameters "http" :image-data-fun #'org-http-image-data-fn)
(org-link-set-parameters "https" :image-data-fun #'org-http-image-data-fn)
(use-package org-yt
:straight (org-yt :type git :host github :repo "TobiasZawada/org-yt"))
)
;; Los head "*" se ven como puntos
2022-05-04 05:23:46 +02:00
(use-package org-bullets
2022-05-05 07:59:45 +02:00
:defer t
2022-05-27 23:04:28 +02:00
:straight t
:hook
2022-05-04 05:23:46 +02:00
(org-mode . org-bullets-mode))
(use-package visual-fill-column
2022-05-27 23:04:28 +02:00
:straight t
2023-04-14 00:31:51 +02:00
:defer t
:after (org)
:config
;; Tamaño de la columna
2022-05-05 07:59:45 +02:00
(setq-default visual-fill-column-width 150)
;; Centrar el texto
2023-04-14 00:31:51 +02:00
(setq-default visual-fill-column-center-text t
visual-fill-column-adjust-for-text-scale nil
visual-fill-column-enable-sensible-window-split t)
)
;; Segundo cerebro: Base de conocimientos en formato Zettelkasten
2022-05-06 02:04:23 +02:00
(use-package org-roam
:defer t
2022-05-27 23:04:28 +02:00
:straight t
2022-05-06 02:04:23 +02:00
:ensure t
:bind (("<f4>" . org-roam-node-insert)
("<f3>" . org-roam-node-find))
2022-05-06 02:04:23 +02:00
:init
(setq org-roam-v2-ack t)
(setq org-roam-completion-system 'ivy)
:custom
2022-05-10 02:28:50 +02:00
(org-roam-directory "~/Documentos/ORG/Notas")
2022-05-06 02:04:23 +02:00
(org-roam-completion-everywhere t)
:config
(org-roam-setup))
;; Interface web para navegar en mi base de conocimientos.
(use-package org-roam-ui
:defer t
2022-05-27 23:04:28 +02:00
:straight t
:ensure t
: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))
;; Continúa el formato de la lista cuando presionas enter.
2022-06-27 22:00:04 +02:00
(use-package org-autolist
:straight t
:ensure t
:hook (org-mode . org-autolist-mode))
;; Emojis en lugar de letras para las prioridades en org-mode.
(use-package org-fancy-priorities
:straight t
:defer t
:ensure t
:hook (org-mode . org-fancy-priorities-mode)
:config
(setq org-highest-priority ?A
org-default-priority ?B
org-lowest-priority ?D
org-fancy-priorities-list '("" "" "" ""))
)
2023-04-14 00:31:51 +02:00
;; Org mode en modo presentación
(use-package org-present
:straight t
:defer t
:after (org)
:config
(add-hook 'org-present-mode-hook
(lambda ()
(org-display-inline-images)
(org-present-hide-cursor)
(org-present-read-only)
))
(add-hook 'org-present-mode-quit-hook
(lambda ()
;; (org-remove-inline-images)
(org-present-show-cursor)
(org-present-read-write)))
(add-hook 'org-present-after-navigate-functions
(lambda ()
;; Show only top-level headlines
(org-overview)
;; Unfold the current entry
(org-show-entry)
;; Show only direct subheadings of the slide but don't expand them
(org-show-children)
))
)
2022-11-19 04:33:22 +01:00
(provide 'init-org)
;;; init-org.el ends here