114 lines
3.0 KiB
Fennel
114 lines
3.0 KiB
Fennel
;;; module/sidebar.fnl --- Informational sidebar
|
|
|
|
;;; Code:
|
|
|
|
(local awful (require :awful))
|
|
(local beautiful (require :beautiful))
|
|
(local gears (require :gears))
|
|
(local dpi beautiful.xresources.apply_dpi)
|
|
(local lain (require :lain))
|
|
(local wibox (require :wibox))
|
|
|
|
(local std (require :lib.std))
|
|
(local button (. (require :lib.keys) :button))
|
|
|
|
(local tag-list (require :widget.tag-list))
|
|
(local tag-number (require :widget.tag-number))
|
|
(local task-list (require :widget.task-list))
|
|
(local textclock (require :widget.textclock))
|
|
|
|
(local markup lain.util.markup)
|
|
|
|
;;;
|
|
;; Functions
|
|
|
|
(fn border [t margin]
|
|
(let [side (or margin 2)
|
|
end (+ side 1)]
|
|
{1 t
|
|
:bottom end
|
|
:left side
|
|
:right side
|
|
:top end
|
|
:widget wibox.container.margin} ))
|
|
|
|
(fn center [t]
|
|
{1 t
|
|
:align "center"
|
|
:widget wibox.container.place})
|
|
|
|
(fn deftooltip [obj callback]
|
|
(awful.tooltip
|
|
{:objects [obj]
|
|
:timer_function callback
|
|
:delay_show 0.5
|
|
:margin_leftright (dpi 10)
|
|
:margin_topbottom (dpi 8)}))
|
|
|
|
(local clock (textclock "%H\n%M"))
|
|
(local systray (doto (wibox.widget.systray)
|
|
(: :set_base_size 24)
|
|
(: :set_horizontal false)))
|
|
|
|
(local battery (require :widget.bat))
|
|
(local pulse (require :widget.pulse))
|
|
|
|
(local clock-buttons
|
|
(gears.table.join
|
|
(button [] 1 (lambda [] (awful.spawn "orage")))))
|
|
|
|
(fn bat-detail []
|
|
(let [status _G.bat_now.status
|
|
statustxt (if (= status "Full") "charged"
|
|
(= status "Charging") "charging"
|
|
(= status "Discharging") "discharging"
|
|
"N/A")]
|
|
(..
|
|
"Level: " _G.bat_now.perc "%\n"
|
|
"Status: " statustxt "\n"
|
|
(if (or (= status "Charging")
|
|
(= status "Discharging"))
|
|
(.. "Time left: " _G.bat_now.time " hours") ""))))
|
|
|
|
(deftooltip clock (lambda [] (os.date "%A %d %B %Y")))
|
|
(deftooltip battery.widget bat-detail)
|
|
|
|
(fn draw-sidebar [s]
|
|
(set s.sb (awful.wibar {:position beautiful.sidebar_position
|
|
:width beautiful.sidebar_width
|
|
:screen s}))
|
|
|
|
(: s.sb :setup
|
|
{:layout wibox.layout.align.vertical
|
|
1 {1 (border
|
|
{1 {1 (tag-number s)
|
|
:forced_height 32
|
|
:align :center
|
|
:widget wibox.container.place}
|
|
:bg beautiful.sidebar_bg_info
|
|
:widget wibox.container.background})
|
|
2 (border (tag-list s))
|
|
:layout wibox.layout.fixed.vertical}
|
|
2 {1 (border (center (task-list s)) 4)
|
|
:layout wibox.layout.flex.vertical}
|
|
3 {1 (center systray)
|
|
2 (center battery.widget)
|
|
3 (border
|
|
{1 {1 (center clock)
|
|
:top 3
|
|
:bottom 3
|
|
:widget wibox.container.margin}
|
|
:buttons clock-buttons
|
|
:bg beautiful.sidebar_bg_info
|
|
:widget wibox.container.background})
|
|
:layout wibox.layout.fixed.vertical}}))
|
|
|
|
;;;
|
|
;; Configuration
|
|
|
|
(awful.screen.connect_for_each_screen
|
|
draw-sidebar)
|
|
|
|
{}
|
|
;;; module/sidebar.fnl ends here
|