From 443028eeab3dd7dde52bf37923b0a192e6bdc78e Mon Sep 17 00:00:00 2001
From: Gerardo Marx <gmarx_cc@itmorelia.edu.mx>
Date: Mon, 27 Jul 2020 23:06:43 -0500
Subject: [PATCH] org facets and dicts, but some problems

---
 .emacs | 35 +++++++++++++++++++++++++----------
 1 file changed, 25 insertions(+), 10 deletions(-)

diff --git a/.emacs b/.emacs
index f1ec6e6..4aeb84e 100644
--- a/.emacs
+++ b/.emacs
@@ -155,20 +155,35 @@
 (use-package org-bullets
   :ensure t
   :init
-  (setq org-support-shift-select t)
-  :hook
-  (org-mode . org-bullets-mode))
+  (setq org-support-shift-select t))
+;;  :hook
+;;  (org-mode . org-bullets-mode))
 ;; org configuration:
 (setq org-agenda-files '("~/beorg/phd.org" "~/beorg/students.org" "~/beorg/inbox.org" "~/beorg/academia.org"))
 (add-hook 'org-mode-hook
 	  (lambda()
 	    ;; dictionary
-	    (ispell-dictionary "en")
+	    (org-bullets-mode 1)
+	    (ispell-change-dictionary "en")
 	    (setq org-image-actual-width nil)
 	    (setq org-format-latex-options (plist-put org-format-latex-options :scale 1.5))
 	    (setq org-latex-create-formula-image-program 'imagemagick)
 	    (setq org-startup-indented t) ; Enable `org-indent-mode' by default
-	    (add-hook 'org-mode-hook 'visual-line-mode)
+	    (visual-line-mode 1)
+	    ;;
+	    ;; Finally, we set up a nice proportional font, in different sizes, for the headlines. 
+	    (custom-theme-set-faces
+	     'user
+	     '(org-level-8 ((t (,@headline ,@variable-tuple))))
+	     '(org-level-7 ((t (,@headline ,@variable-tuple))))
+	     '(org-level-6 ((t (,@headline ,@variable-tuple))))
+	     '(org-level-5 ((t (,@headline ,@variable-tuple))))
+	     '(org-level-4 ((t (,@headline ,@variable-tuple :height 1.1))))
+	     '(org-level-3 ((t (,@headline ,@variable-tuple :height 1.12))))
+	     '(org-level-2 ((t (,@headline ,@variable-tuple :height 1.15))))
+	     '(org-level-1 ((t (,@headline ,@variable-tuple :height 1.25))))
+	     '(org-document-title ((t (,@headline ,@variable-tuple :height 1.5 :underline nil)))))	    
+	    ;;
 	    ))
 ;; Company-mode
 (use-package company
@@ -176,9 +191,9 @@
   :init
   (add-hook 'after-init-hook 'global-company-mode))
 ;; ispell
-;;(dolist (hook '(org-mode-hook latex-mode-hook tex-mode-hook git-commit-mode-hook))
-;;	(add-hook hook (lambda () (flyspell-mode 1))))
-(setq ispell-dictionary "en")
+(dolist (hook '(org-mode-hook latex-mode-hook tex-mode-hook git-commit-mode-hook))
+	(add-hook hook (lambda () (flyspell-mode 1))))
+;;(setq ispell-dictionary "en")
 (setq ispell-program-name "/usr/local/bin/aspell")
 ;; Set default font:
 (add-to-list 'default-frame-alist
@@ -378,11 +393,11 @@
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
- )
+)
 
 (custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
-)
+ )