;; -*- lexical-binding: nil; -*-
;; This file:
;;   http://angg.twu.net/.emacs.hydras.html
;;   http://angg.twu.net/.emacs.hydras
;;           (find-angg ".emacs.hydras")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>

;; (defun ru-r    () (interactive) (eek "C-a M-x r"))
;; (defun ru-r       () (interactive) (eek "C-a") (ee-read-redir))
;; (defun ru-delorig () (interactive) (eek "C-a <up> C-a C-k C-k"))
;; (defun ru-clear   () (interactive) (clear-fbclids))
;; (defun ru-addmd   () (interactive) (eek "C-a http://archive.md/ C-a"))

;; (defun r ()
;;   (interactive)
;;   (require 'hydra)
;;   (defhydra hydra-rewrite-url
;;     ()
;;     "Rewrite URL"
;;     ("r" ru-r       "redir")
;;     ("d" ru-delorig "delorig")
;;     ("c" ru-clear   "clear fbclids")
;;     ("a" ru-addmd   "add archive.md")
;;     ("q" nil "quit"))
;;   (hydra-rewrite-url/body))

(require 'hydra)

(defhydra hydra-rewrite-url (:hint nil)
  "
_q_uit        _r_edir
 _a_rchive   _d_elorig
^^            _c_lear fbclids
"
  ("r" (progn (eek "C-a") (ee-read-redir)))
  ("d" (eek "C-a <up> C-a C-k C-k"))
  ("c" (clear-fbclids))
  ("a" (eek "C-a http://archive.md/ C-a"))
  ("z" (eek "C-a https://12ft.io/ C-a"))
  ("b" (eek "C-a [ b     ] SPC C-a"))
  ("i" (eek "C-a [ i s   ] SPC C-a"))
  ("j" (eek "C-a [ j a c ] SPC C-a"))
  ("e" (eek "C-a [ e c o ] SPC C-a"))
  ;;
  ("<down>"   (eek "<down>"))
  ("<up>"     (eek "<up>"))
  ("<delete>" (eek "<delete>"))
  ;;
  ("q" nil)
  )

(defun r ()
  (interactive)
  (hydra-rewrite-url/body))




;; (find-defhydra-links "edit-ajups" "eajups")
;; (find-efunction 'find-defhydra-links)

(defun ee-edit-ajups-replace ()
  (progn (eek "C-a") (iajup) (eek "C-k C-k")))

(defun ee-edit-ajups-next ()
  (search-forward "(ajup "))

(defun ee-edit-ajups-anchor-adddoc ()
  (interactive)
  (eek "C-a M-h M-2 <up> % SPC < C-e > M-A C-a \\ a dddoc{ C-e } RET"))

(defhydra hydra-edit-ajups (:hint nil)
  "
_q_uit       _r_eplace
 _a_nchor,adddoc
^^             _b_oth n&r    _n_ext
"
  ("r" (progn (eek "C-a") (iajup) (eek "C-k C-k")))
  ("n" (search-forward "(ajup "))
  ("b" (progn (ee-edit-ajups-next) (ee-edit-ajups-replace)))
  ("a" (ee-edit-ajups-anchor-adddoc))
  ;;
  ("<up>"     (eek "<up>"))
  ("<down>"   (eek "<down>"))
  ;;
  ("q" nil)
  )

(defun eajups ()
  (interactive)
  (hydra-edit-ajups/body))




;; Local Variables:
;; mode:   emacs-lisp
;; coding: utf-8-unix
;; End: