From 77fa338a43d3e30c8300d3c8a55765d9d3efac03 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Wed, 18 Nov 2015 13:18:12 +0100 Subject: [PATCH] added bba-aws-desc-instances - C-x l a runs bba-aws-desc-instances to query aws via cmdline. --- bba.org | 115 +++++++++++++++++++++++++++++++++----------------------- 1 file changed, 67 insertions(+), 48 deletions(-) diff --git a/bba.org b/bba.org index 88adb89e..403beff6 100644 --- 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] -- 2.47.3