;; This file:
;;   https://anggtwu.net/elisp/2026-gpc.el.html
;;   https://anggtwu.net/elisp/2026-gpc.el
;;           (find-angg "elisp/2026-gpc.el")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Version: 2026aug28
;; For Untrusem
;;
;; (defun e () (interactive) (find-angg "elisp/2026-gpc.el"))
;; (defun u () (interactive) (find-anggpaste-links "elisp/2026-gpc.el"))
;; (find-es "git" "git-pages-cli")
;; (find-angg ".emacs.templates" "find-anggpaste-links")
;;


(defun ee-husn-default-directory (fname)
  (setq fname (ee-shorten-file-name fname))
  (setq fname (replace-regexp-in-string "~/" "" fname


;; <find-husn-links>
;; Skel: (find-find-links-links-new "husn" "fname altdir" "fname0 origdir httpdir")
;; Test: (find-husn-links)
;;
(defun find-husn-links (&optional fname altdir &rest pos-spec-list)
"Visit a temporary buffer containing hyperlinks for husn."
  (interactive (list (buffer-file-name)))
  (setq fname  (or fname "{fname}"))
  (setq altdir (or altdir "{altdir}"))
  (setq fname  (ee-shorten-file-name fname))
  (let* ((fname0  (file-name-nondirectory fname))
         (origdir (file-name-directory    fname))
         (httpdir "{httpdir}"))
    (apply
     'find-elinks
     `((find-husn-links ,fname ,altdir ,@pos-spec-list)
       ;; Convention: the first sexp always regenerates the buffer.
       (find-efunction 'find-husn-links)
       ""
       ,(ee-template0 "\
")
       )
     pos-spec-list)))



;; «.find-oup-links»	(to "find-oup-links")

;; «find-oup-links»  (to ".find-oup-links")
;; Skel: (find-find-links-links-new "oup" "fname" "origdir httpdir")
;; Test: (find-oup-links)
;;
(defalias 'oup 'find-oup-links)

;; <find-oup-links>
;; Skel: (find-find-links-links-new "oup" "fname" "origdir httpdir")
;; Skel: (find-find-links-links-new "oup" "fname altdir" "origdir httpdir")
;; Test: (find-oup-links)
;;
(defun find-oup-links (&optional fname &rest pos-spec-list)
"Visit a temporary buffer containing hyperlinks for oup."
  (interactive)
  (setq fname (or fname "{fname}"))
  (setq fname (ee-shorten-file-name fname))
  (let* ((origdir "{origdir}")
         (httpdir "{httpdir}"))
    (apply
     'find-elinks
     `((find-oup-links ,fname ,@pos-spec-list)
       ;; Convention: the first sexp always regenerates the buffer.
       (find-efunction 'find-oup-links)
       ""
       ,(ee-template0 "\
 (code-c-d \"oup\" \"~/husn/\")
 (find-oupfile \"\") 
 (find-oupfile \"o\") 

 Update:
 (sh-mode)
 (eepitch-sh)
 (eepitch-kill)
 (eepitch-sh)
cd ~/husn/
gpc https://o.untrusem.party --password $GIT_PAGES_PASS --upload-dir o

 Local:  (find-oupfile \"o\") 
 Remote: (find-wget \"https://o.untrusem.party/o\")
")
       )
     pos-spec-list)))





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