From 3e59553875e1437208fe0d3873cfcdafed34676c Mon Sep 17 00:00:00 2001
From: Simon Ruderich <simon@ruderich.org>
Date: Tue, 22 Oct 2013 22:32:49 +0200
Subject: [PATCH] setup.sh: Use simple_cpp where possible.

---
 setup.sh | 27 ++++++---------------------
 1 file changed, 6 insertions(+), 21 deletions(-)

diff --git a/setup.sh b/setup.sh
index bb2e4c0..bc8f1e2 100755
--- 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
-- 
2.43.2