Commit 0fceb1e8 authored by Oliver Marks's avatar Oliver Marks
Browse files

Added hydra to helm buffers

parent 3e41625d

bundles/80_html.org

+2 −1
Original line number Diff line number Diff line
@@ -2,9 +2,10 @@ 




#+BEGIN_SRC emacs-lisp :results silent  

  (use-package "htmlize" :ensure t)



  (defhydra hydra-html (:exit t :columns 4)

    "EM - Html"

    ("o" browser-url-of-buffer "Open in browser"))

#+END_SRC

#+END_SRC

bundles/99_experimental.org

+42 −0
Original line number Diff line number Diff line
@@ -32,3 +32,45 @@ 
          (shell))))))



#+END_SRC



#+BEGIN_SRC emacs-lisp :results silent  

  (defhydra hydra-helm (:hint nil :color pink)

          "

     Navigation   Other  Sources     Mark             Do             Help   │ Helm │

    ╭───────────────────────────────────────────────────────────────────────┴──────╯

          ^_k_^         _K_       _p_   [_m_] mark         [_v_] view         [_H_] helm help

          ^^↑^^         ^↑^       ^↑^   [_t_] toggle all   [_d_] delete       [_s_] source help

      _h_ ←   → _l_     _c_       ^ ^   [_u_] unmark all   [_f_] follow: %(helm-attr 'follow)

          ^^↓^^         ^↓^       ^↓^    ^ ^               [_y_] yank selection

          ^_j_^         _J_       _n_    ^ ^               [_w_] toggle windows

    --------------------------------------------------------------------------------

          "

          ("<tab>" helm-keyboard-quit "back" :exit t)

          ("<escape>" nil "quit")

          ("\\" (insert "\\") "\\" :color blue)

          ("h" helm-beginning-of-buffer)

          ("j" helm-next-line)

          ("k" helm-previous-line)

          ("l" helm-end-of-buffer)

          ("g" helm-beginning-of-buffer)

          ("G" helm-end-of-buffer)

          ("n" helm-next-source)

          ("p" helm-previous-source)

          ("K" helm-scroll-other-window-down)

          ("J" helm-scroll-other-window)

          ("c" helm-recenter-top-bottom-other-window)

          ("m" helm-toggle-visible-mark)

          ("t" helm-toggle-all-marks)

          ("u" helm-unmark-all)

          ("H" helm-help)

          ("s" helm-buffer-help)

          ("v" helm-execute-persistent-action)

          ("d" helm-persistent-delete-marked)

          ("y" helm-yank-selection)

          ("w" helm-toggle-resplit-and-swap-windows)

          ("f" helm-follow-mode))



  (define-key helm-map (kbd "<escape>") 'hydra-helm/body)

  (define-key helm-map (kbd "C-k") 'hydra-helm/body)

  (define-key helm-map (kbd "C-o") 'hydra-helm/body)

#+END_SRC

bundles/99_local_lisp_files.org

+3 −0
Original line number Diff line number Diff line
@@ -32,4 +32,7 @@ Random code from the net, code I am testing / developing etc. 
  (if (file-exists-p "~/.emacs/emacs-docker-compose-helm/dc-popups-helm.el")

      (load-file "~/.emacs/emacs-docker-compose-helm/dc-popups-helm.el"))



  (if (file-exists-p "~/.emacs/ox-blog-nikola.el")

      (load-file "~/.emacs/ox-blog-nikola.el"))



#+END_SRC