Add alu-journal-output

This commit is contained in:
Andy Lu 2023-12-11 12:44:58 -05:00
parent 1cf2befd42
commit 166a7b30f8

47
alu-journal-output Normal file
View file

@ -0,0 +1,47 @@
#!/usr/bin/env bb
(require '[babashka.deps :as deps])
(deps/add-deps
'{:deps {io.github.lispyclouds/bblgum {:git/sha "1d4de3d49b84f64d1b71930fa1161f8d2622a4d9"}
dev.andylu/clj-lipgloss {:local/root "/home/andy/git/clj-lipgloss"}
com.widdindustries/cljc.java-time {:mvn/version "0.1.21"}}})
(ns dev.andylu.journal-output
(:require [bblgum.core :as b]
[clj-lipgloss.core :as lg
:use [log]]
[cljc.java-time.local-date :as ld]
[cljc.java-time.temporal.chrono-unit :use [days]]))
(let [today (ld/now)
end-of-year (ld/of (. today getYear)
12
31)
span (-> (. today
until
end-of-year
days)
inc)
current-page (-> (b/gum :input :prompt "Current page: ")
:result
first
Integer/parseInt)
end-page 228
page-per-day (-> current-page
(+ (* -1 end-page))
(* -1)
inc
(/ (float span)))]
(log :info
(format "There are %s days between and including %s and %s"
span
today
end-of-year))
(log :info
(format "To get to page %s by the end of the year from %s, you have to write %s pages per day"
end-page
current-page
page-per-day)))