;; This file:
;;   http://angg.twu.net/2021-ffll/foo.el.html
;;   http://angg.twu.net/2021-ffll/foo.el
;;           (find-angg "2021-ffll/foo.el")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Version: 2021dec21.
;; Public domain.
;;
;; (defun el () (interactive) (find-angg "2021-ffll/foo.el"))
;; (defun b  () (interactive) (find-TH   "2021-ffll"))
;;
;; See:         http://angg.twu.net/2021-ffll.html
;;   http://angg.twu.net/eev-videos/2021-ffll.mp4
;;      (find-ssr-links "2021ffll" "2021-ffll" "h1CEL2fmkyc")





;; How I write 5-minute hacks in eev
;; using `M-x find-find-links-links-new'

;; (eek "M-h M-k  M-e ;; ee-eval-sexp-eol")
;; (find-efunctiondescr 'ee-eval-sexp-eol)
;; (find-efunctiondescr 'ee-eval-sexp-eol "If ARG is:" "2:")

;; (find-eev-quick-intro "7.5. `find-latex-links'")
;; (find-efunction             'find-latex-links)
;; (find-eevfile "eev-tlinks.el")
;; (find-eevfile "eev-tlinks.el" "Commentary:")
;; (find-eevfile "eev-tlinks.el" "five-minute hacks")
;; (find-eevfile "eev-tlinks.el" "written in two steps")
;; (find-eevfile "eev-tlinks.el" "M-x find-find-links-links-new")
;; (find-efunction                   'find-find-links-links-new)

;; (eek "M-h M-f         eev-mode")
;; (find-efunctiondescr 'eev-mode)
;; (find-ekeymapdescr    eev-mode-map)
;; (find-ekeymapdescr    eev-mode-map "find-eface-links")
;; (eek "M-h M-k  M-h M-s           ;; find-eface-links")
;; (find-efunction                    'find-eface-links)
;; (find-eface-links font-lock-comment-face)
;; (find-ecolor-links "chocolate1")

;; (find-epackage-links 'magit)
;; (find-efunction 'find-epackage-links)

;; (find-find-links-links-new)
;; (find-find-links-links-new "mytaskA" "" "")
;; (find-find-links-links-new "mytaskB" "foo" "")
;; (find-find-links-links-new "mytaskC" "foo bar" "")
;; (find-find-links-links-new "mytaskD" "foo bar baz" "plic bletch")
;; (find-efunction 'find-find-links-links-new)

;; (find-efunction 'eek)
(defun foo  () (interactive) (eek "( f o o )"))
(defun bar  () (interactive) (eek "( <<foo>> SPC bar )"))
(defun plic () (interactive) (eek "( <<bar>> SPC plic )"))
;;
;; Try: M-x plic


;; (find-enode "Moving by Defuns")
;; (find-enode "Moving by Defuns" "C-M-e")
;; (find-enode "Position Registers")
;; (find-enode "Position Registers" "C-x r <SPC> R")
;; (eek "M-h M-k  M-C-e      ;; end-of-defun")
;; (eek "M-h M-k  M-h M      ;; find-ekbmacro-links")
;; (eek "M-h M-k  C-x r SPC  ;; point-to-register")
;; (eek "M-h M-k  C-x r j    ;; jump-to-register")

(defun fl-redef ()
  (interactive)
  (save-excursion (eek "M-C-e  M-0 M-e  M-e")))

(defun fl-test ()
  (interactive)
  (save-excursion (eek "C-x r j a  M-0 M-e  M-e")))

(defun eejump-9 () (fl-redef) (fl-test))

;; Set reg a: (eek "<down>  C-a  C-x r SPC a")
;;      Test: (find-2a nil '(find-mytaskC-links))



;; <find-mytaskC-links>
;; Skel: (find-find-links-links-new "mytaskC" "foo bar" "")
;; Test: (find-mytaskC-links)
;;
(defun find-mytaskC-links (&optional foo bar &rest pos-spec-list)
"Visit a temporary buffer containing hyperlinks for mytaskC."
  (interactive)
  (setq foo (or foo "{foo}"))
  (setq bar (or bar "{bar}"))
  (apply
   'find-elinks
   `((find-mytaskC-links ,foo ,bar ,@pos-spec-list)
     ;; Convention: the first sexp always regenerates the buffer.
     (find-efunction 'find-mytaskC-links)
     nil
     2
     (+ "foo" "b lop")
     ""
     ,(ee-template0 "\
1 2
foo = {foo} bar = {bar}
1 + 2 = {(+ 1 2)}
BLA BLA")
     )
   pos-spec-list))



;; (find-elisp-intro "10. Backquote")
;; (find-efunctiondescr 'ee-template0)
;; (find-efunction      'ee-template0)
;; (find-efunctiondescr 'find-elinks)
;; (find-efunction      'find-elinks)

;; (find-efunction 'find-find-links-links-new)

;; Local Variables:
;; coding:  utf-8-unix
;; End: