move scripts about

applications/fish

@@ -9,8 +9,9 @@ function rebuild
    $HOME/src/scripts/rebuild.rkt $argv
 end
 
-source ~/src/scripts/prompt.fish
-source ~/src/scripts/cheat.fish
-source ~/src/scripts/ql.fish
+source ~/src/scripts/fish/megadl.fish
+source ~/src/scripts/fish/prompt.fish
+source ~/src/scripts/fish/cheat.fish
+source ~/src/scripts/fish/ql.fish
 
 ## EOF

scripts/fish/megadl.fish

@@ -0,0 +1,5 @@
+function megadl-all
+   megadl (cat ~/dl)
+end
+
+## EOF

scripts/fish/prompt.fish

@@ -8,7 +8,7 @@ end
 
 function fish_greeting
    echo "Word of the moment: "(shuf -n1 /usr/share/dict/words) |
-      awk -f ~/src/scripts/mid.awk col=$COLUMNS
+      awk -f ~/src/scripts/text/mid.awk col=$COLUMNS
 end
 
 ## EOF

scripts/megadl.fish

@@ -1,3 +0,0 @@
-#!/usr/bin/env fish
-
-megadl (cat ~/dl)

scripts/text/newcomments.sed

@@ -0,0 +1,25 @@
+1{
+   i\
+/* ---------------------------------------------------------------------------|\
+ *
+}
+1,3{
+   s/\/\// */
+}
+4{
+   c\
+ *\
+ * ---------------------------------------------------------------------------|\
+ *
+}
+5{
+   s/\/\/ \w\+\..: \(.\+\)/ * \1/
+}
+6{
+   i\
+ *\
+ * ---------------------------------------------------------------------------|\
+ */
+}
+s/--|$//
+s/\/\/\(.\+\)/\/*\1 *\//

scripts/text/newcomments2.sed

@@ -0,0 +1,17 @@
+1{
+   i\
+/* ---------------------------------------------------------------------------|\
+ *
+}
+1,3{
+   s/\/\// */
+}
+4{
+   c\
+ *\
+ * ---------------------------------------------------------------------------|\
+ */\
+
+}
+s/--|$//
+s/\/\/\(.\+\)/\/*\1 *\//

scripts/text/oldcomments.sed

@@ -0,0 +1,21 @@
+$! {  N
+      N
+      s/\/\/-+\|\n//
+      t m1
+      b mE
+:m1;  s/  / MARKER/
+      h
+      s/.+MARKER//
+      s/ /-/g
+      x
+      s/MARKER.+//
+      x
+      H
+      x
+      s/ \n-/ --/
+      t m2
+      b mE
+:m2;  N
+      N
+      s/\/\/\n//g
+:mE;  }