Add ~/.emacs.d/bin to PATH
[khome.git] / home / lib / login_functions.sh
CommitLineData
e0dbdb36
SK
1#
2
3d() {
4 local -r word=$(fzf < /usr/share/dict/words)
5 dict "$word"
6}
7
94df2def 8shell_activity_report() {
ec81fc0a 9 # TODO: optional concrete number output
ec81fc0a 10 # TODO: optional combinations of granularities: hour, weekday, month, year
d72bfd8f
SK
11 local group_by="$1"
12 case "$group_by" in
13 'mon') ;;
14 'dow') ;;
15 '') group_by='dow';;
16 *)
957b0d4f 17 echo "Usage: $0 [mon|dow]" >&2
4b5a2977 18 kill -INT $$
d72bfd8f 19 esac
94df2def 20 history \
d72bfd8f
SK
21 | awk -v group_by="$group_by" '
22 function date2dow(y, m, d, _t, _i) {
23 # Contract:
24 # y > 1752, 1 <= m <= 12.
25 # Source:
26 # Sakamoto`s methods
27 # https://en.wikipedia.org/wiki/Determination_of_the_day_of_the_week#Sakamoto%27s_methods
28 _t[ 0] = 0
29 _t[ 1] = 3
30 _t[ 2] = 2
31 _t[ 3] = 5
32 _t[ 4] = 0
33 _t[ 5] = 3
34 _t[ 6] = 5
35 _t[ 7] = 1
36 _t[ 8] = 4
37 _t[ 9] = 6
38 _t[10] = 2
39 _t[11] = 4
40 y -= m < 3
41 _i = int(y + y/4 - y/100 + y/400 + _t[m - 1] + d) % 7
42 _i = _i == 0 ? 7 : _i # Make Sunday last
43 return _i
44
45 }
46
94df2def 47 {
ec81fc0a
SK
48 # NOTE: $2 & $3 are specific to oh-my-zsh history output
49 date = $2
94df2def 50 time = $3
ec81fc0a
SK
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
d72bfd8f 55 year = d[1] + 0
ec81fc0a 56 month = d[2] + 0
d72bfd8f 57 day = d[3] + 0
ec81fc0a 58 hour = t[1] + 0
d72bfd8f
SK
59 dow = date2dow(year, month, day)
60 g = group_by == "mon" ? month : dow # dow is default
61 c = count[g, hour]++
94df2def 62 }
ec81fc0a
SK
63 if (c > max)
64 max = c
94df2def
SK
65 }
66
ec81fc0a 67 END {
d72bfd8f
SK
68 w[1] = "Monday"
69 w[2] = "Tuesday"
70 w[3] = "Wednesday"
71 w[4] = "Thursday"
72 w[5] = "Friday"
73 w[6] = "Saturday"
74 w[7] = "Sunday"
75
ec81fc0a
SK
76 m[ 1] = "January"
77 m[ 2] = "February"
78 m[ 3] = "March"
79 m[ 4] = "April"
80 m[ 5] = "May"
81 m[ 6] = "June"
82 m[ 7] = "July"
83 m[ 8] = "August"
84 m[ 9] = "September"
85 m[10] = "October"
86 m[11] = "November"
87 m[12] = "December"
d72bfd8f
SK
88
89 n = group_by == "mon" ? 12 : 7 # dow is default
90
91 for (gid = 1; gid <= n; gid++) {
92 group = group_by == "mon" ? m[gid] : w[gid]
93 printf "%s\n", group;
94df2def 94 for (hour=0; hour<24; hour++) {
d72bfd8f 95 c = count[gid, hour]
ec81fc0a
SK
96 printf " %2d ", hour
97 for (i = 1; i <= (c * 100) / max; i++)
94df2def
SK
98 printf "|"
99 printf "\n"
100 }
ec81fc0a
SK
101 }
102 }'
94df2def
SK
103}
104
d265cd11
SK
105top_commands() {
106 history \
107 | awk '
108 {
109 count[$4]++
110 }
111
112 END {
113 for (cmd in count)
114 print count[cmd], cmd
115 }' \
116 | sort -n -r -k 1 \
117 | head -50 \
118 | awk '
119 {
120 cmd[NR] = $2
121 c = count[NR] = $1 + 0 # + 0 to coerce number from string
122 if (c > max)
123 max = c
124 }
125
126 END {
127 for (i = 1; i <= NR; i++) {
128 c = count[i]
129 printf "%s %d ", cmd[i], c
130 scaled = (c * 100) / max
131 for (j = 1; j <= scaled; j++)
132 printf "|"
133 printf "\n"
134 }
135 }' \
136 | column -t
137}
138
c7de24d9 139# Top Disk-Using directories
58bdbfbf 140# TODO: Consider using numfmt instead of awk
c7de24d9
SK
141tdu() {
142 du "$1" \
858aa230
SK
143 | sort -n -k 1 \
144 | tail -50 \
c7de24d9
SK
145 | awk '
146 {
147 size = $1
148 path = $0
149 sub("^" $1 "\t+", "", path)
150 gb = size / 1024 / 1024
151 printf("%f\t%s\n", gb, path)
8bb31e8f 152 }'
c7de24d9
SK
153}
154
27456eb6
SK
155# Top Disk-Using Files
156tduf() {
157 find "$1" -type f -printf '%s\t%p\0' \
858aa230
SK
158 | sort -z -n -k 1 \
159 | tail -z -n 50 \
27456eb6
SK
160 | gawk -v RS='\0' '
161 {
162 size = $1
163 path = $0
164 sub("^" $1 "\t+", "", path)
165 gb = size / 1024 / 1024 / 1024
166 printf("%f\t%s\n", gb, path)
167 }'
168}
169
909ece30
SK
170# Most-recently modified file system objects
171recent() {
68992a1d
SK
172 # NOTES:
173 # - intentionally not quoting the parameters, so that some can be ignored
174 # if not passed, rather than be passed to find as an empty string;
175 # - %T+ is a GNU extension;
176 # - gawk is able to split records on \0, while awk cannot.
909ece30 177 find $@ -printf '%T@ %T+ %p\0' \
68992a1d 178 | tee >(gawk -v RS='\0' 'END { printf("[INFO] Total found: %d\n", NR); }') \
909ece30
SK
179 | sort -z -k 1 -n -r \
180 | head -n "$(stty size | awk 'NR == 1 {print $1 - 5}')" -z \
181 | gawk -v RS='\0' '
182 {
183 sub("^" $1 " +", "") # Remove epoch time
184 sub("+", " ") # Blank-out the default separator
185 sub("\\.[0-9]+", "") # Remove fractional seconds
186 print
187 }'
909ece30
SK
188}
189
190recent_dirs() {
191 recent "$1" -type d
192}
193
194recent_files() {
195 recent "$1" -type f
196}
197
c7de24d9
SK
198pa_def_sink() {
199 pactl info | awk '/^Default Sink:/ {print $3}'
200}
201
202void_pkgs() {
203 curl "https://xq-api.voidlinux.org/v1/query/x86_64?q=$1" | jq '.data'
204}
205
206# Colorful man
207man() {
0c296cad
SK
208 # mb: begin blink
209 # md: begin bold
210 # me: end bold, blink and underline
211 #
212 # so: begin standout (reverse video)
213 # se: end standout
214 #
215 # us: begin underline
216 # ue: end underline
217
d93397a6 218 LESS_TERMCAP_md=$'\e[01;30m' \
c7de24d9 219 LESS_TERMCAP_me=$'\e[0m' \
c7de24d9 220 LESS_TERMCAP_so=$'\e[01;44;33m' \
fc2ae05b 221 LESS_TERMCAP_se=$'\e[0m' \
d93397a6 222 LESS_TERMCAP_us=$'\e[01;33m' \
fc2ae05b 223 LESS_TERMCAP_ue=$'\e[0m' \
c7de24d9
SK
224 command man "$@"
225}
64ec9f23
SK
226
227experiment() {
4b5a2977 228 cd "$(~/bin/experiment $@)" || kill -INT $$
64ec9f23 229}
801dd7bd
SK
230
231hump() {
2e8cf226 232 ledit -l "$(stty size | awk '{print $2}')" ocaml $@
801dd7bd 233}
632b7c4a
SK
234
235howto() {
a42aa7f8 236 cat "$(find ~/arc/doc/HOWTOs -mindepth 1 -maxdepth 1 | sort | fzf)"
632b7c4a 237}
f4e0bb58 238
86b74662
SK
239_yt() {
240 local -r base_dir="$1"
e5eff223
SK
241 local -r uri="$2"
242 local -r opts="$3"
86b74662
SK
243
244 local -r id=$(youtube-dlc --get-id "$uri")
245 local -r title=$(youtube-dlc --get-title "$uri" | sed 's/[^A-Za-z0-9._-]/_/g')
246 local -r dir="${base_dir}/${title}--${id}"
247
248 mkdir -p "$dir"
249 cd "$dir" || kill -INT $$
250 echo "$uri" > 'uri'
251 youtube-dlc $opts -c --write-description --write-info-json "$uri"
252}
253
254yt_audio() {
255 local -r uri="$1"
e5eff223 256 _yt "${DIR_YOUTUBE_AUDIO}/individual" "$uri" '-f 140'
86b74662
SK
257}
258
259yt_video() {
260 local -r uri="$1"
261 _yt "${DIR_YOUTUBE_VIDEO}/individual" "$uri"
60e43329
SK
262}
263
f4e0bb58
SK
264gh_fetch_repos() {
265 curl "https://api.github.com/$1/$2/repos?page=1&per_page=10000"
266}
267
268gh_clone() {
1f80896b
SK
269 local -r gh_user_type="$1"
270 local -r gh_user_name="$2"
271
272 local -r gh_dir="${DIR_GITHUB}/${gh_user_name}"
8aa18398 273 mkdir -p "$gh_dir"
4b5a2977 274 cd "$gh_dir" || kill -INT $$
8aa18398 275 gh_fetch_repos "$gh_user_type" "$gh_user_name" \
f4e0bb58
SK
276 | jq --raw-output '.[] | select(.fork | not) | .git_url' \
277 | parallel -j 25 \
278 git clone {}
279}
280
281gh_clone_user() {
282 gh_clone 'users' "$1"
283}
284
285gh_clone_org() {
286 gh_clone 'orgs' "$1"
287}
e09a8d5a 288
610785ef
SK
289gh_clone_repo() {
290 gh_username=$(echo "$1" | awk -F / '"$1 == "https" && $3 == github.com" {print $4}')
8aa18398 291 gh_dir="${DIR_GITHUB}/${gh_username}"
610785ef 292 mkdir -p "$gh_dir"
4b5a2977 293 cd "$gh_dir" || kill -INT $$
610785ef 294 git clone "$1"
610785ef
SK
295}
296
c45bdb58
SK
297work_log_template() {
298cat << EOF
d8da04c5 299$(date '+%F %A')
c45bdb58
SK
300==========
301
302Morning report
303--------------
304
a744f575 305### Prev
c45bdb58 306
a744f575
SK
307### Curr
308
309### Next
c45bdb58
SK
310
311### Blockers
312
313Day's notes
314-----------
315EOF
316}
317
318work_log() {
319 mkdir -p "$DIR_WORK_LOG"
1f80896b 320 local -r file_work_log_today="${DIR_WORK_LOG}/$(date +%F).md"
c45bdb58
SK
321 if [ ! -f "$file_work_log_today" ]
322 then
323 work_log_template > "$file_work_log_today"
324 fi
3008cd51 325 vim -c 'set spell' "$file_work_log_today"
c45bdb58
SK
326
327}
328
065977fd
SK
329note() {
330 mkdir -p "$DIR_NOTES"
3008cd51 331 vim -c 'set spell' "$DIR_NOTES/$(date +'%Y_%m_%d--%H_%M_%S%z')--$1.md"
065977fd
SK
332}
333
e09a8d5a 334weather() {
87b05c1b
SK
335 local _weather_location
336 case "$1" in
337 '') _weather_location="$WEATHER_LOCATION";;
338 *) _weather_location="$1"
339 esac
b01250dc 340 curl "http://wttr.in/$_weather_location?format=v2"
e09a8d5a 341}
2c0865d1 342
d0a246c9
SK
343_bt_devs_infos() {
344 # grep's defintion of a line does not include \r, wile awk's does and
345 # which bluetoothctl outputs
346 awk '/^Device +/ {print $2}' \
347 | xargs -I% sh -c 'echo info % | bluetoothctl' \
311f355a 348 | awk '/^Device |^\t[A-Z][A-Za-z0-9]+: /'
d0a246c9
SK
349}
350
2c0865d1 351bt_devs_paired() {
d0a246c9 352 echo 'paired-devices' | bluetoothctl | _bt_devs_infos
2c0865d1
SK
353}
354
355bt_devs() {
d0a246c9 356 echo 'devices' | bluetoothctl | _bt_devs_infos
2c0865d1 357}
dfbaafa4
SK
358
359run() {
1f80896b
SK
360 local -r stderr="$(mktemp)"
361
362 local code urgency
363
dfbaafa4
SK
364 $@ 2> >(tee "$stderr")
365 code="$?"
dfbaafa4
SK
366 case "$code" in
367 0) urgency='normal';;
368 *) urgency='critical'
369 esac
370 notify-send -u "$urgency" "Job done: $code" "$(cat $stderr)"
371 rm "$stderr"
372}
3f673776
SK
373
374bar_gauge() {
948953b2
SK
375 awk "$@" '
376 BEGIN {
325a679e 377 # CLI options
f865d284 378 width = width ? width : 80
948953b2
SK
379 ch_left = ch_left ? ch_left : "["
380 ch_right = ch_right ? ch_right : "]"
381 ch_blank = ch_blank ? ch_blank : "-"
382 ch_used = ch_used ? ch_used : "|"
325a679e
SK
383 num = num ? 1 : 0
384 pct = pct ? 1 : 0
948953b2 385 }
3f673776 386
3f673776 387 {
e89edca7
SK
388 cur = $1
389 max = $2
390 lab = $3
3f673776 391
948953b2 392 cur_scaled = num_scale(cur, max, 1, width)
3f673776 393
948953b2 394 printf \
48c23173 395 "%s%s%s%s", \
948953b2
SK
396 lab ? lab " " : "", \
397 num ? cur "/" max " " : "", \
48c23173 398 pct ? sprintf("%3.0f%% ", cur / max * 100) : "", \
948953b2 399 ch_left
3f673776 400 for (i=1; i<=width; i++) {
948953b2 401 c = i <= cur_scaled ? ch_used : ch_blank
bcc030dc 402 printf "%s", c
3f673776 403 }
948953b2 404 printf "%s\n", ch_right
3f673776
SK
405 }
406
407 function num_scale(src_cur, src_max, dst_min, dst_max) {
408 return dst_min + ((src_cur * (dst_max - dst_min)) / src_max)
409 }
410 '
411}
412
9699e21d
SK
413flat_top_5() {
414 sort -n -k 1 -r \
415 | head -5 \
416 | awk '
417 {
418 cur = $1
419 max = $2
420 name = $3
421 pct = cur / max * 100
2cb32f21
SK
422 printf "%s%s %.2f%%", sep, name, pct
423 sep = ", "
9699e21d
SK
424 }
425
426 END {printf "\n"}
2cb32f21 427 '
9699e21d
SK
428}
429
ab62e6ac
SK
430internet_addr() {
431 curl --silent --show-error --max-time "${1:=1}" 'https://api.ipify.org' 2>&1
432}
433
3914b6b1 434status_batt() {
3f673776
SK
435 case "$(uname)" in
436 'Linux')
db8ff593
SK
437 if which upower > /dev/null
438 then
439 upower --dump \
440 | awk '
441 /^Device:[ \t]+/ {
442 device["path"] = $2
443 next
444 }
445
446 / battery/ && device["path"] {
447 device["is_battery"] = 1
448 next
449 }
450
451 / percentage:/ && device["is_battery"] {
452 device["battery_percentage"] = $2
453 sub("%$", "", device["battery_percentage"])
454 next
455 }
456
457 /^$/ {
458 if (device["is_battery"] && device["path"] == "/org/freedesktop/UPower/devices/DisplayDevice")
459 print device["battery_percentage"], 100, "batt"
460 delete device
461 }
462 '
463 fi
3f673776
SK
464 ;;
465 esac
54031225
SK
466}
467
468indent() {
469 awk -v unit="$1" '{printf "%s%s\n", unit, $0}'
470}
471
3914b6b1 472status() {
54031225
SK
473 local -r indent_unit=' '
474
475 uname -srvmo
476 hostname | figlet
477 uptime
3f673776 478
291e586a
SK
479 echo
480
2cb32f21
SK
481 echo 'accounting'
482
483 printf '%stmux\n%ssessions %d, clients %d\n' \
484 "$indent_unit" \
485 "${indent_unit}${indent_unit}" \
8a52188c
SK
486 "$(tmux list-sessions 2> /dev/null | wc -l)" \
487 "$(tmux list-clients 2> /dev/null | wc -l)"
54031225
SK
488
489 echo
490
2cb32f21
SK
491 printf '%sprocs by user\n' "${indent_unit}"
492 ps -eo user \
493 | awk '
494 NR > 1 {
495 count_by_user[$1]++
496 total++
497 }
498
499 END {
500 for (user in count_by_user)
501 print count_by_user[user], total, user
502 }
503 ' \
504 | flat_top_5 \
505 | indent "${indent_unit}${indent_unit}"
506
507 echo
508
509 echo 'resources'
54031225 510 (
e89edca7
SK
511 free | awk '$1 == "Mem:" {print $3, $2, "mem"}'
512 df ~ | awk 'NR == 2 {print $3, $3 + $4, "disk"}'
3914b6b1 513 status_batt
54031225 514 ) \
f865d284 515 | bar_gauge -v width=60 -v pct=1 \
54031225
SK
516 | column -t \
517 | indent "$indent_unit"
518
519 echo
520
2cb32f21
SK
521 printf '%smem by proc\n' "$indent_unit"
522 ps -eo rss,cmd \
c5f3db43 523 | awk -v total="$(free | awk '$1 == "Mem:" {print $2; exit}')" '
2cb32f21
SK
524 NR > 1 {
525 rss = $1
526 cmd = $2
527 n = split(cmd, path, "/") # _may_ be a path
528 proc = path[n]
02f10c8b 529 by_proc[proc] += rss
2cb32f21
SK
530 }
531
532 END {
533 for (proc in by_proc)
534 print by_proc[proc], total, proc
535 }
536 ' \
537 | flat_top_5 \
538 | indent "${indent_unit}${indent_unit}"
539
540 echo
541
b8651fc6
SK
542 local -r internet_addr=$(internet_addr 0.5)
543 local -r internet_ptr=$(host -W 1 "$internet_addr" | awk 'NR == 1 {print $NF}' )
544
2cb32f21 545 echo 'net'
ab62e6ac 546 echo "${indent_unit}internet"
b8651fc6 547 echo "${indent_unit}${indent_unit}$internet_addr $internet_ptr"
857e80ac 548 echo "${indent_unit}if"
291e586a
SK
549 (ifconfig; iwconfig) 2> /dev/null \
550 | awk '
551 /^[^ ]/ {
552 device = $1
553 sub(":$", "", device)
554 if ($4 ~ "ESSID:") {
555 _essid = $4
556 sub("^ESSID:\"", "", _essid)
557 sub("\"$", "", _essid)
558 essid[device] = _essid
559 }
560 next
561 }
562
563 /^ / && $1 == "inet" {
564 address[device] = $2
565 next
566 }
567
568 /^ +Link Quality=[0-9]+\/[0-9]+ +Signal level=/ {
569 split($2, lq_parts_eq, "=")
570 split(lq_parts_eq[2], lq_parts_slash, "/")
571 cur = lq_parts_slash[1]
572 max = lq_parts_slash[2]
573 link[device] = cur / max * 100
574 next
575 }
576
577 END {
578 for (device in address)
579 if (device != "lo") {
580 l = link[device]
581 e = essid[device]
164f3674 582 l = l ? sprintf("%.0f%%", l) : "--"
291e586a
SK
583 e = e ? e : "--"
584 print device, address[device], e, l
585 }
586 }
587 ' \
54031225
SK
588 | column -t \
589 | indent "${indent_unit}${indent_unit}"
291e586a 590
3f673776 591 # WARN: ensure: $USER ALL=(ALL) NOPASSWD:/bin/netstat
857e80ac
SK
592
593 echo "${indent_unit}-->"
594
4eb99bdc
SK
595 sudo -n netstat -tulnp \
596 | awk -v indent="${indent_unit}${indent_unit}" '
597 NR > 2 && ((/^tcp/ && proc = $7) || (/^udp/ && proc = $6)) {
598 protocol = $1
599 addr = $4
600 port = a[split(addr, a, ":")]
601 name = p[split(proc, p, "/")]
602 names[name] = 1
603 protocols[protocol] = 1
604 if (!seen[protocol, name, port]++)
605 ports[protocol, name, ++seen[protocol, name]] = port
606 }
607
608 END {
609 for (protocol in protocols) {
610 printf "%s%s\t", indent, toupper(protocol)
611 for (name in names) {
612 if (n = seen[protocol, name]) {
613 sep = ""
614 printf "%s:", name
615 for (i = 1; i <= n; i++) {
616 printf "%s%d", sep, ports[protocol, name, i]
617 sep = ","
618 }
619 printf " "
620 }
621 }
622 printf "\n"
623 }
624 }'
857e80ac
SK
625
626 echo "${indent_unit}<->"
627
628 printf '%sTCP: ' "${indent_unit}${indent_unit}"
629 sudo -n netstat -tnp \
630 | awk 'NR > 2 && $6 == "ESTABLISHED" {print $7}' \
631 | awk -F/ '{print $2}' \
632 | sort -u \
633 | xargs \
634 | column -t
5dfe845a
SK
635
636 # TODO: iptables summary
3f673776 637}
ae23e5e3
SK
638
639ssh_invalid_attempts_from() {
640 awk '
641 /: Invalid user/ && $5 ~ /^sshd/ {
642 u=$8
643 addr=$10 == "port" ? $9 : $10
644 max++
645 curr[addr]++
646 }
647
648 END {
649 for (addr in curr)
650 if ((c = curr[addr]) > 1)
651 print c, max, addr
652 }
653 ' \
654 /var/log/auth.log \
655 /var/log/auth.log.1 \
656 | sort -n -k 1 \
ea9d43c9 657 | bar_gauge -v width="$(stty size | awk '{print $2}')" -v num=1 -v ch_right=' ' -v ch_left=' ' -v ch_blank=' ' \
ae23e5e3
SK
658 | column -t
659}
fecd2781
SK
660
661loggers() {
662 awk '
663 {
664 split($5, prog, "[")
665 sub(":$", "", prog[1]) # if there were no [], than : will is left behind
666 print prog[1]
abbf7a2a 667 }' /var/log/syslog /var/log/syslog.1 \
fecd2781
SK
668 | awk '
669 {
670 n = split($1, path, "/") # prog may be in path form
671 prog = path[n]
672 total++
673 count[prog]++
674 }
675
676 END {
677 for (prog in count)
678 print count[prog], total, prog
679 }' \
edc3863d 680 | sort -n -k 1 \
fecd2781
SK
681 | bar_gauge -v num=1 -v ch_right=' ' -v ch_left=' ' -v ch_blank=' ' \
682 | column -t
683}
This page took 0.235294 seconds and 4 git commands to generate.