stuff

2024-02-22 15:35:06 +07:00
commit 8db26e9707
4220 changed files with 208544 additions and 0 deletions
@@ -0,0 +1,32 @@
+(defvar MOVEMULTIPLIER 30)
+(defvar morebgoffset 4)
+
+(defwidget dynbg []
+  (image
+    :class "dynbg-image"
+    ; :style "background-position: ${(activews - 5)*MOVEMULTIPLIER > 50 ? 100 : 50+(activews - 5)*MOVEMULTIPLIER}% 20%"
+    :style "
+    margin-left: ${(5 - (activews > 10 ? 10 : activews))*MOVEMULTIPLIER}px;
+    margin-right: ${((activews > 10 ? 10 : activews) - 5)*MOVEMULTIPLIER}px;
+    "
+    :path "images/wallpaper/wallpaper"
+    :image-width {RES_WIDTH*BG_ZOOM}
+    :image-height {RES_HEIGHT*BG_ZOOM}
+  )
+)
+
+(defwindow dynamic-bg
+  :focusable false
+  :stacking "bg"
+  :windowtype "normal"
+  :wm-ignore true
+  :geometry (geometry
+    :x 0
+    :y 0
+    :width "100%"
+    :height "100%"
+    :anchor "center center"
+  )
+  :monitor 0
+  (dynbg)
+)