content_tag_replace

diff --git a/etc/bashrc.function b/etc/bashrc.function
index 1e94aea0bf51d062d8f4ab8c68892b853147a7d8..3f26d4c0ad1a5653646222c79e0604b74ce6543b 100644 (file)
--- a/etc/bashrc.function
+++ b/etc/bashrc.function
@@ -337,28 +337,49 @@ Choose one > \
   awk -F '|' '$1 == '$REPLY' {print $3; exit}' <<< "$radios" | sed 's/^ //' | xargs mplayer 2>/dev/null
 }
 
-alias nb-img2jpg='convert -strip -interlace Plane -gaussian-blur 0.05 -quality 85%'
-
-nb-img-compress() {
-  local IFS=$'\n' i='' j=''
-  for i in $@; do
-    [ -e "$i" ] || continue
-    j="${i%.*}.jpg"
-    echo "$i -> $j"
-    nb-img2jpg $i $j || continue
-    [ "$i" != "$j" ] && rm "$i"
-  done
+# NB 06.07.15 alias nb-img2jpg='convert -strip -interlace Plane -gaussian-blur 0.05 -quality 85%'
+# NB 06.07.15 
+# NB 06.07.15 nb-img-compress() {
+# NB 06.07.15   local IFS=$'\n' i='' j=''
+# NB 06.07.15   for i in $@; do
+# NB 06.07.15     [ -e "$i" ] || continue
+# NB 06.07.15     j="${i%.*}.jpg"
+# NB 06.07.15     echo "$i -> $j"
+# NB 06.07.15     nb-img2jpg $i $j || continue
+# NB 06.07.15     [ "$i" != "$j" ] && rm "$i"
+# NB 06.07.15   done
+# NB 06.07.15 }
+# NB 06.07.15 
+# NB 06.07.15 nb-img-compress-gray() {
+# NB 06.07.15   # See: http://www.imagemagick.org/script/command-line-options.php#colorspace
+# NB 06.07.15   # See: convert -list colorspace
+# NB 06.07.15   local IFS=$'\n' i='' j=''
+# NB 06.07.15   for i in $@; do
+# NB 06.07.15     [ -e "$i" ] || continue
+# NB 06.07.15     j="${i%.*}.jpg"
+# NB 06.07.15     echo "$i -> $j"
+# NB 06.07.15     nb-img2jpg -colorspace Gray -normalize -level 10%,90% -sharpen 0x1 $i $j || continue
+# NB 06.07.15     [ "$i" != "$j" ] && rm "$i"
+# NB 06.07.15   done
+# NB 06.07.15 }
+
+replace_tag_content() {
+  local tag="$1" content="$@"
+  perl -ne 'BEGIN {
+$tag = shift @ARGV;
+$t1 = "# > $tag";
+$t2 = "# < $tag";
+$content = shift @ARGV;
+$content = "$t1\n$content\n$t2\n"
 }
 
-nb-img-compress-gray() {
-  # See: http://www.imagemagick.org/script/command-line-options.php#colorspace
-  # See: convert -list colorspace
-  local IFS=$'\n' i='' j=''
-  for i in $@; do
-    [ -e "$i" ] || continue
-    j="${i%.*}.jpg"
-    echo "$i -> $j"
-    nb-img2jpg -colorspace Gray -normalize -level 10%,90% -sharpen 0x1 $i $j || continue
-    [ "$i" != "$j" ] && rm "$i"
-  done
+if (/^$t1$/ .. /^$t2$/) {
+  print "$content" and $content="" if /^$t1$/;
+} else {
+  #$_ = "OUT $_"; 
+  print "OUT $_"; 
+}
+
+END { print "$content" if $content; }
+' "$tag" "$content"
 }