;; 2026-anggpaste.el. -*- lexical-binding: nil; -*-
;; This file:
;;   https://anggtwu.net/elisp/2026-anggpaste.el.html
;;   https://anggtwu.net/elisp/2026-anggpaste.el
;;           (find-angg "elisp/2026-anggpaste.el")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;;
;; (defun e () (interactive) (find-angg "elisp/2026-anggpaste.el"))
;;
;; «.find-anggpaste-dwim»		(to "find-anggpaste-dwim")
;; «.find-anggpaste-links»		(to "find-anggpaste-links")



;; «find-anggpaste-dwim»  (to ".find-anggpaste-dwim")
;; Based on: (find-eev "eev-tlinks.el" "find-minipaste-dwim")

(defun ee-anggpastedir ()
  "/tmp/anggtwu.net-p/")

(defun ee-anggpaste-configured ()
  (file-directory-p (ee-anggpastedir)))

(defun ee-in-anggpastedir (fullfname)
  (and fullfname
       (equal (ee-anggpastedir)
	      (file-name-directory fullfname))))

(defun find-anggpaste-dwim (fullfname)
  "See `find-minipaste-dwim'."
  (interactive (list (buffer-file-name)))
  (if (not (ee-anggpaste-configured))
      (progn (mkdir (ee-anggpastedir))
	     (find-2a nil `(find-fline ,(ee-anggpastedir))))
    (if (ee-in-anggpastedir fullfname)
	(find-anggpaste-links (file-name-nondirectory fullfname))
      (find-2a nil `(find-fline ,(ee-anggpastedir))))))

(defalias 'mipa 'find-anggpaste-dwim)


;; «find-anggpaste-links»  (to ".find-anggpaste-links")
;; Based on: (find-eev "eev-tlinks.el" "find-minipaste-links")
;;     Skel: (find-find-links-links-new "anggpaste" "fname" "dir findwgets")
;;     Test: (find-anggpaste-links "42")
;;
(defun find-anggpaste-links (&optional fname &rest pos-spec-list)
"Visit a temporary buffer containing hyperlinks for anggpaste."
  (interactive)
  (setq fname (or fname "{fname}"))
  (let* ((dir (ee-anggpastedir))
         (findwgets (ee-minipaste-find-wgets "http://anggtwu.net/p/" fname)))
    (apply
     'find-elinks-sh
     `((find-anggpaste-links ,fname ,@pos-spec-list)
       ;; Convention: the first sexp always regenerates the buffer.
       (find-efunction 'find-anggpaste-links)
       ""
       ,(ee-template0 "\
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
export D=/home/edrx/public_html/p
{
  echo ssh edrx@linode \"mkdir -pv $D/; echo $D:; ls -laF $D/\"
       ssh edrx@linode \"mkdir -pv $D/; echo $D:; ls -laF $D/\"
  echo scp {dir}{fname} edrx@linode:$D/
       scp {dir}{fname} edrx@linode:$D/

  echo ssh edrx@linode \"echo $D:; ls -laF $D/\"
       ssh edrx@linode \"echo $D:; ls -laF $D/\"
}

#  (find-fline \"{dir}{fname}\")
#
{findwgets}")
       )
     pos-spec-list)))







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