]> ruderich.org/simon Gitweb - config/dotfiles.git/commitdiff
setup.sh: Use simple_cpp where possible.
authorSimon Ruderich <simon@ruderich.org>
Tue, 22 Oct 2013 20:32:49 +0000 (22:32 +0200)
committerSimon Ruderich <simon@ruderich.org>
Tue, 22 Oct 2013 20:59:38 +0000 (22:59 +0200)
setup.sh

index bb2e4c0dbe1865a93463d9fb3fc12280ac71f162..bc8f1e231a7d14ff662483b637a71204ba6d2bf9 100755 (executable)
--- a/setup.sh
+++ b/setup.sh
@@ -59,12 +59,8 @@ mkdir -p zsh/cache
 # 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
 
@@ -111,14 +107,8 @@ else
     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.
@@ -203,13 +193,8 @@ if installed tmux; then
     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