Add custom faces.

configs/init-org.el

@@ -32,7 +32,11 @@
   ;; (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")
+  (setq org-fontify-quote-and-verse-blocks t) ;; Permitir configuración de bloques quote y verse.
+  (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-end-line nil :underline nil :foreground nil :background nil)
+  (set-face-attribute 'org-block-end-line nil :background 'unspecified)
   (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))
@@ -53,6 +57,16 @@
   (push '("[#B]" . "🔥" ) prettify-symbols-alist)
   (push '("[#C]" . "🐢" ) prettify-symbols-alist)
   (push '("[#D]" . "☕" ) prettify-symbols-alist)
+  (push '("#+begin_quote" . "❝" ) prettify-symbols-alist)
+  (push '("#+end_quote" . "❞" ) prettify-symbols-alist)
+  (push '("#+begin_export" . "📤" ) prettify-symbols-alist)
+  (push '("#+end_export" . "⎯" ) prettify-symbols-alist)
+  (push '("#+begin_comment" . "📝" ) prettify-symbols-alist)
+  (push '("#+end_comment" . "⎯" ) prettify-symbols-alist)
+  (push '("#+begin_src" . "❯" ) prettify-symbols-alist)
+  (push '("#+end_src" . "⎯" ) prettify-symbols-alist)
+  (push '("#+begin_example" . "🦉" ) prettify-symbols-alist)
+  (push '("#+end_example" . "⎯" ) prettify-symbols-alist)
   (prettify-symbols-mode)
   )
 
@@ -225,5 +239,13 @@
               ))
   )
 
+;; Mostrar los caracteres ocultos de org mode al pasar con el cursor.
+(use-package org-appear
+  :defer t
+  :hook (org-mode . org-appear-mode))
+
+;; Polymode para org-mode
+(use-package poly-org)
+
 (provide 'init-org)
 ;;; init-org.el ends here

configs/init-packages.el

@@ -176,14 +176,9 @@
   :defer t
   :hook (dired-mode . nerd-icons-dired-mode))
 
-;; Mecanografía
-(use-package speed-type
-  :defer t
-  :diminish
-  :config
-  (setq speed-type-gb-book-list '(66867 66866 66591 57303)
-        speed-type-min-chars 500
-        speed-type-max-chars 600))
+;; Múltiples modos en un mismo buffer
+(use-package polymode
+  :defer t)
 
 ;; Des-minifica / ordena el código
 (use-package prettier
@@ -298,6 +293,15 @@
           (which-func-mode . nil)))
   )
 
+;; Mecanografía
+(use-package speed-type
+  :defer t
+  :diminish
+  :config
+  (setq speed-type-gb-book-list '(66867 66866 66591 57303)
+        speed-type-min-chars 500
+        speed-type-max-chars 600))
+
 ;; Tree-sitter :)
 (use-package treesit
   :defer t