**** hydra-aws-account
#+begin_src emacs-lisp
  (defun hydra-aws-account--set-account (account)
    '(lambda () (interactive)
       (message "WTF")
       (hydra-aws/body)
       (setq org-ls-aws--current-account account)))

  (defhydra hydra-aws-account
    (:hint nil :color red)
    "
                 ╭─────────────┐
                 │ AWS Account │
  ╭──────────────┴─────────────╯
    [_d_] dev
    [_p_] prod
    [_c_] corp
               _<f19>_ to close
  ─────────────────────────────
  %s(org-ls-aws-current-account) %s(org-ls-aws-current-region)"
    ("d" (hydra-aws-account--set-account :dev))
    ("p" (hydra-aws-account--set-account :prod))
    ("c" (hydra-aws-account--set-account :corp))
    ("<f19>" nil))
#+end_src