Skip to content

Commit

Permalink
autofocus: wip
Browse files Browse the repository at this point in the history
  • Loading branch information
@Seryiza
Seryiza committed Dec 16, 2024
1 parent 20f731c commit 8470a90
Showing 1 changed file with 129 additions and 51 deletions.
180 changes: 129 additions & 51 deletions src/remplater/templates/autofocus.clj
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2,75 +2,153 @@
(:require
[clojure.string :as str]
[remplater.components.builtin-components]
[remplater.components.positioning :as pos]
[remplater.components.render :as render]
[remplater.datetime :as dt]
[remplater.pdf :as pdf]
[tick.core :as t])
(:import
[org.apache.pdfbox.pdmodel.common PDRectangle]))

(def color-light-gray (pdf/make-color 100 100 100))

(defn get-note-page-name [note-index] (str "note-" note-index))

(def index-cells-pattern
{:width "10%"
:height 80
:row-count 20
:outline [:line {:width 1}]
:line [:line {:width 1}]
:cell (fn [{:keys [index]} & children]
[:page-link {:target-page (get-note-page-name index)}
[:padding {:padding-left 20}
[:split {:direction :x :splits [20]}
[:circle {:radius 12}]
[:padding {:padding 10}
[:text {:text (-> index inc str)
:font-size 20
:valign :center
:halign :left}]]]]])})

(def note-pattern
{:width "50%"
(def paddings
{:layout-left 200
:layout-top 105})

(def colors
{:gray (pdf/make-color 50 50 50)
:light-gray (pdf/make-color 100 100 100)})

(def styles
{:layout-border {:width 1
:color (:light-gray colors)}
:week-days-completion-mark {:padding 10}})

(def page-names
{:day #(str "day-" %)
:weeks #(str "weeks-" %)})

(def days-per-weeks-page 28)
(def week-days-completion-mark-size 60)
(def day-completion-mark-size 60)

(defn get-page-name [page-name & params]
(apply (get page-names page-name) params))

(def light-gray-line
[:line {:width 1
:color (:light-gray colors)}])

(defn bottom-outline [{:as attrs :keys [side]} & children]
(when (= :bottom side)
children))

(def lines-layout-pattern
{:width "100%"
:height 52
:row-count 35
:outline (fn [{:as attrs :keys [side]} & children]
(when (#{:bottom :top} side)
[:line {:width 1
:color color-light-gray}]))
:line [:line {:width 1
:color color-light-gray}]})

(defn index-page [{:keys [notes-count]}]
[:page {:name "index"}
[:padding {:padding 120}
[:pattern-grid {:pattern index-cells-pattern}]]])

(defn note-page [{:keys [note-index]}]
[:page {:name (get-note-page-name note-index)
:size (PDRectangle. 1404 4000)}
[:split {:direction :y :splits [105]}
[:padding {:padding-left 120}
[:page-link {:target-page "index"}
[:split {:direction :x :splits [100]}
[:circle {:radius 15}]
[:text {:text (-> note-index inc str)
light-gray-line))
:line light-gray-line})

(defn completion-mark [{:as attrs :keys [x1 y1 x2 y2]}]
(let [attrs (merge attrs light-gray-line)
{:keys [x y]} (pos/rect->center attrs)]
[:div
[:line (assoc attrs :x1 x1 :y1 y :x2 x :y2 y2)]
[:line (assoc attrs :x1 x :y1 y2 :x2 x2 :y2 y)]
[:line (assoc attrs :x1 x2 :y1 y :x2 x :y2 y1)]
[:line (assoc attrs :x1 x :y1 y1 :x2 x1 :y2 y)]]))

(defn page-layout [{:keys [top-left top-right bottom-left bottom-right]}]
[:split {:direction :y :splits [(:layout-top paddings)]}
[:div
[:border {:border-bottom (:layout-border styles)}]
[:split {:direction :x :splits [(:layout-left paddings)]}
[:div
[:border {:border-right (:layout-border styles)}]
top-left]
top-right]]

[:split {:direction :x :splits [(:layout-left paddings)]}
[:div
[:border {:border-right (:layout-border styles)}]
bottom-left]
bottom-right]])

(defn weeks-page [{:keys [from-date]}]
[:page {:name (get-page-name :weeks from-date)}
[page-layout
{:bottom-right
[:split {:direction :y :splits [700]}
[:grid {:cols 7 :rows 4
:line light-gray-line
:outline (fn [attrs & _]
[bottom-outline attrs light-gray-line])}
(fn [{:keys [index]}]
(let [date (t/>> from-date (t/of-days index))]
[:page-link {:target-page (get-page-name :day date)}
[:padding {:padding 10}
[:split {:direction :y :splits [30]}
[:text {:text (t/format (t/formatter "dd") date)
:color (:gray colors)
:font-size 30
:valign :top
:halign :right}]
[:text {:text (-> (t/format (t/formatter "MMM") date)
(str/upper-case))
:color (:light-gray colors)
:font-size 20
:valign :top
:halign :right}]]]

[:split {:direction :x :splits [week-days-completion-mark-size]}
[:split {:direction :y :splits [week-days-completion-mark-size]}
[:padding (:week-days-completion-mark styles)
[completion-mark]]]]]))]]}]])

(defn day-page [{:keys [date weeks-date]}]
[:page {:name (get-page-name :day date)
:size (PDRectangle. 1404 6000)}
[page-layout
{:top-left
[:padding {:padding-top "25%"
:padding-left 120}
[:split {:direction :x :splits [day-completion-mark-size]}
[:split {:direction :y :splits [day-completion-mark-size]}
[completion-mark]]]]

:top-right
[:page-link {:target-page (get-page-name :weeks weeks-date)}
[:padding {:padding-left 20}
[:text {:text (t/format (t/formatter "dd MMM") date)
:font-size 40
:valign :center
:halign :left}]]]]
[:pattern-grid {:pattern note-pattern}]]])
:halign :left}]]]

:bottom-left
[:pattern-grid {:pattern lines-layout-pattern}]

:bottom-right
[:pattern-grid {:pattern lines-layout-pattern}]}]])

(defn document [{:as attrs :keys [notes-count]}]
(defn document [{:as attrs :keys [from-date to-date]}]
(into [:document {:output "/tmp/autofocus.pdf"
:page-size pdf/remarkable-2-page-size
:fonts {:default "fonts/Iosevka-Regular.ttf"}}]
(concat
[[index-page attrs]]
(->> (dt/range-dates from-date to-date (t/of-days days-per-weeks-page))
(mapv (fn [from-date]
[weeks-page {:from-date from-date}])))

(->> (range notes-count)
(mapv (fn [note-index]
[note-page {:note-index note-index}]))))))
(->> (dt/range-dates from-date to-date (t/of-days days-per-weeks-page))
(mapcat (fn [from-date]
(let [weeks-to-date (t/>> from-date (t/of-days days-per-weeks-page))]
(->> (dt/range-dates from-date weeks-to-date)
(mapv (fn [date]
[day-page {:date date
:weeks-date from-date}]))))))))))

(comment
(render/render-document
(document {:notes-count 200})))
(document {:from-date (t/new-date 2024 12 9)
:to-date (t/new-date 2025 1 5)})))

0 comments on commit 8470a90

Please sign in to comment.