2 changed files with 240 additions and 1 deletions
@ -0,0 +1,238 @@
@@ -0,0 +1,238 @@
|
||||
#!/usr/bin/env tclsh |
||||
|
||||
# Copyright (C) 2021, Maxim Lihachev, <envrm@yandex.ru> |
||||
# |
||||
# This program is free software: you can redistribute it and/or modify it |
||||
# under the terms of the GNU General Public License as published by the Free |
||||
# Software Foundation, version 3. |
||||
# |
||||
# This program is distributed in the hope that it will be useful, but WITHOUT |
||||
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
||||
# FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for |
||||
# more details. |
||||
# |
||||
# You should have received a copy of the GNU General Public License along with |
||||
# this program. If not, see <https://www.gnu.org/licenses/>. |
||||
|
||||
# |
||||
# Simple Bingo-style TODO visualizer. |
||||
# |
||||
# Input: |
||||
# |
||||
# todo.md: |
||||
# |
||||
# - [ ] A |
||||
# - [x] B |
||||
# - [x] C |
||||
# - [ ] … |
||||
# - [ ] V |
||||
# |
||||
# GUI: |
||||
# |
||||
# ┌───────────────────────┐ |
||||
# ├───┬───┬───┬───┬───┬───┤ |
||||
# │ A │ B │ C │ D │ E │ F │ |
||||
# ├───┼───┼───┼───┼───┼───┤ |
||||
# │ A │ B │ C │ D │ E │ F │ |
||||
# ├───┼───┼───┼───┼───┼───┤ |
||||
# │ G │ H │ I │ J │ K │ L │ |
||||
# ├───┼───┼───┼───┼───┼───┤ |
||||
# │ M │ N │ O │ P │ Q │ R │ |
||||
# ├───┴─┬─┴───┼───┴─┬─┴───┤ |
||||
# │ S │ T │ U │ V │ |
||||
# ├─────┴─────┴─────┴─────┤ |
||||
# │ 10/22 [45%] │ |
||||
# └───────────────────────┘ |
||||
# |
||||
|
||||
# |
||||
# TODO: работа с повторяющимися строками |
||||
# |
||||
|
||||
package require fileutil |
||||
|
||||
proc help {} { |
||||
puts "USAGE: [file tail $::argv0] <todo.md>" |
||||
} |
||||
|
||||
namespace eval todo { |
||||
set file {} |
||||
set data {} |
||||
set list {} |
||||
|
||||
set status {} |
||||
|
||||
array set format { |
||||
marker {^\s*-\s+\[[ xX]\]\s*} |
||||
done {^\s*-\s+\[[xX]\]\s*} |
||||
todo {^\s*-\s+\[[ ]\]\s*} |
||||
} |
||||
|
||||
proc sanitize_string {str} { |
||||
string map { |
||||
{*} {\*} {+} {\+} {[} {\[} {]} {\]} {.} {\.} |
||||
{(} {\(} {)} {\)} {\{} {\\{} {\}} {\\}} |
||||
} $str |
||||
|
||||
} |
||||
|
||||
proc load {filename} { |
||||
todo::update [split [fileutil::cat [set ::todo::file $filename]] "\n"] |
||||
todo::update_status |
||||
} |
||||
|
||||
proc update {data} { |
||||
set ::todo::data $data |
||||
} |
||||
|
||||
proc update_list {} { |
||||
set ::todo::list [lsearch -all -inline -regexp $::todo::data {^[\s]*-[\s]\[[ xX]\]\s.*$}] |
||||
} |
||||
|
||||
proc update_status {} { |
||||
::todo::update_list |
||||
|
||||
set total_items [llength $::todo::list] |
||||
set done_items [llength [regexp -inline -all -nocase {\[[xX]\]} $::todo::list]] |
||||
|
||||
set percents [expr {$done_items * 100 / $total_items}] |
||||
|
||||
set ::todo::status "$done_items/$total_items \[${percents}%\]" |
||||
} |
||||
|
||||
proc update_file {} { |
||||
fileutil::writeFile $::todo::file [join $::todo::data "\n"] |
||||
} |
||||
|
||||
proc update_item {item} { |
||||
set item_pattern $::todo::format(marker)[::todo::sanitize_string [lindex $item end]] |
||||
set todo_string [lsearch -inline -regexp $::todo::data $item_pattern] |
||||
set todo_index [lsearch -exact $::todo::data $todo_string] |
||||
set updated_todo [::todo::toggle_marker $todo_string] |
||||
|
||||
::todo::update_list |
||||
::todo::update [lreplace $::todo::data $todo_index $todo_index $updated_todo] |
||||
::todo::update_status |
||||
::todo::update_file |
||||
} |
||||
|
||||
# Toggle todo markers: |
||||
# "- [ ]" -> "- [x]" |
||||
# "- [x]" -> "- [ ]" |
||||
proc toggle_marker {str} { |
||||
string map {{- [ ]} {- [x]} {- [x]} {- [ ]} {- [X]} {- [ ]}} $str |
||||
} |
||||
} |
||||
|
||||
namespace eval gui { |
||||
proc set_theme {} { |
||||
ttk::style theme use clam |
||||
|
||||
set layout [ttk::style layout TButton] |
||||
set tail [lindex $layout end] |
||||
|
||||
ttk::style layout Button.TODO [lreplace $layout end end $tail] |
||||
ttk::style configure Button.TODO {*}[ttk::style configure TButton] -background LightBlue -wraplength 150 |
||||
ttk::style map Button.TODO {*}[ttk::style map TButton] -background {active LightSteelBlue} |
||||
|
||||
ttk::style layout Button.DONE [lreplace $layout end end $tail] |
||||
ttk::style configure Button.DONE {*}[ttk::style configure TButton] -background GreenYellow -wraplength 150 |
||||
ttk::style map Button.DONE {*}[ttk::style map TButton] -background {active LawnGreen} |
||||
} |
||||
|
||||
proc set_button_status {button status} { |
||||
set status [string toupper $status] |
||||
|
||||
$button configure -style Button.$status |
||||
|
||||
if {$status == "TODO"} { |
||||
set ::gui::state($button) 0 |
||||
} else { |
||||
set ::gui::state($button) 1 |
||||
} |
||||
} |
||||
|
||||
proc toggle_button_status {button} { |
||||
if {$::gui::state($button)} { |
||||
::gui::set_button_status $button todo |
||||
} else { |
||||
::gui::set_button_status $button done |
||||
} |
||||
|
||||
::todo::update_item [lsearch -inline [$button configure] {-text*}] |
||||
} |
||||
|
||||
proc show {} { |
||||
::gui::set_theme |
||||
|
||||
set columns [expr {ceil(sqrt([llength $::todo::list]))}] |
||||
|
||||
lassign {0 0 0} current_column current_frame current_todo_item |
||||
|
||||
foreach todo_item $::todo::list { |
||||
if {$current_column == 0} { |
||||
pack [set f [frame .[incr current_frame]]] -expand on -fill both -side top |
||||
} |
||||
|
||||
::gui::draw_todo_button "${f}.todo-[incr current_todo_item]" $todo_item |
||||
|
||||
if {$current_column == $columns} { |
||||
set current_column 0 |
||||
} else { |
||||
incr current_column |
||||
} |
||||
} |
||||
|
||||
::gui::draw_statusbar |
||||
::gui::bind_hotkeys |
||||
} |
||||
|
||||
proc draw_todo_button {widget item} { |
||||
# Remove todo markers and useless spaces |
||||
regsub -expanded $::todo::format(marker) $item {} title |
||||
|
||||
pack [ttk::button $widget -text $title -width 1 \ |
||||
-command "::gui::toggle_button_status $widget"] \ |
||||
-expand on -side left -fill both |
||||
|
||||
tooltip::tooltip $widget $title |
||||
|
||||
if {[regexp -expanded $::todo::format(todo) $item]} { |
||||
::gui::set_button_status $widget todo |
||||
} else { |
||||
::gui::set_button_status $widget done |
||||
} |
||||
} |
||||
|
||||
proc draw_statusbar {} { |
||||
pack [frame .statusbar] -fill x |
||||
pack [label .statusbar.status -font {Serif 10} -textvariable ::todo::status -padx 3 -anchor e] -fill x |
||||
} |
||||
|
||||
proc bind_hotkeys {} { |
||||
bind . <Control-q> exit |
||||
bind . <q> exit |
||||
} |
||||
} |
||||
|
||||
# ------------------------------------------------------------------------------ |
||||
|
||||
if {$argc == 0} { |
||||
help |
||||
exit 1 |
||||
} else { |
||||
set filename [lindex $argv 0] |
||||
|
||||
if {![file exists $filename] || ![file writable $filename]} { |
||||
puts stderr "ERROR: File $filename does not exist or it is not writable." |
||||
exit 1 |
||||
} |
||||
} |
||||
|
||||
package require Tk |
||||
package require tooltip |
||||
|
||||
todo::load $filename |
||||
|
||||
gui::show |
||||
|
||||
Loading…
Reference in new issue