aboutsummaryrefslogtreecommitdiff
path: root/functions
diff options
context:
space:
mode:
Diffstat (limited to 'functions')
-rw-r--r--functions/mark.fish344
1 files changed, 0 insertions, 344 deletions
diff --git a/functions/mark.fish b/functions/mark.fish
deleted file mode 100644
index 39e1b16..0000000
--- a/functions/mark.fish
+++ /dev/null
@@ -1,344 +0,0 @@
-function __mark_print_block -d "prints block from mark_store" -a block file
- set c (string match -r "#$block#[^#]*" (echo (cat $file)))
- set c (string replace "#$block#" "" $c)
- echo (string trim $c)
-end
-
-function __mark_get --description 'extract information from a mark_store'
- # defaults
- set mark_store $__mark_store
- set year (date "+%Y")
- set month (math (date "+%m") "*1")
- set day (math (date "+%d") "*1")
- # range of marks retunrned around date
- set range 0
-
- # parse argv
- for i in (seq 1 (count $argv))
- if string match -q -- "-y=*" "$argv[$i]"
- set year (string replace -- "-y=" "" $argv[$i])
- else if string match -q -- "-m=*" "$argv[$i]"
- set month (string replace -- "-m=" "" $argv[$i])
- else if string match -q -- "-d=*" "$argv[$i]"
- set day (string replace -- "-d=" "" $argv[$i])
- else if string match -q -- "-s=*" "$argv[$i]"
- set mark_store (string replace -- "-s=" "" "$argv[$i]")
- else if string match -q -- "-r=*" "$argv[$i]"
- set range (string replace -- "-r=" "" "$argv[$i]")
- else
- echo unrecognised option: $argv[$i] >&2
- return 1
- end
- end
-
- if not test -f $mark_store
- return 1
- end
-
- set marks (__mark_print_block store $mark_store)
- set marks (string split " " $marks)
-
- # find year in marks
- for i in (seq 1 (count $marks))
- if string match -q -r "^$year:\$" $marks[$i]
- set year_offset $i
- break
- end
- end
-
- # return if year not in the data
- if not set -q year_offset
- echo year $year not found in the store >&2
- return 1
- end
-
- if test $day -eq 0
- # collect all marks in month
- set marks_list
- for m in (string split "" (string split ':' $marks[(math $month+$year_offset)])[2])
- # check if $m is a mark
- if test $m != '?'
- set incremented false
- # check if a count for $m is already stored in $marks_list
- for e in $marks_list
- if test $e = mark_$m
- set incremented true
- # build count variable name
- set cur mark_$m
- # increment mark count
- set $cur (math $$cur + 1)
- end
- end
- # add count for $m if it was not in $marks_list
- if test $incremented = false
- set mark_$m 1
- set marks_list $marks_list mark_$m
- end
- end
- end
- # print result
- echo (count $marks_list) different marks found:
- for e in $marks_list
- echo (string split '_' $e)[2]:$$e
- end
- else
- # get range
- if test $range -ne 0
- set range (math $range - 1)
- set start_s (date -d "$year-$month-$day - $range days" +%s)
- set start_d (string split "-" (date -d @$start_s +%Y-%m-%d))
-
- set year_diff (math $year - $start_d[1])
- set first_year_offset (math "$year_offset + 12*$year_diff")
-
- if test $first_year_offset -gt (count marks)
- echo range is to big for available data! >&2
- return 1
- end
-
- # collect relevant marks
- # $s = oldest month to add
- set s $start_d[2]
- set e 12
- for y in (seq $first_year_offset -12 $year_offset)
- # set e if last year is reached
- if test $y -eq $year_offset
- set e $month
- end
- for i in (seq $s $e)
- set range_marks $range_marks (string split ":" $marks[(math $y + $i)])[2]
- end
- # reset s -> start with january
- set s 0
- end
-
- set marks (string split "" $range_marks[1])
-
- if test (count $range_marks) -gt 1
- set marks $marks[$start_d[3]..-1]
- for i in (seq 2 (math (count $range_marks) - 1))
- set marks $marks (string split "" $range_marks[$i])
- end
- set tmp_marks (string split "" $range_marks[-1])
- set marks $marks $tmp_marks[1..$day]
- else
- set marks $marks[$start_d[3]..$day]
- end
- echo (string join "" $marks)
- else
- set marks (string split "" (string split ":" $marks[(math $month+$year_offset)])[2])
- echo $marks[$day]
- end
- end
-end
-
-function __mark_new_store --description "generates new mark store for one year"
- set year (date "+%Y")
- echo "#colors#"
- echo "#store#"
- echo $year:
- for m in (seq 1 12)
- echo -n "$m:"
- switch $m
- case 1 3 5 7 8 10 12
- set days 31
- case 4 6 9 11
- set days 30
- case 2
- if date -d "$year-02-29" >/dev/null ^/dev/null
- set days 29
- else
- set days 28
- end
- end
-
- for d in (seq 1 $days)
- echo -n "?"
- end
- echo
- end
- echo "#end#"
-end
-
-function __mark_print_month --description "print overview over a month"
-
- # defaults
- # use current year and month
- set mark_store $__mark_store
- # convert "0m" to "m" if m < 10
- set month (math (date "+%m") "*1")
- set year (date "+%Y")
-
- # parse argv
- for i in (seq 1 (count $argv))
- if string match -q -- "-y=*" "$argv[$i]"
- set year (string replace -- "-y=" "" $argv[$i])
- else if string match -q -- "-m=*" "$argv[$i]"
- set month (string replace -- "-m=" "" $argv[$i])
- else if string match -q -- "-s=*" "$argv[$i]"
- set mark_store (string replace -- "-s=" "" "$argv[$i]")
- else
- echo unrecognised option: $argv[$i] >&2
- return 1
- end
- end
-
- if not test -f $mark_store
- return 1
- end
-
- # get marks
- set marks (string split " " (__mark_print_block "store" $mark_store))
- set marks (string split ":" $marks[(math $month + 1)])[2]
- set marks (string split "" $marks)
-
- # get colors
- set colors (__mark_print_block "colors" $mark_store)
-
- # get formatted representation for month
- set month (cal $month $year)
- # strip of headline
- set month $month[2..-1]
- # day count
- set day 1
- for l in $month
- set chars (string split "" $l)
- set cursor 1
- # used if day is double-digit
- set cursor_n $cursor
- while test $cursor -le (count $chars)
- if string match -q -r "[0-9]" $chars[$cursor]
- if test (string length $day) -eq 2
- set cursor_n (math $cursor + 1)
- end
- if test $marks[$day] != "?"
- # find color
- if set col (string match -r "$marks[$day]:[^\ ]*" $colors)
- set col (string split ":" $col)[2]
- set_color $col
- else
- # default to yellow
- set_color yellow
- end
-
- echo -n (string join "" $chars[$cursor..$cursor_n])
- set_color normal
- else
- echo -n (string join "" $chars[$cursor..$cursor_n])
- end
- test $cursor_n -ne $cursor; and set cursor (math $cursor + 1)
- set day (math $day + 1)
- else
- echo -n $chars[$cursor]
- end
- set cursor (math $cursor + 1)
- set cursor_n $cursor
- end
- echo
- end
-end
-
-function __mark_set --description 'mark a day in a store'
- # defaults
- set mark_store $__mark_store
- set sign "*"
- set day (math (date +"%d") "*1")
- set month (math (date +"%m") "*1")
- set year (date +"%Y")
-
- # parse argv
- for i in (seq 1 (count $argv))
- if string match -q -- "-d=*" "$argv[$i]"
- set day (string replace -- "-d=" "" $argv[$i])
- else if string match -q -- "-m=*" "$argv[$i]"
- set month (string replace -- "-m=" "" $argv[$i])
- else if string match -q -- "-y=*" "$argv[$i]"
- set year (string replace -- "-y=" "" $argv[$i])
- else if string match -q -- "-s=*" "$argv[$i]"
- set mark_store (string replace -- "-s=" "" "$argv[$i]")
- else if string match -q -- "-z=*" "$argv[$i]"
- set sign (string replace -- "-z=" "" "$argv[$i]")
- else
- echo unrecognised option: $argv[$i] >&2
- return 1
- end
- end
-
- if not test -f $mark_store
- return 1
- end
-
- # calculate offset: $day+1 (+1 if m > 9) because of "<month>:"
- set offset (math "($day + 1 + $month/10)")
-
- set marks (__mark_print_block store $mark_store)
- set marks (string split " " $marks)
-
- # copy everything before #store#
- string split " " (string match -r "^.*#store#" (echo (cat $mark_store))) > $mark_store.new
-
- # crawl store
- set m 0
- # correct year sub-block
- set is_year false
- for l in $marks
- if begin test $is_year = false
- and string match -q -r "^$year:\$" $l
- end
- set year_found true
- end
-
- if test $is_year = true
- if test $m -ne $month
- echo $l >> $mark_store.new
- else
- # replace the char at offset with $sign
- echo $l | sed "s/^\(.\{$offset\}\)?/\1$sign/" >> $mark_store.new
- end
-
- set m (math "$m+1")
- # not in year sub-block any more
- if test $m -eq 13
- set is_year false
- end
- else
- echo $l >> $mark_store.new
- end
- end
-
- #copy everything after #store#
- set store_and_rest (string match -r "#store#.*\$" (echo (cat $mark_store)))
- string split " " (string replace -r "#store#[^#]*" "" $store_and_rest) >> $mark_store.new
-
- mv $mark_store.new $mark_store
-end
-
-function mark
- for i in (seq 2 (count $argv))
- if string match -q -- "-d=*" "$argv[$i]"
- set day (string replace -- "-d=" "" $argv[$i])
- else if string match -q -- "-m=*" "$argv[$i]"
- set month (string replace -- "-m=" "" $argv[$i])
- else if string match -q -- "-y=*" "$argv[$i]"
- set year (string replace -- "-y=" "" $argv[$i])
- else if string match -q -- "-s=*" "$argv[$i]"
- set mark_store (string replace -- "-s=" "" "$argv[$i]")
- else if string match -q -- "-z=*" "$argv[$i]"
- set sign (string replace -- "-z=" "" "$argv[$i]")
- else if string match -q -- "-r=*" "$argv[$i]"
- set range (string replace -- "-r=" "" "$argv[$i]")
- else
- echo unrecognised option: $argv[$i] >&2
- return 1
- end
- end
-
- switch $argv[1]
- case "set" "s"
- __mark_set $argv[2..-1]
- case "get" "g"
- __mark_get $argv[2..-1]
- case "month" "m"
- __mark_print_month $argv[2..-1]
- end
-end
generated by cgit v1.2.3 (git 2.25.1) at 2026-10-13 06:19:34 +0000