4 local -r word
=$
(fzf
< /usr
/share
/dict
/words
)
8 shell_activity_report
() {
9 # TODO: optional concrete number output
10 # TODO: optional combinations of granularities: hour, weekday, month, year
17 echo "Usage: $0 [mon|dow]" >&2
21 |
awk -v group_by
="$group_by" '
22 function date2dow(y, m, d, _t, _i) {
24 # y > 1752, 1 <= m <= 12.
27 # https://en.wikipedia.org/wiki/Determination_of_the_day_of_the_week#Sakamoto%27s_methods
41 _i = int(y + y/4 - y/100 + y/400 + _t[m - 1] + d) % 7
42 _i = _i == 0 ? 7 : _i # Make Sunday last
48 # NOTE: $2 & $3 are specific to oh-my-zsh history output
51 d_fields = split(date, d, "-")
52 t_fields = split(time, t, ":")
53 if (t_fields && d_fields) {
54 # +0 to coerce number from string
59 dow = date2dow(year, month, day)
60 g = group_by == "mon" ? month : dow # dow is default
89 n = group_by == "mon" ? 12 : 7 # dow is default
91 for (gid = 1; gid <= n; gid++) {
92 group = group_by == "mon" ? m[gid] : w[gid]
94 for (hour=0; hour<24; hour++) {
97 for (i = 1; i <= (c * 100) / max; i++)
114 print count[cmd], cmd
121 c = count[NR] = $1 + 0 # + 0 to coerce number from string
127 for (i = 1; i <= NR; i++) {
129 printf "%s %d ", cmd[i], c
130 scaled = (c * 100) / max
131 for (j = 1; j <= scaled; j++)
139 # Top Disk-Using directories
140 # TODO: Consider using numfmt instead of awk
149 sub("^" $1 "\t+", "", path)
150 gb = size / 1024 / 1024
151 printf("%f\t%s\n", gb, path)
156 # Top Disk-Using Files
158 find "$1" -type f
-printf '%s\t%p\0' \
165 sub("^" $1 "\t+", "", path)
166 gb = size / 1024 / 1024 / 1024
167 printf("%f\t%s\n", gb, path)
171 # Most-recently modified file system objects
174 # - intentionally not quoting the parameters, so that some can be ignored
175 # if not passed, rather than be passed to find as an empty string;
176 # - %T+ is a GNU extension;
177 # - gawk is able to split records on \0, while awk cannot.
178 find $@
-printf '%T@ %T+ %p\0' \
179 |
tee >(gawk
-v RS
='\0' 'END { printf("[INFO] Total found: %d\n", NR); }') \
180 |
sort -z -k 1 -n -r \
181 |
head -n "$(stty size | awk 'NR == 1 {print $1 - 5}')" -z \
184 sub("^" $1 " +", "") # Remove epoch time
185 sub("+", " ") # Blank-out the default separator
186 sub("\\.[0-9]+", "") # Remove fractional seconds
200 pactl info |
awk '/^Default Sink:/ {print $3}'
204 curl
"https://xq-api.voidlinux.org/v1/query/x86_64?q=$1" | jq
'.data'
209 LESS_TERMCAP_md
=$
'\e[01;31m' \
210 LESS_TERMCAP_me
=$
'\e[0m' \
211 LESS_TERMCAP_se
=$
'\e[0m' \
212 LESS_TERMCAP_so
=$
'\e[01;44;33m' \
213 LESS_TERMCAP_ue
=$
'\e[0m' \
214 LESS_TERMCAP_us
=$
'\e[01;32m' \
219 cd "$(~/bin/experiment $@)" ||
kill -INT $$
223 ledit
-l "$(stty size | awk '{print $2}')" ocaml $@
227 cat "$(find ~/Archives/Documents/HOWTOs -mindepth 1 -maxdepth 1 | sort | fzf)"
237 _yt_id
=$
(youtube-dl
--get-id "$_yt_uri")
238 _yt_title
=$
(youtube-dl
--get-title "$_yt_uri")
239 _yt_dir
="${DIR_YOUTUBE}/individual-videos/${_yt_title}--${_yt_id}"
242 cd "$_yt_dir" ||
kill -INT $$
243 echo "$_yt_uri" > 'uri'
244 youtube-dl
-c --write-description --write-info-json "$_yt_uri"
248 curl
"https://api.github.com/$1/$2/repos?page=1&per_page=10000"
254 gh_dir
="${DIR_GITHUB}/${gh_user_name}"
256 cd "$gh_dir" ||
kill -INT $$
257 gh_fetch_repos
"$gh_user_type" "$gh_user_name" \
258 | jq
--raw-output '.[] | select(.fork | not) | .git_url' \
264 gh_clone
'users' "$1"
272 gh_username
=$
(echo "$1" |
awk -F / '"$1 == "https" && $3 == github.com" {print $4}')
273 gh_dir
="${DIR_GITHUB}/${gh_username}"
275 cd "$gh_dir" ||
kill -INT $$
279 work_log_template
() {
299 mkdir
-p "$DIR_WORK_LOG"
300 file_work_log_today
="${DIR_WORK_LOG}/$(date +%F).md"
301 if [ ! -f "$file_work_log_today" ]
303 work_log_template
> "$file_work_log_today"
305 vim
-c 'set spell' "$file_work_log_today"
310 mkdir
-p "$DIR_NOTES"
311 vim
-c 'set spell' "$DIR_NOTES/$(date +'%Y_%m_%d--%H_%M_%S%z')--$1.md"
315 local _weather_location
317 '') _weather_location
="$WEATHER_LOCATION";;
318 *) _weather_location
="$1"
320 curl
"http://wttr.in/$_weather_location"
324 bluetoothctl
-- paired-devices \
326 |
xargs bluetoothctl
-- info
330 bluetoothctl
-- devices \
332 |
xargs bluetoothctl
-- info
337 $@
2> >(tee "$stderr")
341 0) urgency
='normal';;
342 *) urgency
='critical'
344 notify-send
-u "$urgency" "Job done: $code" "$(cat $stderr)"
This page took 0.120637 seconds and 4 git commands to generate.