rewrite ui in hy, with python astal bindings

2025-02-14 01:56:09 -08:00
parent afc9ff29e7
commit ad3e377963
27 changed files with 1106 additions and 0 deletions
--- a/widgets/notifications/init.hy
+++ b/widgets/notifications/init.hy
@ -0,0 +1,107 @@
+(import astal *)
+(import astal.gtk3 *)
+
+(.require-version gi "AstalNotifd" "0.1")
+(.require-version gi "Pango" "1.0")
+
+(import gi.repository [AstalNotifd Pango])
+
+(let [
+  ProgressBar (astalify Gtk.ProgressBar)
+  notifd (.get-default AstalNotifd)
+  notification-timeout 3
+  notification-icon (fn [notification]
+    (cond 
+      (.get-image notification) (Widget.Box
+        :class-name "icon image"
+        :css f"
+          background-image: url(\"{(.get-image notification)}\");
+          background-size: contain;
+          background-repeat: no-repeat;
+          background-position: center;")
+      (. Astal Icon (lookup-icon (.get-app-icon notification))) (Widget.Icon 
+        :icon (.get-app-icon notification)
+        :class-name "icon")
+      True (Widget.Icon
+        :icon "dialog-information-symbolic"
+        :class-name "icon")))
+  
+  make-notification (fn [notification]
+    (let [
+      layout (Widget.Button
+        :on-clicked (fn [self] (. self (get-parent) (set-reveal-child False)))
+        :child (Widget.Box
+          :children [
+            (Widget.Box
+              :vertical True
+              :css "min-width: 200px; min-height 50px;;"
+              :children [
+                (Widget.Box
+                  :children [
+                    (notification-icon notification)
+                    (Widget.Box 
+                      :vertical True
+                      :children [
+                        (Widget.Label
+                          :class-name "title"
+                          :label (str (.get-summary notification))
+                          :xalign 0
+                          :justify 0
+                          :ellipsize Pango.EllipsizeMode.END
+                          )
+                        (Widget.Label
+                          :class-name "body"
+                          :label (str (.get-body notification))
+                          :xalign 0
+                          :justify 0
+                          :wrap True
+                          :wrap-mode Pango.WrapMode.WORD_CHAR
+                          :use-markup True
+                          )])])
+                (ProgressBar
+                  :class-name "timeout-bar"
+                  :hexpand True
+                  :valign 2
+                  :fraction (bind (.poll (Variable 1) (// (+ (* (or (max (.get-expire-timeout notification) 0) notification-timeout) 1000) 250) 100) (fn [prev]
+                    (when (> prev .02)
+                      (return (- prev .01)))
+                    (return 0)))))])
+            (Widget.Box :class-name f"urgency-indicator {(.get-urgency notification)}")]))]
+      
+      (Widget.Revealer
+        :transition-type Gtk.RevealerTransitionType.SLIDE_DOWN
+        :transition-duration 250
+        :class-name "notifications"
+        :child (Widget.Revealer
+          :transition-type Gtk.RevealerTransitionType.SLIDE_DOWN
+          :transition-duration 250
+          :child layout
+          :setup (fn [self]
+            (.hook self self "notify::reveal-child" (fn [#* _]
+              (when (not (.get-reveal-child self))
+                (timeout 250 (fn [] (. self (get-parent) (set-reveal-child False)))))))))
+        :setup (fn [self]
+          (.hook self self "notify::reveal-child" (fn [self revealed?]
+            (when revealed?
+              (when (.get-reveal-child self) (timeout 1 (fn [] (. self (get-child) (set-reveal-child True)))))
+              (timeout (* 1000 (or (max (.get-expire-timeout notification) 0) notification-timeout)) (fn []
+                (. self (get-child) (set-reveal-child False))
+                (timeout (. self (get-child) (get-transition-duration)) (fn []
+                  (.set-reveal-child self False)
+                  (timeout (.get-transition-duration self) (fn []
+                    (.destroy self))))))))))
+
+          (.set-reveal-child self True)))))]
+  
+  (setv notifications (Widget.Window
+    :namespace "notifications"
+    :name "notifications"
+    :anchor (| Astal.WindowAnchor.TOP Astal.WindowAnchor.RIGHT)
+    :exclusivity Astal.Exclusivity.EXCLUSIVE
+    :margin-top 5
+    :child (Widget.Box
+      :vertical True
+      :setup (fn [self]
+        (.hook self notifd "notified" (fn [self notification _]
+          (let [children (.get-children self)]
+            (.add self (make-notification (.get-notification notifd notification)))))))))))