some cosmetic changes

- new headers in org-mode
- fix for aws-route53-list-resource-record-sets snippet
- fix for perl template

diff --git a/bba.org b/bba.org
index 8d413261ad37ed378cc24905ae75ec575400c4f6..6e0b8f276995185e7682000caf0a1f8a76309c0d 100644 (file)
--- 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 61a6559de8cf15c7cef2f0517c2d7780334a2dff..30585fb63d768084e5f4655b846d9b69d497dcf3 100644 (file)
--- 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 de51218bc221e2ff4cef3d327cd4839354a30fc9..4a46ce8484c9be4bf8a61281086730e1a594dcd7 100755 (executable)
--- 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);
     }