;;; widget/task-list.fnl --- Vertical task list

;;; Code:

(local awful (require :awful))

;;;
;; Functions

(fn task-list [s]
  (awful.widget.tasklist
   {:screen s
    :filter awful.widget.tasklist.filter.currenttags
    :style {:disable_task_name true}
    }))


task-list
;;; widget/task-list.fnl ends here