From ae36690433d63d1131e73b33b03929f308c169d4 Mon Sep 17 00:00:00 2001
From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Tue, 12 Apr 2016 13:40:39 +0200
Subject: [PATCH] some cosmetic changes

- new headers in org-mode
- fix for aws-route53-list-resource-record-sets snippet
- fix for perl template
---
 bba.org                                       | 37 ++++++++++++++++---
 .../aws-route53-list-resource-record-sets     |  2 +-
 templates/default-pl.pl                       | 12 +++---
 3 files changed, 39 insertions(+), 12 deletions(-)

diff --git a/bba.org b/bba.org
index 8d413261..6e0b8f27 100644
--- a/bba.org
+++ b/bba.org
@@ -1236,6 +1236,12 @@ html.
   (setq org-src-fontify-natively t)
 #+END_SRC
 
+** hide emphasis-markers
+
+#+BEGIN_SRC emacs-lisp
+  (setq org-hide-emphasis-markers t)
+#+END_SRC
+
 * CFEngine
 
 #+BEGIN_SRC emacs-lisp
@@ -2659,11 +2665,32 @@ You have to work hard to be lazy.
    (provide-theme 'bba1)
 
   (if (display-graphic-p)
-      (custom-set-faces
-        '(org-block-begin-line ((t (:background "#29759c" :foreground "#84cbef"))) t)
-        '(org-block-end-line ((t (:inherit org-block-begin-line))) t)
-        )
-    )
+      (progn
+        (custom-set-faces
+         '(org-block-begin-line ((t (:background "#29759c" :foreground "#84cbef"))) t)
+         '(org-block-end-line ((t (:inherit org-block-begin-line))) t)
+         '(org-block-background ((t (:background "#FFFFFF"))))
+         )
+        (let* ((variable-tuple (cond ((x-list-fonts "Arial") '(:font "Arial"))
+                                     ((x-list-fonts "Source Sans Pro") '(:font "Source Sans Pro"))
+                                     ((x-list-fonts "Lucida Grande")   '(:font "Lucida Grande"))
+                                     ((x-list-fonts "Verdana")         '(:font "Verdana"))
+                                     ((x-family-fonts "Sans Serif")    '(:family "Sans Serif"))
+                                     (nil (warn "Cannot find a Sans Serif Font.  Install Source Sans Pro."))))
+               (base-font-color     (face-foreground 'default nil 'default))
+               (headline           `(:inherit default :foreground "#62a9cd")))
+
+          (custom-theme-set-faces 'user
+                                  `(org-level-8 ((t (,@headline ,@variable-tuple))))
+                                  `(org-level-7 ((t (,@headline ,@variable-tuple))))
+                                  `(org-level-6 ((t (,@headline ,@variable-tuple))))
+                                  `(org-level-5 ((t (,@headline ,@variable-tuple))))
+                                  `(org-level-4 ((t (,@headline ,@variable-tuple :height 1.1))))
+                                  `(org-level-3 ((t (,@headline ,@variable-tuple :height 1.25))))
+                                  `(org-level-2 ((t (,@headline ,@variable-tuple :height 1.4))))
+                                  `(org-level-1 ((t (,@headline ,@variable-tuple :height 1.6))))
+                                  `(org-document-title ((t (,@headline ,@variable-tuple :height 1.5 :underline nil))))))
+    ))
 
 #+END_SRC
 
diff --git a/snippets/eshell-mode/aws-route53-list-resource-record-sets b/snippets/eshell-mode/aws-route53-list-resource-record-sets
index 61a6559d..30585fb6 100644
--- a/snippets/eshell-mode/aws-route53-list-resource-record-sets
+++ b/snippets/eshell-mode/aws-route53-list-resource-record-sets
@@ -2,4 +2,4 @@
 # name: aws-route53-list-resource-record-sets (yank)
 # key: aws-route53-list-resource-record-sets
 # --
-aws --profile=${1:$$(yas-choose-value '("prod" "test"))} route53 list-resource-record-sets --hosted-zone-id ${2:`(yank)`} --query \"ResourceRecordSets[?contains(Name, '$3')].Name\" --output ${5:$$(yas-choose-value '("text" "table" "json"))} $0
\ No newline at end of file
+aws --profile=${1:$$(yas-choose-value '("prod" "test"))} route53 list-resource-record-sets --hosted-zone-id ${2:`(yank)`} --query \"ResourceRecordSets[?contains(Name, '$3')]\" --output ${5:$$(yas-choose-value '("text" "table" "json"))} $0
diff --git a/templates/default-pl.pl b/templates/default-pl.pl
index de51218b..4a46ce84 100755
--- a/templates/default-pl.pl
+++ b/templates/default-pl.pl
@@ -27,16 +27,16 @@ $0
 sub main {
 
     my $result = GetOptions (
-			     "help|h"		=> \$params{help},
-			     "verbose|v"        => \$params{verbose},
-			     "man|m"		=> \$params{man}
-			    );
+                             "help|h"           => \\$params{help},
+                             "verbose|v"        => \\$params{verbose},
+                             "man|m"            => \\$params{man}
+                            );
 
     if ( $params{man} ) { pod2usage( -verbose => 2 ); }
 
-    if ( ! ( $server ) || $params{help} )
+    if ( ! ( $params{server} ) || $params{help} )
     {
-	pod2usage(1);
+        pod2usage(1);
     }
 
 
-- 
2.47.3