From 8dcfda2f27e721bfaea80c96e71bdbee60ecb1b2 Mon Sep 17 00:00:00 2001
From: Blendoit <blendoit@gmail.com>
Date: Thu, 3 Sep 2020 11:30:46 -0700
Subject: Name standardization

---
 blendoit/blendoit-init.org |  49 +++++++++++++++++++++++++--------------------
 blendoit/blendoit-init.pdf | Bin 218196 -> 439790 bytes
 init-custom.el             |   2 ++
 3 files changed, 29 insertions(+), 22 deletions(-)

diff --git a/blendoit/blendoit-init.org b/blendoit/blendoit-init.org
index 1e7c65d..169b709 100644
--- a/blendoit/blendoit-init.org
+++ b/blendoit/blendoit-init.org
@@ -129,12 +129,12 @@ We begin by defining a user shortcut to this very file:
 
 #+NAME: shortcut-config
 #+BEGIN_SRC emacs-lisp
-  (defun find-init-blendoit ()
+  (defun my/find-literate-config ()
     "Jump to this very file."
-     (interactive)
-     (find-file my/literate-config))
+    (interactive)
+    (find-file my/literate-config))
 
-  (global-set-key (kbd "C-c c") 'find-init-blendoit)
+  (global-set-key (kbd "C-c c") 'my/find-literate-config)
 #+END_SRC
 
 Now, different shortcuts for other customization actions:
@@ -190,17 +190,7 @@ mode.
 Open file with ~C-o~.
 
 #+BEGIN_SRC emacs-lisp
-  (global-set-key (kbd "C-o") 'menu-find-file-existing)
-#+END_SRC
-
-We trick Emacs into opening file dialog with ~C-o~ instead of prompting for a file
-in minibuffer.
-
-#+BEGIN_SRC emacs-lisp
-(defadvice find-file-read-args (around find-file-read-args-always-use-dialog-box act)
-  "Simulate invoking menu item as if by the mouse; see `use-dialog-box'."
-  (let ((last-nonmenu-event nil))
-     ad-do-it))
+  (global-set-key (kbd "C-o") 'find-file)
 #+END_SRC
 
 *** Exit behaviours
@@ -301,13 +291,14 @@ Auto completion.
  :bind (("C-f" . counsel-grep-or-swiper)))
 #+END_SRC
 
-** ~evil-mode~
+** TODO ~evil-mode~
 
 Forgive me, for I have sinned.
 
 #+BEGIN_SRC emacs-lisp
-    (use-package evil)
-    ;; (evil-mode 1)
+  (use-package evil)
+;  (setq evil-toggle-key "C-c d") ; devil...
+;  (evil-mode 1)
 #+END_SRC
 
 ** ~org-mode~
@@ -366,7 +357,14 @@ for which the heading or body contain a matching =org-time-stamp=.[fn::An
 =org-time-stamp= can be inserted with ~C-c .~ (period)]
 
 #+BEGIN_SRC emacs-lisp
-(global-set-key (kbd "C-c a") 'org-agenda-list)
+  (global-set-key (kbd "C-c a") 'org-agenda-list)
+
+  (defun my/find-diary-file ()
+    "Load `org-agenda-diary-file'."
+    (interactive)
+    (find-file org-agenda-diary-file))
+
+  (global-set-key (kbd "C-c d") 'my/find-diary-file)
 #+END_SRC
 
 *** Timestamps
@@ -453,13 +451,13 @@ This creates a shorter binding for the most common Org export: Org \rightarrow
 LaTeX \rightarrow PDF.
 
 #+BEGIN_SRC emacs-lisp
-(defun blendoit-org-quick-export ()
+(defun my/org-quick-export ()
   "Org export to PDF and open.
   This basically reimplements `C-c C-e l o'."
   (interactive)
     (org-open-file (org-latex-export-to-pdf)))
 
-(global-set-key (kbd "C-c e") 'blendoit-org-quick-export)
+(global-set-key (kbd "C-c e") 'my/org-quick-export)
 #+END_SRC
 
 ** ~undo-tree~
@@ -481,7 +479,7 @@ LaTeX \rightarrow PDF.
 (use-package gnuplot)
 #+END_SRC
 
-** Ledger
+** ~ledger~
 
 #+BEGIN_SRC emacs-lisp
   (use-package ledger-mode
@@ -525,6 +523,13 @@ Get inspiration from ~ibuffer-sidebar~ and create a better sidebar.
  :init (global-flycheck-mode))
 #+END_SRC
 
+** TODO ~flyspell~
+
+#+NAME: flycheck
+#+BEGIN_SRC emacs-lisp
+
+#+END_SRC
+
 ** ~csv-mode~
 
 #+BEGIN_SRC emacs-lisp
diff --git a/blendoit/blendoit-init.pdf b/blendoit/blendoit-init.pdf
index a958546..a23ed9e 100644
Binary files a/blendoit/blendoit-init.pdf and b/blendoit/blendoit-init.pdf differ
diff --git a/init-custom.el b/init-custom.el
index 4e72696..d1fc360 100644
--- a/init-custom.el
+++ b/init-custom.el
@@ -56,6 +56,7 @@
      (ledger . t)
      (gnuplot . t)
      (latex . t)))
+ '(org-latex-active-timestamp-format "\\textcolor{RoyalBlue!80}{\\textit{%s}}")
  '(org-latex-classes
    '(("article" "\\documentclass[11pt]{article}"
       ("\\section{%s}" . "\\section*{%s}")
@@ -80,6 +81,7 @@
       ("\\section{%s}" . "\\section*{%s}")
       ("\\subsection*{%s}" . "\\subsection*{%s}")
       ("\\subsubsection*{%s}" . "\\subsubsection*{%s}"))))
+ '(org-latex-inactive-timestamp-format "\\textcolor{ForestGreen!80}{\\textit{%s}}")
  '(org-latex-packages-alist
    '(("AUTO" "polyglossia" t
       ("xelatex" "lualatex"))
-- 
cgit v1.2.3