From 2d6b96c841b4d56ffa5865edf81a510876de5bdf Mon Sep 17 00:00:00 2001
From: Macoy Madson <macoymadson@gmail.com>
Date: Thu, 30 May 2019 18:14:28 -0700
Subject: [PATCH] Added org clock support

* Added org-mru-clock for ido-based clock selection
---
 Emacs/org-customizations.el | 27 ++++++++++++++++-----------
 Emacs/packages.el           |  1 +
 2 files changed, 17 insertions(+), 11 deletions(-)

diff --git a/Emacs/org-customizations.el b/Emacs/org-customizations.el
index aad4049..9b95b2f 100644
--- a/Emacs/org-customizations.el
+++ b/Emacs/org-customizations.el
@@ -8,8 +8,7 @@
 
   (defun macoy-org-copy-file-line-link-to-clipboard ()
 	(interactive)
-	(simpleclip-set-contents (format "[[file:%s::%d][" buffer-file-name (line-number-at-pos)))
-	)
+	(simpleclip-set-contents (format "[[file:%s::%d][" buffer-file-name (line-number-at-pos))))
   )
 
 (with-eval-after-load 'org
@@ -62,12 +61,14 @@
   (setq macoy-org-dir "~/Dropbox/Org/")
   (setq org-agenda-files (list (concat macoy-org-dir "1_Calendar.org")
 							   (concat macoy-org-dir "JapaneseLessons.org")
+							   (concat macoy-org-dir "Auri.org")
 							   (concat macoy-org-dir "0_Dump.org"))))
 
 (when (string-equal (user-login-name) "mmadson")
   (setq macoy-org-dir "C:/Users/mmadson/Dropbox/Org/")
   (setq org-agenda-files (list (concat macoy-org-dir "1_Calendar.org")
 							   (concat macoy-org-dir "JapaneseLessons.org")
+							   (concat macoy-org-dir "Auri.org")
 							   (concat macoy-org-dir "0_Dump.org"))))
 
 (when macoy-org-dir
@@ -85,8 +86,7 @@
 										(macoy-get-org-file-list)))))
 	  (find-file selected-macoy-org)))
 
-  (global-set-key (kbd "M-p") 'macoy-switch-macoy-org)
-  )
+  (global-set-key (kbd "M-p") 'macoy-switch-macoy-org))
 
 ;; From https://orgmode.org/manual/Languages.html#Languages
 ;; Because I was too lazy to find the actual internal list
@@ -137,8 +137,7 @@
   (interactive)
   (insert (format "#+BEGIN_SRC %s\n\n#+END_SRC"
 				  (ido-completing-read "Language: " macoy-org-code-block-languages)))
-  (forward-line -1)
-  )
+  (forward-line -1))
 
 (when (require 'simpleclip)
   (defun macoy-org-copy-code-block ()
@@ -152,8 +151,14 @@
 									   (buffer-name)
 									   (line-number-at-pos (region-beginning))
 									   (ido-completing-read "Language: " macoy-org-code-block-languages)
-									   (buffer-substring (region-beginning) (region-end)))
-							   )
-	  )
-	)
-  )
+									   (buffer-substring (region-beginning) (region-end)))))))
+
+;;
+;; Clocking
+;;
+(setq org-clock-history-length 10)
+
+;; For selecting most recent clock via ido
+(require 'org-mru-clock)
+(global-set-key (kbd "<f8>") 'org-mru-clock-in)
+(global-set-key (kbd "S-<f8>") 'org-clock-out)
diff --git a/Emacs/packages.el b/Emacs/packages.el
index 55e09ff..e29fd3b 100644
--- a/Emacs/packages.el
+++ b/Emacs/packages.el
@@ -48,6 +48,7 @@
 		  magit
 		  multiple-cursors
 		  org-jira
+		  org-mru-clock
 		  powerline
 		  projectile
 		  rainbow-mode