(local awful (require :awful))
(local beautiful (require :beautiful))
(local wibox (require :wibox))

(fn tag-number [s]
  (awful.widget.taglist
   s
   awful.widget.taglist.filter.selected
   {}
   {:taglist_disable_icon true
    :bg_empty beautiful.bg_normal
    :bg_focus beautiful.bg_focus
    :bg_occupied beautiful.bg_normal
    :bg_urgent beautiful.bg_normal
    :font beautiful.font_mono}
   awful.widget.common.list_update
   ;; (require :widget.list_update)
   (wibox.layout.fixed.vertical)))

tag-number