added bba-aws-desc-instances

- C-x l a runs bba-aws-desc-instances to query aws via cmdline.

diff --git a/bba.org b/bba.org
index 88adb89ed0c4d627bc1945e9c32a20f391ed6a44..403beff63700e5cec024ab4402a8a004c47a02ed 100644 (file)
--- a/bba.org
+++ b/bba.org
@@ -1990,58 +1990,59 @@ to convert hard tabs to the appropriate number of spaces, and a tabify
 function to convert groups of spaces to hard tabs.
 
 #+BEGIN_SRC emacs-lisp
-    (define-key bba/toggle "w" 'whitespace-mode)
-
-    (define-prefix-command 'bba/launcher)
-    (define-key global-map "\C-xl" 'bba/launcher)
-
-    (define-key bba/launcher "!" 'eshell-here)
-    (define-key bba/launcher "b" 'browse-url-at-point)
-    (define-key bba/launcher "B" 'eww)
-    (define-key bba/launcher "c" 'calculator)
-    (define-key bba/launcher "d" 'ediff-buffers)
-    (define-key bba/launcher "e" 'elfeed)
-    (define-key bba/launcher "i" 'ielm)
-    (define-key bba/launcher "s" 'shell)
-    (define-key bba/launcher "S" 'synonyms)
-    (define-key bba/launcher "\C-s" 'helm-swoop)
-    (define-key bba/launcher "t" 'git-timemachine)
-    (define-key bba/launcher "T" 'twittering-mode)
+  (define-key bba/toggle "w" 'whitespace-mode)
+
+  (define-prefix-command 'bba/launcher)
+  (define-key global-map "\C-xl" 'bba/launcher)
+
+  (define-key bba/launcher "!" 'eshell-here)
+  (define-key bba/launcher "b" 'browse-url-at-point)
+  (define-key bba/launcher "B" 'eww)
+  (define-key bba/launcher "a" 'bba-aws-desc-instances)
+  (define-key bba/launcher "c" 'calculator)
+  (define-key bba/launcher "d" 'ediff-buffers)
+  (define-key bba/launcher "e" 'elfeed)
+  (define-key bba/launcher "i" 'ielm)
+  (define-key bba/launcher "s" 'shell)
+  (define-key bba/launcher "S" 'synonyms)
+  (define-key bba/launcher "\C-s" 'helm-swoop)
+  (define-key bba/launcher "t" 'git-timemachine)
+  (define-key bba/launcher "T" 'twittering-mode)
+
+  (define-key global-map "\C-c\C-t" 'insert-timestamp)
+  (define-key global-map "\C-c\M-c" 'centered-cursor-mode)
+
+  (define-key global-map "\C-ci" 'imenu)
+  (define-key global-map "\C-c\S-g" 'rgrep)
+  (define-key global-map "\C-cf" 'load-git-cfengine)
+
+  (define-key global-map "\C-c\C-w" 'fixup-whitespace)
+
+  (define-key global-map "\M-g\M-d" 'magit-diff-unstaged)
+  (define-key global-map "\M-g\M-b" 'magit-branch-manager)
+  (define-key global-map "\M-gb" 'magit-blame-mode)
+  (define-key global-map "\C-cm" 'magit-status)
+
+  (define-key global-map "\C-c\S-f" (lambda()
+                                   (interactive)
+                                   (message (buffer-file-name))))
 
-    (define-key global-map "\C-c\C-t" 'insert-timestamp)
-    (define-key global-map "\C-c\M-c" 'centered-cursor-mode)
-
-    (define-key global-map "\C-ci" 'imenu)
-    (define-key global-map "\C-c\S-g" 'rgrep)
-    (define-key global-map "\C-cf" 'load-git-cfengine)
-
-    (define-key global-map "\C-c\C-w" 'fixup-whitespace)
-
-    (define-key global-map "\M-g\M-d" 'magit-diff-unstaged)
-    (define-key global-map "\M-g\M-b" 'magit-branch-manager)
-    (define-key global-map "\M-gb" 'magit-blame-mode)
-    (define-key global-map "\C-cm" 'magit-status)
-
-    (define-key global-map "\C-c\S-f" (lambda()
-                                     (interactive)
-                                     (message (buffer-file-name))))
-
-    (if (<= emacs-major-version 23)
-        (progn
-          (define-key global-map "\C-cw" (lambda ()
-                                           (interactive)
-                                           (let ((woman-use-topic-at-point t))
-                                             (woman))))
-          (define-key global-map "\C-x\C-b" 'ibuffer)
-          )
-    )
+  (if (<= emacs-major-version 23)
+      (progn
+        (define-key global-map "\C-cw" (lambda ()
+                                         (interactive)
+                                         (let ((woman-use-topic-at-point t))
+                                           (woman))))
+        (define-key global-map "\C-x\C-b" 'ibuffer)
+        )
+  )
 
-    (define-key global-map "\C-c\M-d" 'diff-buffer-with-file)
+  (define-key global-map "\C-c\M-d" 'diff-buffer-with-file)
 
-    ;;; ** Use C-+ and C-- to adjust font size
+  ;;; ** Use C-+ and C-- to adjust font size
 
-    (define-key global-map (kbd "C-+") 'text-scale-increase)
-    (define-key global-map (kbd "C--") 'text-scale-decrease)
+  (define-key global-map (kbd "C-+") 'text-scale-increase)
+  (define-key global-map (kbd "C--") 'text-scale-decrease)
 
 
 
@@ -2347,6 +2348,24 @@ all in your history.
   )
 
 #+END_SRC
+
+* aws
+
+Use aws command line tool via Emacs.
+
+#+BEGIN_SRC emacs-lisp
+  (defun bba-aws-desc-instances ( profile name)
+    "query aws to get informations for running instances."
+    (interactive "sProfile: \nsName: ")
+    (switch-to-buffer (concat "*aws-" profile "-" name "*"))
+    (org-mode)
+    (message "querying aws for %s in profile %s" name profile)
+    (insert-string (shell-command-to-string (concat "aws ec2 describe-instances --profile " profile " --filters \"Name=tag-key,Values=Name,Name=tag-value,Values=" name "*\" --query \"Reservations[].Instances[?State.Name=='running'].[InstanceId, PublicDnsName]\" --output table")))
+    (message "done.")
+  )
+
+#+END_SRC
+
 * post
   [2015-10-02 Fri 13:26]