diff options
author | Ben Sima <ben@bsima.me> | 2018-06-13 22:03:27 -0700 |
---|---|---|
committer | Ben Sima <ben@bsima.me> | 2018-06-13 22:03:27 -0700 |
commit | 553ec0ba8b3b84dddec28d393296572e0410bd79 (patch) | |
tree | 8364cd58bd7f7f88df3e0f85ffdaf5290402d7e1 /journal-reminder | |
parent | 77c9a177b2b595d4ce25095b58e2388fe33cc97a (diff) |
Remove unused scripts
Diffstat (limited to 'journal-reminder')
-rwxr-xr-x | journal-reminder | 29 |
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) |