summaryrefslogtreecommitdiff
path: root/journal-reminder
diff options
context:
space:
mode:
authorBen Sima <ben@bsima.me>2018-06-13 22:03:27 -0700
committerBen Sima <ben@bsima.me>2018-06-13 22:03:27 -0700
commit553ec0ba8b3b84dddec28d393296572e0410bd79 (patch)
tree8364cd58bd7f7f88df3e0f85ffdaf5290402d7e1 /journal-reminder
parent77c9a177b2b595d4ce25095b58e2388fe33cc97a (diff)
Remove unused scripts
Diffstat (limited to 'journal-reminder')
-rwxr-xr-xjournal-reminder29
1 files changed, 0 insertions, 29 deletions
diff --git a/journal-reminder b/journal-reminder
deleted file mode 100755
index 82e188f..0000000
--- a/journal-reminder
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/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)