home/lib/login_functions.sh

   1 # Top Disk-Using directories
   2 # TODO: Consider using numfmt instead of awk
   3 tdu() {
   4     du "$1" \
   5     | sort -n -k 1 -r --parallel="$(nproc)" \
   6     | head -50 \
   7     | awk '
   8         {
   9             size = $1
  10             path = $0
  11             sub("^" $1 "\t+", "", path)
  12             gb = size / 1024 / 1024
  13             printf("%f\t%s\n", gb, path)
  14         }' \
  15     | cut -c 1-115
  16 }
  17
  18 # Top Disk-Using Files
  19 tduf() {
  20     find "$1" -type f -printf '%s\t%p\0' \
  21     | sort -z -n -k 1 -r \
  22     | head -z -n 50 \
  23     | gawk -v RS='\0' '
  24         {
  25             size = $1
  26             path = $0
  27             sub("^" $1 "\t+", "", path)
  28             gb = size / 1024 / 1024 / 1024
  29             printf("%f\t%s\n", gb, path)
  30         }'
  31 }
  32
  33 # Most-recently modified file system objects
  34 recent() {
  35     # NOTES:
  36     # - intentionally not quoting the parameters, so that some can be ignored
  37     #   if not passed, rather than be passed to find as an empty string;
  38     # - %T+ is a GNU extension;
  39     # - gawk is able to split records on \0, while awk cannot.
  40     find $@ -printf '%T@ %T+ %p\0' \
  41     | tee >(gawk -v RS='\0' 'END { printf("[INFO] Total found: %d\n", NR); }') \
  42     | sort -z -k 1 -n -r \
  43     | head -n "$(stty size | awk 'NR == 1 {print $1 - 5}')" -z \
  44     | gawk -v RS='\0' '
  45         {
  46             sub("^" $1 " +", "")  # Remove epoch time
  47             sub("+", " ")         # Blank-out the default separator
  48             sub("\\.[0-9]+", "")  # Remove fractional seconds
  49             print
  50         }'
  51 }
  52
  53 recent_dirs() {
  54     recent "$1" -type d
  55 }
  56
  57 recent_files() {
  58     recent "$1" -type f
  59 }
  60
  61 pa_def_sink() {
  62     pactl info | awk '/^Default Sink:/ {print $3}'
  63 }
  64
  65 void_pkgs() {
  66     curl "https://xq-api.voidlinux.org/v1/query/x86_64?q=$1" | jq '.data'
  67 }
  68
  69 # Colorful man
  70 man() {
  71     LESS_TERMCAP_md=$'\e[01;31m' \
  72     LESS_TERMCAP_me=$'\e[0m' \
  73     LESS_TERMCAP_se=$'\e[0m' \
  74     LESS_TERMCAP_so=$'\e[01;44;33m' \
  75     LESS_TERMCAP_ue=$'\e[0m' \
  76     LESS_TERMCAP_us=$'\e[01;32m' \
  77     command man "$@"
  78 }
  79
  80 experiment() {
  81     cd "$(~/bin/experiment $@)" || exit 1
  82 }
  83
  84 hump() {
  85     ledit -l $(stty size | awk '{print $2}') ocaml $@
  86 }
  87
  88 howto() {
  89     cat "$(find  ~/Archives/Documents/HOWTOs -mindepth 1 -maxdepth 1 | sort | fzf)"
  90 }
  91
  92 gh_fetch_repos() {
  93     curl "https://api.github.com/$1/$2/repos?page=1&per_page=10000"
  94 }
  95
  96 gh_clone() {
  97     gh_fetch_repos "$1" "$2" \
  98     | jq --raw-output '.[] | select(.fork | not) | .git_url' \
  99     | parallel -j 25 \
 100     git clone {}
 101 }
 102
 103 gh_clone_user() {
 104     gh_clone 'users' "$1"
 105 }
 106
 107 gh_clone_org() {
 108     gh_clone 'orgs' "$1"
 109 }
 110
 111 gh_clone_repo() {
 112     gh_username=$(echo "$1" | awk -F / '"$1 == "https" && $3 == github.com" {print $4}')
 113     gh_dir="${HOME}/Archives/Software/src/repos/remote/github.com/${gh_username}"
 114     mkdir -p "$gh_dir"
 115     cd "$gh_dir" || exit 1
 116     git clone "$1"
 117     cd - || exit 1
 118 }
 119
 120 work_log_template() {
 121 cat << EOF
 122 $(date +%F)
 123 ==========
 124
 125 Morning report
 126 --------------
 127
 128 ### Previous
 129
 130 ### Current
 131
 132 ### Blockers
 133
 134 Day's notes
 135 -----------
 136 EOF
 137 }
 138
 139 work_log() {
 140     mkdir -p "$DIR_WORK_LOG"
 141     file_work_log_today="${DIR_WORK_LOG}/$(date +%F).md"
 142     if [ ! -f "$file_work_log_today" ]
 143     then
 144         work_log_template > "$file_work_log_today"
 145     fi
 146     vim "$file_work_log_today"
 147
 148 }
 149
 150 weather() {
 151     curl "http://wttr.in/$WEATHER_LOCATION"
 152 }
 153
 154 bt_devs_paired() {
 155     bluetoothctl -- paired-devices \
 156     | awk '{print $2}' \
 157     | xargs bluetoothctl -- info
 158 }
 159
 160 bt_devs() {
 161     bluetoothctl -- devices \
 162     | awk '{print $2}' \
 163     | xargs bluetoothctl -- info
 164 }