Compare commits

...

4 Commits

Author SHA1 Message Date
KJ
9399a3e372 Move function inside the apropiate block. 2023-09-30 17:47:50 -04:00
KJ
5aedee6f8e Remove some prettify-symbols. 2023-09-30 17:46:46 -04:00
KJ
7658e199fc Comment not necesary lines. 2023-09-30 17:45:42 -04:00
KJ
fc5afd432d Disable variable-pitch-mode.
It causes bad indentation.
2023-09-30 17:44:13 -04:00

View File

@ -21,7 +21,7 @@
"Configuración para el hook de 'org-mode'." "Configuración para el hook de 'org-mode'."
(display-line-numbers-mode 0) (display-line-numbers-mode 0)
(variable-pitch-mode 1) ;; (variable-pitch-mode 1)
(visual-line-mode 1) (visual-line-mode 1)
(visual-fill-column-mode 1) (visual-fill-column-mode 1)
@ -36,13 +36,20 @@
(set-face-attribute 'org-block nil :underline nil :foreground nil :background "#282a36") (set-face-attribute 'org-block nil :underline nil :foreground nil :background "#282a36")
;; (set-face-attribute 'org-block-begin-line nil :underline nil :foreground nil :background "#1e1f28") ;; (set-face-attribute 'org-block-begin-line nil :underline nil :foreground nil :background "#1e1f28")
;; (set-face-attribute 'org-block-end-line nil :underline nil :foreground nil :background nil) ;; (set-face-attribute 'org-block-end-line nil :underline nil :foreground nil :background nil)
(set-face-attribute 'org-block-end-line nil :background 'unspecified) ;; (set-face-attribute 'org-block-end-line nil :background 'unspecified)
(set-face-attribute 'org-table 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-verbatim nil :inherit '(shadow fixed-pitch))
(set-face-attribute 'org-special-keyword nil :inherit '(font-lock-comment-face 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-meta-line nil :inherit '(font-lock-comment-face fixed-pitch))
(set-face-attribute 'org-checkbox nil :inherit 'fixed-pitch) (set-face-attribute 'org-checkbox nil :inherit 'fixed-pitch)
;; (set-face-attribute 'org-block nil :background
;; (color-darken-name
;; (face-attribute 'default :background) 3))
;; (setq org-src-block-faces '(("emacs-lisp" (:background "#EEE2FF"))
;; ("python" (:background "#E5FFB8"))))
;; Tachar los elementos "DONE" ;; Tachar los elementos "DONE"
(set-face-attribute 'org-done nil :strike-through t) (set-face-attribute 'org-done nil :strike-through t)
(set-face-attribute 'org-headline-done nil (set-face-attribute 'org-headline-done nil
@ -57,16 +64,16 @@
(push '("[#B]" . "🔥" ) prettify-symbols-alist) (push '("[#B]" . "🔥" ) prettify-symbols-alist)
(push '("[#C]" . "🐢" ) prettify-symbols-alist) (push '("[#C]" . "🐢" ) prettify-symbols-alist)
(push '("[#D]" . "" ) prettify-symbols-alist) (push '("[#D]" . "" ) prettify-symbols-alist)
(push '("#+begin_quote" . "" ) prettify-symbols-alist) ;; (push '("#+begin_quote" . "❝" ) prettify-symbols-alist)
(push '("#+end_quote" . "" ) prettify-symbols-alist) ;; (push '("#+end_quote" . "❞" ) prettify-symbols-alist)
(push '("#+begin_export" . "📤" ) prettify-symbols-alist) ;; (push '("#+begin_export" . "📤" ) prettify-symbols-alist)
(push '("#+end_export" . "" ) prettify-symbols-alist) ;; (push '("#+end_export" . "⎯" ) prettify-symbols-alist)
(push '("#+begin_comment" . "📝" ) prettify-symbols-alist) ;; (push '("#+begin_comment" . "📝" ) prettify-symbols-alist)
(push '("#+end_comment" . "" ) prettify-symbols-alist) ;; (push '("#+end_comment" . "⎯" ) prettify-symbols-alist)
(push '("#+begin_src" . "" ) prettify-symbols-alist) ;; (push '("#+begin_src" . "" ) prettify-symbols-alist)
(push '("#+end_src" . "" ) prettify-symbols-alist) ;; (push '("#+end_src" . "⎯" ) prettify-symbols-alist)
(push '("#+begin_example" . "🦉" ) prettify-symbols-alist) ;; (push '("#+begin_example" . "🦉" ) prettify-symbols-alist)
(push '("#+end_example" . "" ) prettify-symbols-alist) ;; (push '("#+end_example" . "⎯" ) prettify-symbols-alist)
(prettify-symbols-mode) (prettify-symbols-mode)
) )
@ -141,7 +148,12 @@
(setq org-startup-with-inline-images t) ;; Mostrar por defecto las 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-display-remote-inline-images 'cache) ;; Mostrar imágenes remotas
(setq org-image-actual-width 512) (setq org-image-actual-width 512)
)
;; Org-yt para soportar embebidos.
(use-package org-yt
:elpaca (:host github :repo "TobiasZawada/org-yt")
:config
(defun org-http-image-data-fn (protocol link _description) (defun org-http-image-data-fn (protocol link _description)
"Interpret LINK as an URL to an image file." "Interpret LINK as an URL to an image file."
(when (and (image-type-from-file-name link) (when (and (image-type-from-file-name link)
@ -153,12 +165,6 @@
(buffer-substring-no-properties (point) (point-max))) (buffer-substring-no-properties (point) (point-max)))
(message "Download of image \"%s\" failed" link) (message "Download of image \"%s\" failed" link)
nil))) nil)))
)
;; Org-yt para soportar embebidos.
(use-package org-yt
:elpaca (:host github :repo "TobiasZawada/org-yt")
:config
(org-link-set-parameters "http" :image-data-fun #'org-http-image-data-fn) (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) (org-link-set-parameters "https" :image-data-fun #'org-http-image-data-fn)
) )