terminal_available() {
terminal_info "$@" > /dev/null
}
-grep_i() {
- cmd_i grep "$@"
+# Usage: <file> <name> <grep-string> <value>
+apply_optional_replacement() {
+ if test -n "$4"; then
+ printf '%s: using %s %s\n' "$1" "$2" "$4"
+ generate "$1" '' simple_cpp \
+ "$3" -- "$4"
+ else
+ printf '%s: removing %s display\n' "$1" "$2"
+ grep_i -v "$3" "$1"
+ fi
}
# Check if `infocmp` is available.
if ! infocmp >/dev/null 2>&1; then
# file in this directory; this requires replacing the constant HISTORY_PATH in
# lesskey.
echo 'lesskey: generating .lesskey'
-perl < lesskey \
- -e 'while (<STDIN>) {
- s/\bHISTORY_PATH\b/$ARGV[0]/;
- print;
- }' \
- "`pwd`/lesshistory" \
+simple_cpp <lesskey \
+ HISTORY_PATH -- "`pwd`/lesshistory" \
| lesskey -
chmod 0600 ~/.less
column=
fi
-generate shell/aliases .in perl \
- -e 'while (<STDIN>) {
- s/\bLS_ENV\b/$ARGV[0]/;
- s/\bLS_PATH\b/$ARGV[1]/;
- s/\bLS_COLOR\b/$ARGV[2]/;
- s/\bCOLUMN\b/$ARGV[3]/;
- print;
- }' \
+generate shell/aliases .in simple_cpp \
+ LS_ENV LS_PATH LS_COLOR COLUMN -- \
"$ls_env" "$ls_path" "$ls_color" "$column"
# If `tig` is not available use my simple replacement.
sed_i 's/attrcolor b ".I"/#attrcolor b ".I"/' screenrc
fi
# Display current battery charge on computers with a battery. Necessary lines
-# are marked as "(BATTERY)".
-if test ! -d /sys/class/power_supply/BAT0; then
- echo 'screenrc: removing battery display'
- grep_i -v '(BATTERY)' screenrc
+# are marked as "(BATTERY)". Also used for Tmux.
+battery=
+for x in /sys/class/power_supply/BAT*; do
+ test -d "$x" || continue
+ battery="$x"
+done
+apply_optional_replacement screenrc \
+ battery BATTERY "$battery"
+# Display current temperature. Necessary lines are marked as "(TEMPERATURE)".
+# Also used for Tmux.
+temperature=/sys/devices/platform/coretemp.0
+if ! test -d "$temperature"; then
+ temperature=
fi
+apply_optional_replacement screenrc \
+ temperature TEMPERATURE "$temperature"
+
if installed tmux; then
- generate tmux.conf .in perl ./bin/remove-continuation.pl
+ generate tmux.conf .in cat
+
+ apply_optional_replacement tmux.conf \
+ battery BATTERY "$battery"
+ apply_optional_replacement tmux.conf \
+ temperature TEMPERATURE "$temperature"
+
+ # Old Tmux versions can't handle that.
+ generate tmux.conf '' ./bin/remove-continuation.pl
# Add mappings to switch to windows 10-29 quickly. See tmux-window.pl for
# details.
perl ./tmux-window.pl 1 "`pwd`/tmux-window2.conf" >tmux-window1.conf
perl ./tmux-window.pl 2 >tmux-window2.conf
# Set absolute path to tmux-window1.conf in tmux.conf.
- perl <tmux.conf >tmux.conf.tmp \
- -e 'while (<STDIN>) {
- s/\bTMUX_WINDOW_PATH\b/$ARGV[0]/;
- print;
- }' \
- "`pwd`/tmux-window1.conf"
- mv tmux.conf.tmp tmux.conf
+ generate tmux.conf '' simple_cpp \
+ TMUX_WINDOW_PATH -- "`pwd`/tmux-window1.conf"
# 256 colors not available.
if test -z "$use_256colors"; then