From 77c9a177b2b595d4ce25095b58e2388fe33cc97a Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Wed, 13 Jun 2018 21:36:56 -0700 Subject: init --- journal-reminder | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100755 journal-reminder (limited to 'journal-reminder') 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) -- cgit v1.2.3