;; This file:
;;   http://anggtwu.net/elisp/2024-find-wget.el.html
;;   http://anggtwu.net/elisp/2024-find-wget.el
;;          (find-angg "elisp/2024-find-wget.el")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;;
;; See: https://lists.gnu.org/archive/html/eev/2024-12/msg00007.html
;; Obsolete! Moved to:
;;   (find-eev "eev-plinks.el" "find-wget")
;;   (find-eev "eev-plinks.el" "find-wget" "(ee-wget-downloading url)")


;; Choose one:
;;
(defun ee-wgetting (url))
(defun ee-wgetting (url)
  (message "Wgetting: %s" url)
  (redisplay))

;; Test: (find-wget "https://www.lua.org/")
;; Original: (find-eev "eev-plinks.el" "find-wget" "(defun find-wget0")
;;
(defun find-wget0 (url &rest pos-spec-list)
  "Download URL with \"wget -q -O - URL\" and display the output.
If a buffer named \"*wget: URL*\" already exists then this
function visits it instead of running wget again.
If wget can't download URL then this function runs `error'."
  (interactive (browse-url-interactive-arg "URL: "))
  (let* ((eurl (ee-expand url))
	 (wgetprogandargs (list ee-wget-program "-q" "-O" "-" eurl))
	 (wgetbufname (format "*wget: %s*" eurl)))
    (if (get-buffer wgetbufname)
	(apply 'find-ebuffer wgetbufname pos-spec-list)
      ;;
      ;; If the buffer wgetbufname doesn't exist, then:
      (ee-wgetting url)			; <- this line is new
      (let* ((wgetoutput (find-callprocess00-ne wgetprogandargs))
	     (wgetstatus ee-find-callprocess00-exit-status))
	;;
	(if (not (equal wgetstatus 0))
	    ;; See: (find-node "(wget)Exit Status")
	    (error "wget can't download: %s" eurl))
	;;
	(find-ebuffer wgetbufname)	; create buffer
	(insert wgetoutput)
	(goto-char (point-min))
	(apply 'ee-goto-position pos-spec-list)))))





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