calendar.yuck 834 B

123456789101112131415161718192021222324252627282930313233343536373839404142434445
  1. (defpoll current-year :interval "60m"
  2. :initial 1
  3. `date +%Y`
  4. )
  5. (defpoll current-month :interval "60m"
  6. :initial 1
  7. `date +%m`
  8. )
  9. (defpoll current-day :interval "60m"
  10. :initial 1
  11. `date +%d`
  12. )
  13. (defwindow calendar
  14. :monitor 0
  15. :geometry (geometry
  16. :width "480px"
  17. :height "150px"
  18. :anchor "bottom center"
  19. )
  20. :stacking "fg"
  21. (eventbox :onhoverlost "eww close calendar"
  22. (calendar-menu)
  23. )
  24. )
  25. (defwidget calendar-menu []
  26. (box
  27. :orientation "v"
  28. :class "calendar-menu"
  29. :space-evenly false
  30. (calendar
  31. :day current-day
  32. :month current-month
  33. :year current-year
  34. :show-week-numbers true
  35. :show-day-names true
  36. :show-heading true
  37. :show-details true
  38. )
  39. )
  40. )