;; This file:
;;   http://anggtwu.net/elisp/emacsconf2024.el.html
;;   http://anggtwu.net/elisp/emacsconf2024.el
;;          (find-angg "elisp/emacsconf2024.el")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;;
;; (load (buffer-file-name))
;;
;; (defun ecl () (interactive) (find-angg "elisp/emacsconf2024.el"))
;;
;; (set-face-foreground 'org-link nil)
;; (set-face-foreground 'org-link "#0090ff")
;; (set-face-foreground 'org-link "chocolate1")
;; (find-eface-links 'org-link)
;; (find-eface-links 'font-lock-comment-face)
;;
;; Used by:
;;   (find-angg "ORG/2024-trying-eev-with-a-sexp.org")
;;   (find-angg "ORG/2024-bash-test-blocks.org")
;;   (find-angg "ORG/emacsconf2024.org")
;;   (find-angg "ORG/2024-piano-roll-macros.org")
;;
;; See this post for an overview:
;;   https://lists.gnu.org/archive/html/help-gnu-emacs/2025-02/index.html
;;
;; My original `M-x font' was an alias for `find-font-links':
;;   (find-angg ".emacs" "find-font-links")
;; that just displayed a temporary buffer with `set-frame-font's.

(defvar font-name nil "See `font' and `f'.")

;; Tests:
;; (font)
;; (font "Noto Mono 12")
;; (font "Noto Mono 13" :p)
;; (font "Noto Mono 14" :p)
;; (font "Noto Mono 15" :p)
;; (font "6x13")
(defun font (&optional fontname &rest cmds)
  (interactive)
  (if fontname
      (progn (setq font-name fontname)
	     (set-frame-font fontname))
    (find-font-links))
  (cl-loop for cmd in cmds
	   do (if (eq cmd :p) (eek "<right> M-0 C-l"))))

(defun font-fwd  () (interactive) (search-forward "(font"))
(defun font-back () (interactive) (search-backward "(font"))

;; See: (find-angg ".emacs" "my-mode")
;;  (find-esetkey-links (kbd "M-n") 'font-fwd)
;;  (find-esetkey-links (kbd "M-p") 'font-back)
(define-key my-mode-map (kbd "M-n") 'font-fwd)
(define-key my-mode-map (kbd "M-p") 'font-back)

(defun f () (interactive) (set-frame-font font-name))


;; Tests:
;; (find-2a nil '(modern-output "lambdas"))
;; (find-2a nil '(modern-output "advice"))
;; (find-2a '(modern-output "lambdas") '(modern-output "advice"))
;; (find-2a '(modern-output "lambdas") '(modern-output "advice"))
(defun modern-output (anchor)
  (find-angg "elisp/2025-modern-output.el" anchor '(eek "<down> M-0 C-l")))





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