;; This file:
;;      http://anggtwu.net/elisp/screwlispkitten.el.html
;;      http://anggtwu.net/elisp/screwlispkitten.el
;;             (find-angg "elisp/screwlispkitten.el")
;;   (find-anggwget-elisp "elisp/screwlispkitten.el")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;;    See: https://emacs.social/@eduardoochs/114957472194661846
;;
;; (defun e () (interactive) (find-angg "elisp/screwlispkitten.el"))

;; «.git»	(to "git")
;; «.wget»	(to "wget")
;; «.web»	(to "web")



;; «git»  (to ".git")
;; Access a git-clone'd copy of the git repository.
;; The repository is here:
;;   https://codeberg.org/tfw/screwlisps-kitten
;; I downloaded it with:
;;   (find-es "kitten" "screwlisp")
;;
;; Tests: (find-screwlispkittenfile "")
;;        (find-screwlispkittensh "find * | sort")
;;
(code-c-d "screwlispkitten" "~/usrc/screwlisps-kitten/")


;; «wget»  (to ".wget")
;; Use find-wget to access the files in the git repository.
;; Tests:
;;   (find-screwlispkittenfile   "emacs/writing-experience.page.md")
;;   (find-screwlispkittenwget   "emacs/writing-experience.page.md")
;;   (find-screwlispkittenwgetmd "emacs/writing-experience.page.md")

(setq ee-screwlispkitten-raw
 "https://codeberg.org/tfw/screwlisps-kitten/raw/branch/main/")

(defun find-screwlispkittenwget (fname &rest rest)
  (apply 'find-wget (concat ee-screwlispkitten-raw fname) rest))

(defun find-screwlispkittenwgetmd (fname &rest rest)
  (apply 'find-wget-mode '(markdown-mode) (concat ee-screwlispkitten-raw fname) rest))


;; «web»  (to ".web")

(setq ee-screwlispkitten-web "https://screwlisp.small-web.org/")

(defun find-screwlispkittenweb (stem &rest rest)
  (find-googlechrome (concat ee-screwlispkitten-web stem)))

;; Tests:
;;   (find-screwlispkittenfile   "emacs/writing-experience.page.md")
;;   (find-screwlispkittenwget   "emacs/writing-experience.page.md")
;;   (find-screwlispkittenwgetmd "emacs/writing-experience.page.md")
;;   (find-screwlispkittenweb    "emacs/writing-experience/")
;;   (find-screwlispkittenweb    "")



;; <find-screwlispkitten-links>
;; Skel: (find-find-links-links-new "screwlispkitten" "stem" "")
;; Test: (find-screwlispkitten-links)
;;       (find-screwlispkitten-links "screwniverse/cl-eepitch")
;;       (find-screwlispkitten-links "complex/my-eepitch-send-actions-and-the-situation-calculus")
;;
(defun find-screwlispkitten-links (&optional stem &rest pos-spec-list)
"Visit a temporary buffer containing hyperlinks for screwlispkitten."
  (interactive)
  (setq stem (or stem "{stem}"))
  (apply
   'find-elinks-elisp
   `((find-screwlispkitten-links ,stem ,@pos-spec-list)
     (find-screwlispkitten-links "emacs/writing-experience")
     ;; Convention: the first sexp always regenerates the buffer.
     (find-efunction 'find-screwlispkitten-links)
     ""
     ,(ee-template0 "\
;; (find-screwlispkittenfile   \"\")
;; (find-screwlispkittensh     \"find * | sort\")
;; (find-screwlispkittenfile   \"{stem}.page.md\")
;; (find-screwlispkittenwget   \"{stem}.page.md\")
;; (find-screwlispkittenwgetmd \"{stem}.page.md\")
;; (find-screwlispkittenweb    \"{stem}/\")
;; (find-screwlispkittenweb    \"\")
")
     )
   pos-spec-list))