|
@@ -1,324 +0,0 @@
|
1
|
|
-#!/bin/bash
|
2
|
|
-
|
3
|
|
-warn() {
|
4
|
|
- echo "$@" >&2
|
5
|
|
-}
|
6
|
|
-
|
7
|
|
-think() {
|
8
|
|
- $Verbose || return
|
9
|
|
- warn "$@"
|
10
|
|
-}
|
11
|
|
-
|
12
|
|
-die() {
|
13
|
|
- warn "$@"
|
14
|
|
- exit 3
|
15
|
|
-}
|
16
|
|
-
|
17
|
|
-usage() {
|
18
|
|
- warn "usage: $0 init VAULT SUBVAULT"
|
19
|
|
- warn "usage: $0 explore VAULT SUBVAULT"
|
20
|
|
- exit 2
|
21
|
|
-}
|
22
|
|
-
|
23
|
|
-debug() {
|
24
|
|
- $Debug || return
|
25
|
|
- local msg
|
26
|
|
- for msg in "$@";
|
27
|
|
- do
|
28
|
|
- warn "debug:$msg"
|
29
|
|
- done
|
30
|
|
-}
|
31
|
|
-
|
32
|
|
-debugv() {
|
33
|
|
- $Debug || return
|
34
|
|
- local vn
|
35
|
|
- local vd
|
36
|
|
- for vn in "$@";
|
37
|
|
- do
|
38
|
|
- if vd=$(declare -p "$vn" 2>/dev/null);
|
39
|
|
- then
|
40
|
|
- warn "debug:${vd#declare ?? }"
|
41
|
|
- else
|
42
|
|
- warn "debug:$vn #Unset"
|
43
|
|
- fi
|
44
|
|
- done
|
45
|
|
-}
|
46
|
|
-
|
47
|
|
-debugc() {
|
48
|
|
- $Debug || return
|
49
|
|
- debug "-- cmd begin: $*"
|
50
|
|
- Debug=false "$@" | sed -e 's/^/debug:/' >&2
|
51
|
|
- debug "-- cmd end --"
|
52
|
|
-}
|
53
|
|
-
|
54
|
|
-lssv() {
|
55
|
|
- #
|
56
|
|
- # List sub-vaults
|
57
|
|
- #
|
58
|
|
- # Sub-vault is a sub-path of vault directory that contains items
|
59
|
|
- # that should be linked separately, to a similar $HOME subpath,
|
60
|
|
- # rather than linking the whole sub-tree. This is typical for
|
61
|
|
- # .config directory specified by XDG standard.
|
62
|
|
- #
|
63
|
|
- # For example, imagine vault like this:
|
64
|
|
- #
|
65
|
|
- # dotfiles/
|
66
|
|
- # ├── config
|
67
|
|
- # │ ├── dunst
|
68
|
|
- # │ │ └── dunstrc
|
69
|
|
- # │ └── uzbl
|
70
|
|
- # │ ├── config
|
71
|
|
- # │ └── style.css
|
72
|
|
- # ├── i3
|
73
|
|
- # │ └── config
|
74
|
|
- # ├── i3status.conf
|
75
|
|
- # └── vimrc
|
76
|
|
- #
|
77
|
|
- # Without sub-vault, the "config" would be linked as "$HOME/.config":
|
78
|
|
- #
|
79
|
|
- # $HOME/.config -> dotfiles/.config
|
80
|
|
- # $HOME/.i3 -> dotfiles/i3
|
81
|
|
- # $HOME/.i3status.conf -> dotfiles/i3status.conf
|
82
|
|
- # $HOME/.vimrc -> dotfiles/vimrc
|
83
|
|
- #
|
84
|
|
- # This is impractical in most cases, as normally you want to select
|
85
|
|
- # applications to link--some dotfiles could be specific to some
|
86
|
|
- # hosts or even private.
|
87
|
|
- #
|
88
|
|
- # Setting 'config' as sub-vault will tell mklinks that you don't
|
89
|
|
- # want to link this item directly but rather each of its items:
|
90
|
|
- #
|
91
|
|
- # $HOME/.config/dunst -> dotfiles/config/dunst
|
92
|
|
- # $HOME/.config/uzbl -> dotfiles/config/uzbl
|
93
|
|
- # $HOME/.i3 -> dotfiles/i3
|
94
|
|
- # $HOME/.i3status.conf -> dotfiles/i3status.conf
|
95
|
|
- # $HOME/.vimrc -> dotfiles/vimrc
|
96
|
|
- #
|
97
|
|
- # This way, you can have other items under "$HOME/.config" that
|
98
|
|
- # are either purely local or linked to another vault.
|
99
|
|
- #
|
100
|
|
- # Note that the subvault can be deeper than one level, i.e.
|
101
|
|
- # subvault "local/share" also works:
|
102
|
|
- #
|
103
|
|
- # $HOME/.local/share/klavaro -> dotfiles/local/share/klavaro
|
104
|
|
- #
|
105
|
|
- local sv
|
106
|
|
- test -n "${SubVaults[0]}" && {
|
107
|
|
- think "using sub-vaults from command line"
|
108
|
|
- for sv in "${SubVaults[@]}";
|
109
|
|
- do
|
110
|
|
- echo "$sv"
|
111
|
|
- done
|
112
|
|
- return
|
113
|
|
- }
|
114
|
|
- test -f "$Vault/dotvault/subvaults" && {
|
115
|
|
- think "reading subvaults from file: $Vault/dotvault/subvaults"
|
116
|
|
- grep . "$Vault/dotvault/subvaults" \
|
117
|
|
- | grep -v "^#.*"
|
118
|
|
- return
|
119
|
|
- }
|
120
|
|
- think "using hard-coded list of subvaults"
|
121
|
|
- echo config
|
122
|
|
-}
|
123
|
|
-
|
124
|
|
-lsvault() {
|
125
|
|
- #
|
126
|
|
- # List all vaults and subvaults, depth-first
|
127
|
|
- #
|
128
|
|
- {
|
129
|
|
- echo "$Vault"
|
130
|
|
- lssv \
|
131
|
|
- | while IFS= read -r sv;
|
132
|
|
- do
|
133
|
|
- test -e "$Vault/$sv" || {
|
134
|
|
- think "ignoring non-existent sub-vault: $sv"
|
135
|
|
- continue
|
136
|
|
- }
|
137
|
|
- test -d "$Vault/$sv" || {
|
138
|
|
- warn "ignoring non-directory sub-vault: $sv"
|
139
|
|
- continue
|
140
|
|
- }
|
141
|
|
- echo "$Vault/$sv"
|
142
|
|
- done
|
143
|
|
- } \
|
144
|
|
- | LC_ALL=C sort \
|
145
|
|
- | tac
|
146
|
|
-}
|
147
|
|
-
|
148
|
|
-istarget() {
|
149
|
|
- #
|
150
|
|
- # True if item $1 is possible target
|
151
|
|
- #
|
152
|
|
- # Item is obviously not a possible target if it's
|
153
|
|
- # a (sub-)vault.
|
154
|
|
- #
|
155
|
|
- # A less obvious case is when item is an intermediate directory
|
156
|
|
- # on a path leading to a sub-vault. Such item cannot be a target!
|
157
|
|
- #
|
158
|
|
- # For example: there are sub-vaults:
|
159
|
|
- #
|
160
|
|
- # foo
|
161
|
|
- # foo/bar/baz
|
162
|
|
- #
|
163
|
|
- # and a tree:
|
164
|
|
- #
|
165
|
|
- # foo
|
166
|
|
- # ├── A
|
167
|
|
- # └── bar
|
168
|
|
- # └── baz
|
169
|
|
- # └── B
|
170
|
|
- #
|
171
|
|
- # Items A and B could both be targets, but baz could not be!
|
172
|
|
- #
|
173
|
|
- #TODO: write an explanation
|
174
|
|
- #
|
175
|
|
- local item=$1
|
176
|
|
- debugv item
|
177
|
|
- Verbose=false lsvault | grep -qxF "$item" && return 1
|
178
|
|
- Verbose=false lsvault | grep -qx "$item/.*" && return 1
|
179
|
|
- return 0
|
180
|
|
-}
|
181
|
|
-
|
182
|
|
-pfxpath() {
|
183
|
|
- #
|
184
|
|
- # Prefix paths with $1
|
185
|
|
- #
|
186
|
|
- # Just like `sed "s/^/$1/" but works with any characters
|
187
|
|
- # in $1 excepr newline, which is not allowed in paths..
|
188
|
|
- #
|
189
|
|
- local pfx="$1"
|
190
|
|
- local path
|
191
|
|
- while IFS= read -r path;
|
192
|
|
- do
|
193
|
|
- echo "$pfx$path"
|
194
|
|
- done
|
195
|
|
-}
|
196
|
|
-
|
197
|
|
-lstarget() {
|
198
|
|
- #
|
199
|
|
- # List potential items in vault $1
|
200
|
|
- #
|
201
|
|
- local vlt=$1
|
202
|
|
- debugv vlt
|
203
|
|
- local item
|
204
|
|
- find "$vlt" -mindepth 1 -maxdepth 1 -printf "%P\n" \
|
205
|
|
- | pfxpath "$vlt/" \
|
206
|
|
- | grep -v "$Vault/dotvault" \
|
207
|
|
- | while IFS= read -r item;
|
208
|
|
- do
|
209
|
|
- istarget "$item" && echo "$item"
|
210
|
|
- done
|
211
|
|
-}
|
212
|
|
-
|
213
|
|
-make_links() {
|
214
|
|
- #
|
215
|
|
- # Create all links
|
216
|
|
- #
|
217
|
|
- local slpath
|
218
|
|
- local target
|
219
|
|
- local vlt
|
220
|
|
- lsvault \
|
221
|
|
- | while IFS= read -r vlt;
|
222
|
|
- do
|
223
|
|
- lstarget "$vlt" \
|
224
|
|
- | while IFS= read -r target;
|
225
|
|
- do
|
226
|
|
- slpath=$(slpath "$target")
|
227
|
|
- if test -L "$slpath";
|
228
|
|
- then
|
229
|
|
- $ClobberLinks || {
|
230
|
|
- warn "skipping existing slpath: $slpath"
|
231
|
|
- continue
|
232
|
|
- }
|
233
|
|
- think "removing existing link: $slpath"
|
234
|
|
- maybe rm "$slpath"
|
235
|
|
- fi
|
236
|
|
- test -e "$slpath" && {
|
237
|
|
- warn "skipping existing non-link: $slpath"
|
238
|
|
- continue
|
239
|
|
- }
|
240
|
|
- maybe ln -sr "$target" "$slpath"
|
241
|
|
- done
|
242
|
|
- done
|
243
|
|
-}
|
244
|
|
-
|
245
|
|
-explore() {
|
246
|
|
- #
|
247
|
|
- # Show what would be done
|
248
|
|
- #
|
249
|
|
- local vlt
|
250
|
|
- local tgt
|
251
|
|
- local tgts
|
252
|
|
- lsvault \
|
253
|
|
- | sort \
|
254
|
|
- | while IFS= read -r vlt;
|
255
|
|
- do
|
256
|
|
- tgts=$(lstarget "$vlt")
|
257
|
|
- test -n "$tgts" || continue
|
258
|
|
- if test "$vlt" == "$Vault";
|
259
|
|
- then
|
260
|
|
- echo "VAULT:$vlt:"
|
261
|
|
- else
|
262
|
|
- echo
|
263
|
|
- echo "SUBVAULT:$vlt"
|
264
|
|
- fi
|
265
|
|
- sort <<<"$tgts" \
|
266
|
|
- | while IFS= read -r tgt;
|
267
|
|
- do
|
268
|
|
- echo "${tgt}:$(slpath "$tgt")"
|
269
|
|
- done \
|
270
|
|
- | sed -e "s|:$HOME|:=> ~|" \
|
271
|
|
- | column -ts: \
|
272
|
|
- | sed -e "s/^/ /"
|
273
|
|
- done
|
274
|
|
-}
|
275
|
|
-
|
276
|
|
-maybe() {
|
277
|
|
- #
|
278
|
|
- # Maybe do things $@, maybe not (if in debug mode)
|
279
|
|
- #
|
280
|
|
- $Debug && { debug "WOULD: $*"; return; }
|
281
|
|
- "$@"
|
282
|
|
-}
|
283
|
|
-
|
284
|
|
-slpath() {
|
285
|
|
- #
|
286
|
|
- # Print path where to create link for target $1
|
287
|
|
- #
|
288
|
|
- local item=$1
|
289
|
|
- echo "$HOME/.${item#$Vault/}"
|
290
|
|
-}
|
291
|
|
-
|
292
|
|
-route() {
|
293
|
|
- local Vault=$1; shift
|
294
|
|
- local SubVaults=()
|
295
|
|
- test -n "$Vault" || usage
|
296
|
|
- test -e "$Vault" || die "vault does not exist: $Vault"
|
297
|
|
- test -d "$Vault" || die "vault is not a directory: $Vault"
|
298
|
|
- SubVaults=("$@")
|
299
|
|
- case $Action in
|
300
|
|
- init) make_links ;;
|
301
|
|
- explore) explore ;;
|
302
|
|
- *) usage ;;
|
303
|
|
- esac
|
304
|
|
-}
|
305
|
|
-
|
306
|
|
-export LC_ALL=C
|
307
|
|
-
|
308
|
|
-main() {
|
309
|
|
- local Action
|
310
|
|
- local Debug=false
|
311
|
|
- local Verbose=false
|
312
|
|
- local ClobberLinks=false
|
313
|
|
- while true; do case $1 in
|
314
|
|
- -d) Debug=true; shift ;;
|
315
|
|
- -v) Verbose=true; shift ;;
|
316
|
|
- -f) ClobberLinks=true; shift ;;
|
317
|
|
- -*) usage ;;
|
318
|
|
- *) break ;;
|
319
|
|
- esac done
|
320
|
|
- Action=$1; shift
|
321
|
|
- route "$@"
|
322
|
|
-}
|
323
|
|
-
|
324
|
|
-main "$@"
|