** This file:
**   https://anggtwu.net/2025-modern/00-try-this.html
**   https://anggtwu.net/2025-modern/00-try-this
**           (find-angg "2025-modern/00-try-this")
** Author: Eduardo Ochs <eduardoochs@gmail.com>
*
*
*** 0. Preparation: (down)load some files
*** ===================================== 
*** We are in "00-try-this".
***
* (emacs-lisp-mode)
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
rm -Rv /tmp/2025-modern/
mkdir  /tmp/2025-modern/
cd     /tmp/2025-modern/
wget -nc https://anggtwu.net/2025-modern/00-try-this
wget -nc https://anggtwu.net/2025-modern/01-base.el
wget -nc https://anggtwu.net/2025-modern/02-lambda-vector-like.el
wget -nc https://anggtwu.net/2025-modern/03-lambda-old-style.el
wget -nc https://anggtwu.net/2025-modern/04-lambda-named-plist.el
*
* (code-c-d "modern" "/tmp/2025-modern/" :anchor)
* (find-2a nil '(find-modern "01-base.el" "2a"))
* (load "/tmp/2025-modern/01-base.el")
*
*
*** 1. Understanding advice -
*** basic definitions (boring)
*** ==========================
***
* (defun adt-insert (o) (insert (format "\n;;  --> %S" o)))
* (defun adt-1 () (adt-insert 1))
* (defun adt-2 () (adt-insert 2))
* (defun adt-3 () (adt-insert 3))
*
* (find-eoutput-2a '(adt-insert 42))
* (find-eoutput-2a '(adt-1))
* (find-eoutput-2a '(adt-2))
* (find-eoutput-2a '(adt-3))
*
*
*** 2. What happens when we modify `adt-2' by adding and removing advices?
*** (Run this several times, watching the window at the right) 
*** ==========================================================
***
* (find-eoutput-2a '(adt-2))
*       (advice-add 'adt-2 :before 'adt-1)
* (find-eoutput-2a '(adt-2))
*       (advice-add 'adt-2 :after  'adt-3)
* (find-eoutput-2a '(adt-2))
*    (advice-remove 'adt-2         'adt-1)
* (find-eoutput-2a '(adt-2))
*    (advice-remove 'adt-2         'adt-3)
* (find-eoutput-2a '(adt-2))
*
*
*** 3. Understanding advice - the "internal view"
*** Add exactly two advices to `adt-2', and inspect it
*** ==================================================
***
*  (symbol-function 'adt-2)
*  (find-epp-2a (symbol-function 'adt-2))
*    (advice-remove 'adt-2         'adt-1)
*    (advice-remove 'adt-2         'adt-3)
*       (advice-add 'adt-2 :before 'adt-1)
*       (advice-add 'adt-2 :after  'adt-3)
*
* (find-epp-2a     (symbol-function 'adt-2))
* (find-clprin1-2a (symbol-function 'adt-2))
* (find-clprin2-2a (symbol-function 'adt-2))
*
*
*
*** 4. Switch between three ways of printing lambdas
*** ================================================
*
* (defun foo (a b) "Docstr" (interactive (list 2 3)) a (+ a b))
* (setq o (symbol-function 'foo))
*
*                                                     (find-clprin2-2a o)
* (load "/tmp/2025-modern/02-lambda-vector-like.el")  (find-clprin2-2a o)
* (load "/tmp/2025-modern/03-lambda-old-style.el")    (find-clprin2-2a o)
* (load "/tmp/2025-modern/04-lambda-named-plist.el")  (find-clprin2-2a o)
* (load "/tmp/2025-modern/02-lambda-vector-like.el")  (find-clprin2-2a o)
*
*
** The details are here:
* (find-2a nil '(find-modern "02-lambda-vector-like.el"))
* (find-2a nil '(find-modern "03-lambda-old-style.el"))
* (find-2a nil '(find-modern "04-lambda-named-plist.el"))
*
*
*
*** 5. Buttons: preparation
*** =======================
*** You need a "*Help*" buffer with buttons,
*** and you need to go to that buffer and run
*** `M-x ee-set-button' on one of its buttons.
***
* (cl-defstruct myabc a b c)
* (find-2a nil '(find-etypedescr 'myabc))
*
*
*
*** 6. Buttons: displaying information
*** ==================================
*** The tests below act on `ee-button', and they use
*** the functions and macros defined in:
***
***   (find-2a nil '(find-modern "01-base.el" "button-macro"))
***
* (ee-let*-macro-button ee-button b)
* (ee-let*-macro-button ee-button buf)
* (ee-let*-macro-button ee-button pos)
* (ee-let*-macro-button ee-button cat)
* (ee-with-button cat)
* (find-3h '(find-epp (ee-with-button cat)))
* (find-3h '(ee-with-button (find-epp cat)))
* (find-epp-3hb 'b)
* (find-epp-3hb 'buf)
* (find-epp-3hb 'pos)
* (find-epp-3hb 'cat)
* (find-epp-3hb 'catp)
* (find-epp-3hb 'props0)
* (find-eppp-3hb 'props1)
* (find-eppp-3hb 'props2)
* (find-eppp-3hb 'props3)
* (find-epp-3hb 'helpfun)
* (find-epp-3hb 'helpargs)
* (find-epp-3hb 'helpargsq)
* (find-epp-3hb 'helpcall)
***
*** What was your reaction to that?
*** if it was more "wow" than "blergh" then you might like
*** the last part of this video that I recorded in march...
***
***   Play:  (find-2025modernvideo "16:11")
***   HSubs: (find-2025modernhsubs "16:11")
***   LSubs: (find-2025modernlsubs "16:11")