20 lines
312 B
Plaintext
20 lines
312 B
Plaintext
|
;;; 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
|