4 files changed, 15 insertions(+), 4 deletions(-)

M neil/appraisers.janet
M neil/watch/projects.janet
M neil/watch/tasks.janet
M templates/tasks/list.temple

@@ 1,4 1,4 @@
-(use manisha)
+(use manisha bearimy)
 
 (def epoch? number?)
 


@@ 6,6 6,10 @@
   [state]
   (fn _state= [i] (= (i :state) state)))
 
+(defn future-pinned [i]
+  (if-let [p (i :pin)]
+    (:after? (make-calendar p) (now))))
+
 (def active? (state= "active"))
 
 (def states

@@ 87,7 87,10 @@
     (default state sstate)
     (match (protect (load brush i))
       [true (project (project :client))]
-      (let [filtr (if (= state "all") identity (state= state))
+      (let [filtr (if (= state "all")
+                    identity (if (= state "pinned")
+                               future-pinned
+                               (state= state)))
             tasks (or (project-tasks-with-filter project filtr)
                       [])
             running (running-task brush)

@@ 114,7 114,11 @@
 (defn list [{:params {:state state}}]
   (define-brush)
   (def alll (= state "all"))
-  (def f (if alll identity (state= state)))
+  (def f (if alll
+           identity
+           (if (= state "pinned")
+             future-pinned
+             (state= state))))
   (def [tasks running] [(tasks-with-filter brush f) (running-task brush)])
   (def name
     (. (if alll "all " "last ")

@@ 9,7 9,7 @@ $}
       {% (when-let [a (args :path)] %}
         <hstack spacing="l">
           <span>filter </span>
-          {% (loop [s :in ["all" "active" "completed" "canceled"]] %}
+          {% (loop [s :in ["all" "pinned" "active" "completed" "canceled"]] %}
             <a hx-get="{{ (. a s) }}" hx-target="#tasks" hx-swap="outerHTML">{{ s }}</a>
           {% ) %}
         </hstack>