From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Thu, 26 May 2016 09:26:23 +0000 (+0200)
Subject: org-mode snippets: fixing srcsh
X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=e59366efe7efc96460e58d49697c274c1a5c2356;p=emacsconfig.git

org-mode snippets: fixing srcsh

- fixing listsrcsh
- fixing tablesrcsh (better loops for tables)
- org heading expansion for both.
---

diff --git a/snippets/org-mode/listsrcsh b/snippets/org-mode/listsrcsh
index da59eaa5..4575ae38 100644
--- a/snippets/org-mode/listsrcsh
+++ b/snippets/org-mode/listsrcsh
@@ -3,12 +3,12 @@
 # key: <srcshlist
 # If you want to reference the output in other src blocks you need a name.
 # --
-#+NAME: ${1:`(replace-regexp-in-string "[: ]" "_" (replace-regexp-in-string "[][]" "" (replace-regexp-in-string ".*/" "" (org-display-outline-path nil nil nil t))))`}
+#+NAME: ${1:`(replace-regexp-in-string "[: ]" "_" (replace-regexp-in-string "[][]" "" (replace-regexp-in-string ".*/" "" (org-display-outline-path nil t "/" t))))`}
 - $0
 
-${2:#+NAME: ${3:`(replace-regexp-in-string "[: ]" "_" (replace-regexp-in-string "[][]" "" (replace-regexp-in-string ".*/" "" (org-display-outline-path nil nil nil t))))`-src}}
-#+BEGIN_SRC sh ${4::session ${5:client}} :var HOSTS=$1 :cache ${6:$$(yas-choose-value '("yes" "no"))} :results ${7:$$(yas-choose-value '("verbatim drawer" "table" "list"))}
-  for i in \$\{HOSTS\}; do
+${2:#+NAME: ${3:`(replace-regexp-in-string "[: ]" "_" (replace-regexp-in-string "[][]" "" (replace-regexp-in-string ".*/" "" (org-display-outline-path nil t "/" t))))`-src}}
+#+BEGIN_SRC sh ${4::session ${5:client}} :var ${6:HOSTS$(upcase (yas-text))}=$1 :cache ${7:$$(yas-choose-value '("yes" "no"))} :results ${8:$$(yas-choose-value '("verbatim drawer" "table" "list"))}
+  for i in \$\{$6\}; do
     echo "----------------------------------------"
     echo \$\{i\}
     echo "----------------------------------------"
diff --git a/snippets/org-mode/tablesrcsh b/snippets/org-mode/tablesrcsh
index 5fc068f2..4ccb9505 100644
--- a/snippets/org-mode/tablesrcsh
+++ b/snippets/org-mode/tablesrcsh
@@ -3,15 +3,16 @@
 # key: <srcshtable
 # If you want to reference the output in other src blocks you need a name.
 # --
-#+NAME: ${1:`(replace-regexp-in-string "[: ]" "_" (replace-regexp-in-string "[][]" "" (replace-regexp-in-string ".*/" "" (org-display-outline-path nil nil nil t))))`}
+#+NAME: ${1:`(replace-regexp-in-string "[: ]" "_" (replace-regexp-in-string "[][]" "" (replace-regexp-in-string ".*/" "" (org-display-outline-path nil t "/" t))))`}
 | $0 |
 
-${2:#+NAME: ${3:`(replace-regexp-in-string "[: ]" "_" (replace-regexp-in-string "[][]" "" (replace-regexp-in-string ".*/" "" (org-display-outline-path nil nil nil t))))`-src}}
-#+BEGIN_SRC sh ${4::session ${5:client}} :var HOSTS=$1[,0] :cache ${6:$$(yas-choose-value '("yes" "no"))} :results ${7:$$(yas-choose-value '("verbatim drawer" "table" "list"))}
-  for i in \$\{HOSTS\}; do
+${2:#+NAME: ${3:`(replace-regexp-in-string "[: ]" "_" (replace-regexp-in-string "[][]" "" (replace-regexp-in-string ".*/" "" (org-display-outline-path nil t "/"  t))))`-src}}
+#+BEGIN_SRC sh ${4::session ${5:client}} :var ${6:HOSTS$(upcase (yas-text))}=$1[,0] :cache ${7:$$(yas-choose-value '("yes" "no"))} :results ${8:$$(yas-choose-value '("verbatim drawer" "table" "list"))}
+$6=($$6)
+
+for INDEX in \`seq 0 1 \$\{#$6[@]\}\`; do
     echo "----------------------------------------"
-    echo \$\{i\}
+    echo \$\{$6[$\{INDEX\}]\}
     echo "----------------------------------------"
-    ssh -x \$\{i\}
   done
 #+END_SRC