From f25836751e28eb56bf9df6e6b3cc5b08a6e1215b Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Sun, 25 Jun 2017 21:10:04 +0200
Subject: Emacs: Make org-journal mode nicer to work in

---
 emacs/.emacs.d/init.org | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'emacs')

diff --git a/emacs/.emacs.d/init.org b/emacs/.emacs.d/init.org
index 8cc0a7c3..301e18ad 100644
--- a/emacs/.emacs.d/init.org
+++ b/emacs/.emacs.d/init.org
@@ -214,7 +214,7 @@ because I manage those in my [[file:~/projects/dotfiles/tag-xresources/xresource
   (defun use-variable-fonts ()
     (interactive)
     (variable-pitch-mode)
-    (setq cursor-type 'bar))
+    (setq cursor-type '(bar . 1)))
 
   (defun ap/set-fonts (mono-face mono-font-size variable-face variable-font-size antialias &optional new-line-spacing)
     (if (boundp 'ns-antialias-text)
@@ -1807,6 +1807,14 @@ I can use this to keep a journal.  I should use it.
   :config (progn
             (setq org-journal-date-format "%A, %d %B %Y"
                   org-journal-dir "~/Sync/Default/Documents/journal")
+
+            (define-hook-helper org-journal-mode ()
+              (use-variable-fonts)
+              (text-scale-adjust 4)
+              (if smartparens-strict-mode
+                  (smartparens-strict-mode -1))
+              (if show-smartparens-mode
+                  (show-smartparens-mode -1)))
             (defun org-journal-display-entry-yesterday ()
               "Show org-journal entry for yesterday"
               (interactive)
-- 
cgit 1.4.1