Modify gh_clone to auto-cd into archive directory
[khome.git] / 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_user_type="$1"
98 gh_user_name="$2"
99 gh_dir="${DIR_GITHUB}/${gh_user_name}"
100 mkdir -p "$gh_dir"
101 cd "$gh_dir" || exit 1
102 gh_fetch_repos "$gh_user_type" "$gh_user_name" \
103 | jq --raw-output '.[] | select(.fork | not) | .git_url' \
104 | parallel -j 25 \
105 git clone {}
106 }
107
108 gh_clone_user() {
109 gh_clone 'users' "$1"
110 }
111
112 gh_clone_org() {
113 gh_clone 'orgs' "$1"
114 }
115
116 gh_clone_repo() {
117 gh_username=$(echo "$1" | awk -F / '"$1 == "https" && $3 == github.com" {print $4}')
118 gh_dir="${DIR_GITHUB}/${gh_username}"
119 mkdir -p "$gh_dir"
120 cd "$gh_dir" || exit 1
121 git clone "$1"
122 cd - || exit 1
123 }
124
125 work_log_template() {
126 cat << EOF
127 $(date +%F)
128 ==========
129
130 Morning report
131 --------------
132
133 ### Previous
134
135 ### Current
136
137 ### Blockers
138
139 Day's notes
140 -----------
141 EOF
142 }
143
144 work_log() {
145 mkdir -p "$DIR_WORK_LOG"
146 file_work_log_today="${DIR_WORK_LOG}/$(date +%F).md"
147 if [ ! -f "$file_work_log_today" ]
148 then
149 work_log_template > "$file_work_log_today"
150 fi
151 vim "$file_work_log_today"
152
153 }
154
155 weather() {
156 curl "http://wttr.in/$WEATHER_LOCATION"
157 }
158
159 bt_devs_paired() {
160 bluetoothctl -- paired-devices \
161 | awk '{print $2}' \
162 | xargs bluetoothctl -- info
163 }
164
165 bt_devs() {
166 bluetoothctl -- devices \
167 | awk '{print $2}' \
168 | xargs bluetoothctl -- info
169 }
This page took 0.095727 seconds and 4 git commands to generate.