init

1 files changed, 29 insertions, 0 deletions

diff --git a/journal-reminder b/journal-reminder
new file mode 100755
index 0000000..82e188f
--- /dev/null
+++ b/journal-reminder
@@ -0,0 +1,29 @@
+#!/usr/bin/env racket
+#|-*- mode:scheme *-*|#
+#lang racket/base
+
+(require (only-in racket/cmdline command-line))
+
+(define +journal-dir+ "/home/ben/Dropbox/org/journal")
+
+(define (pad-zero n) (if (< n 10) (format "0~a" n) n))
+
+(define (today)
+  (let* [(date  (seconds->date (current-seconds)))
+         (year  (date-year date))
+         (month (date-month date))
+         (day   (date-day date))]
+    (format "~a~a~a"
+            (date-year date)
+            (pad-zero month)
+            (pad-zero day))))
+
+(define (journal-file d)
+  (format "~a/~a" +journal-dir+ d))
+
+(define (journaled-today? d)
+  (if (file-exists? (journal-file d)) #t #f))
+
+(if (not (journaled-today? (today)))
+    "You still need to journal!"
+    null)