emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/eev 7a08058132 1/4: Changed angg.twu -> anggtwu in the


From: ELPA Syncer
Subject: [elpa] externals/eev 7a08058132 1/4: Changed angg.twu -> anggtwu in the files eev-{b, e, h, p, t}.el.
Date: Fri, 27 Jan 2023 02:57:37 -0500 (EST)

branch: externals/eev
commit 7a08058132fba3d473730f81e3cc6a86cc2b95de
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@gmail.com>

    Changed angg.twu -> anggtwu in the files eev-{b,e,h,p,t}.el.
---
 ChangeLog     |  10 +++++
 VERSION       |   4 +-
 eev-blinks.el |  14 +++----
 eev-elinks.el |  22 +++++------
 eev-hlinks.el |  16 ++++----
 eev-plinks.el |  46 +++++++++++-----------
 eev-tlinks.el | 124 +++++++++++++++++++++++++++++-----------------------------
 7 files changed, 123 insertions(+), 113 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f8f285a169..fb76a0635c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,15 @@
 2023-01-27  Eduardo Ochs  <eduardoochs@gmail.com>
 
+       * eev-blinks.el: changed angg.twu.net to anggtwu.net.
+
+       * eev-elinks.el: changed angg.twu.net to anggtwu.net.
+
+       * eev-hlinks.el: changed angg.twu.net to anggtwu.net.
+
+       * eev-plinks.el: changed angg.twu.net to anggtwu.net.
+
+       * eev-tlinks.el: changed angg.twu.net to anggtwu.net.
+
        * eev-testblocks.el (ee-insert-test-raku-mode): also use
        eepitch-shell.
 
diff --git a/VERSION b/VERSION
index 9fa77f3ab6..0d511e80a2 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Fri Jan 27 06:52:26 GMT 2023
-Fri Jan 27 03:52:26 -03 2023
+Fri Jan 27 07:02:18 GMT 2023
+Fri Jan 27 04:02:18 -03 2023
diff --git a/eev-blinks.el b/eev-blinks.el
index c3764e4975..a5742ad411 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -21,13 +21,13 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20230117
+;; Version:    20230127
 ;; Keywords:   e-scripts
 ;;
-;; Latest version: <http://angg.twu.net/eev-current/eev-blinks.el>
-;;       htmlized: <http://angg.twu.net/eev-current/eev-blinks.el.html>
-;;       See also: <http://angg.twu.net/eev-current/eev-beginner.el.html>
-;;                 <http://angg.twu.net/eev-intros/find-eev-intro.html>
+;; Latest version: <http://anggtwu.net/eev-current/eev-blinks.el>
+;;       htmlized: <http://anggtwu.net/eev-current/eev-blinks.el.html>
+;;       See also: <http://anggtwu.net/eev-current/eev-beginner.el.html>
+;;                 <http://anggtwu.net/eev-intros/find-eev-intro.html>
 ;;                                                (find-eev-intro)
 
 ;;; Commentary:
@@ -1222,8 +1222,8 @@ it doesn't convert relative filenames into urls. See
 
 
 ;; «find-eww»  (to ".find-eww")
-;; Tests: (find-eww "http://angg.twu.net/";)
-;;        (find-eww "http://angg.twu.net/"; "Welcome")
+;; Tests: (find-eww "http://anggtwu.net/";)
+;;        (find-eww "http://anggtwu.net/"; "Welcome")
 ;;        (find-eww "/tmp/")
 ;;
 (defvar ee-find-eww-search-yes nil)
diff --git a/eev-elinks.el b/eev-elinks.el
index 51942cb365..999b5fa325 100644
--- a/eev-elinks.el
+++ b/eev-elinks.el
@@ -19,16 +19,16 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20230125
+;; Version:    20230127
 ;; Keywords:   e-scripts
 ;;
-;; Latest version: <http://angg.twu.net/eev-current/eev-elinks.el>
-;;       htmlized: <http://angg.twu.net/eev-current/eev-elinks.el.html>
-;;       See also: <http://angg.twu.net/eev-current/eev-beginner.el.html>
-;;                 <http://angg.twu.net/eev-intros/find-eev-intro.html>
-;;                 <http://angg.twu.net/eev-intros/find-links-intro.html>
-;;                                                (find-eev-intro)
-;;                                                (find-links-intro)
+;; Latest version: <http://anggtwu.net/eev-current/eev-elinks.el>
+;;       htmlized: <http://anggtwu.net/eev-current/eev-elinks.el.html>
+;;       See also: <http://anggtwu.net/eev-current/eev-beginner.el.html>
+;;                 <http://anggtwu.net/eev-intros/find-eev-intro.html>
+;;                 <http://anggtwu.net/eev-intros/find-links-intro.html>
+;;                                               (find-eev-intro)
+;;                                               (find-links-intro)
 
 ;;; Commentary:
 
@@ -632,7 +632,7 @@ This can be used to test if the current buffer is an intro 
buffer."
 (defun ee-find-intro-links (&optional stem)
   (setq stem (or stem (ee-intro-stem)))
   (let ((find-xxx-intro (ee-intern "find-%s-intro" stem))
-       (url (format "http://angg.twu.net/eev-intros/find-%s-intro.html"; stem)))
+       (url (format "http://anggtwu.net/eev-intros/find-%s-intro.html"; stem)))
     `(,(ee-H url)
       (,find-xxx-intro)
       )))
@@ -1908,8 +1908,8 @@ You can use this to understand how the mode line works."
 ;; [To do: explain M-h M-y. There's an example in `eesteps' format in
 ;; the NEWS file.]
 
-;; See: <http://angg.twu.net/eev-current/README.html>
-;; and: <http://angg.twu.net/eev-current/NEWS.html>
+;; See: <http://anggtwu.net/eev-current/README.html>
+;; and: <http://anggtwu.net/eev-current/NEWS.html>
 
 ;; The second part of this file contains some older functions that
 ;; insert Elisp hyperlinks at the current buffer -- like `inn', that
diff --git a/eev-hlinks.el b/eev-hlinks.el
index 9725b677c7..578934ddae 100644
--- a/eev-hlinks.el
+++ b/eev-hlinks.el
@@ -19,16 +19,16 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20230116
+;; Version:    20230127
 ;; Keywords:   e-scripts
 ;;
-;; Latest version: <http://angg.twu.net/eev-current/eev-hlinks.el>
-;;       htmlized: <http://angg.twu.net/eev-current/eev-hlinks.el.html>
-;;       See also: <http://angg.twu.net/eev-current/eev-beginner.el.html>
-;;                 <http://angg.twu.net/eev-intros/find-eev-intro.html>
-;;                 <http://angg.twu.net/eev-intros/find-here-links-intro.html>
-;;                                                (find-eev-intro)
-;;                                                (find-here-links-intro)
+;; Latest version: <http://anggtwu.net/eev-current/eev-hlinks.el>
+;;       htmlized: <http://anggtwu.net/eev-current/eev-hlinks.el.html>
+;;       See also: <http://anggtwu.net/eev-current/eev-beginner.el.html>
+;;                 <http://anggtwu.net/eev-intros/find-eev-intro.html>
+;;                 <http://anggtwu.net/eev-intros/find-here-links-intro.html>
+;;                                               (find-eev-intro)
+;;                                               (find-here-links-intro)
 
 ;;; Commentary:
 
diff --git a/eev-plinks.el b/eev-plinks.el
index 2bd4932158..721291ac66 100644
--- a/eev-plinks.el
+++ b/eev-plinks.el
@@ -1,6 +1,6 @@
 ;;; eev-plinks.el -- elisp hyperlinks to invoke external processes.  -*- 
lexical-binding: nil; -*-
 
-;; Copyright (C) 2012-2022 Free Software Foundation, Inc.
+;; Copyright (C) 2012-2023 Free Software Foundation, Inc.
 ;;
 ;; This file is part of GNU eev.
 ;;
@@ -19,14 +19,14 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20221023
+;; Version:    20230127
 ;; Keywords:   e-scripts
 ;;
-;; Latest version: <http://angg.twu.net/eev-current/eev-plinks.el>
-;;       htmlized: <http://angg.twu.net/eev-current/eev-plinks.el.html>
-;;       See also: <http://angg.twu.net/eev-current/eev-beginner.el.html>
-;;                 <http://angg.twu.net/eev-intros/find-eev-intro.html>
-;;                 <http://angg.twu.net/eev-intros/find-links-intro.html>
+;; Latest version: <http://anggtwu.net/eev-current/eev-plinks.el>
+;;       htmlized: <http://anggtwu.net/eev-current/eev-plinks.el.html>
+;;       See also: <http://anggtwu.net/eev-current/eev-beginner.el.html>
+;;                 <http://anggtwu.net/eev-intros/find-eev-intro.html>
+;;                 <http://anggtwu.net/eev-intros/find-links-intro.html>
 ;;                                                (find-eev-intro)
 ;;                                                (find-links-intro)
 
@@ -262,14 +262,14 @@
 ;;;  \__,_|_|  |_|     |_|  \___|\__|_|  |_|\___| \_/ \___|
 ;;;                                                        
 ;; «find-urlretrieve»  (to ".find-urlretrieve")
-;; See: http://angg.twu.net/elisp/url-retrieve-test.el
-;;              (find-angg "elisp/url-retrieve-test.el")
+;; See: http://anggtwu.net/elisp/url-retrieve-test.el
+;;             (find-angg "elisp/url-retrieve-test.el")
 ;; Tests:
 ;;   (find-urlretrieve00 "http://foo/bar";)
-;;   (find-urlretrieve00 "http://angg.twu.net/";)
-;;   (find-urlretrieve00 "http://angg.twu.net/doesnotexist";)
-;;   (find-estring (ee-urlretrieve0 "http://angg.twu.net/";))
-;;   (find-estring (ee-urlretrieve0 "http://angg.twu.net/doesnotexist";))
+;;   (find-urlretrieve00 "http://anggtwu.net/";)
+;;   (find-urlretrieve00 "http://anggtwu.net/doesnotexist";)
+;;   (find-estring (ee-urlretrieve0 "http://anggtwu.net/";))
+;;   (find-estring (ee-urlretrieve0 "http://anggtwu.net/doesnotexist";))
 ;;
 (defvar ee-urlretrieve-headers ""
   "The HTTP headers returned by the last call to `find-urlretrieve'.")
@@ -411,12 +411,12 @@ If wget can't download URL then this function runs 
`error'."
   (apply 'ee-goto-anchor pos-spec-list))
 
 ;; Tests:
-;; (find-wget  "http://angg.twu.net/eev-current/eev-plinks.el";)
-;; (find-wget  "http://angg.twu.net/eev-current/eev-plinks.el"; "find-wget")
-;; (find-wgeta "http://angg.twu.net/eev-current/eev-plinks.el"; "find-wget")
-;; (find-wget  "http://angg.twu.net/eev-current/DOESNOTEXIST";)
-;; (find-wget-elisp  "http://angg.twu.net/eev-current/eev-plinks.el"; 
"find-wget")
-;; (find-wgeta-elisp "http://angg.twu.net/eev-current/eev-plinks.el"; 
"find-wget")
+;; (find-wget  "http://anggtwu.net/eev-current/eev-plinks.el";)
+;; (find-wget  "http://anggtwu.net/eev-current/eev-plinks.el"; "find-wget")
+;; (find-wgeta "http://anggtwu.net/eev-current/eev-plinks.el"; "find-wget")
+;; (find-wget  "http://anggtwu.net/eev-current/DOESNOTEXIST";)
+;; (find-wget-elisp  "http://anggtwu.net/eev-current/eev-plinks.el"; 
"find-wget")
+;; (find-wgeta-elisp "http://anggtwu.net/eev-current/eev-plinks.el"; 
"find-wget")
 ;;
 ;; «find-anggwget»   (to ".find-anggwget")
 ;; «find-anggwgeta»  (to ".find-anggwgeta")
@@ -426,19 +426,19 @@ If wget can't download URL then this function runs 
`error'."
 
 (defun find-anggwget (fname &rest pos-spec-list)
   "See `find-wget' and this: (find-angg-es-links)"
-  (apply 'find-wget (concat "http://angg.twu.net/"; fname) pos-spec-list))
+  (apply 'find-wget (concat "http://anggtwu.net/"; fname) pos-spec-list))
 
 (defun find-anggwgeta (fname &rest pos-spec-list)
   "See `find-wgeta' and this: (find-angg-es-links)"
-  (apply 'find-wgeta (concat "http://angg.twu.net/"; fname) pos-spec-list))
+  (apply 'find-wgeta (concat "http://anggtwu.net/"; fname) pos-spec-list))
 
 (defun find-anggwget-elisp (fname &rest pos-spec-list)
   "See `find-wget-elisp' and this: (find-angg-es-links)"
-  (apply 'find-wget-elisp (concat "http://angg.twu.net/"; fname) pos-spec-list))
+  (apply 'find-wget-elisp (concat "http://anggtwu.net/"; fname) pos-spec-list))
 
 (defun find-anggwgeta-elisp (fname &rest pos-spec-list)
   "See `find-wgeta-elisp' and this: (find-angg-es-links)"
-  (apply 'find-wgeta-elisp (concat "http://angg.twu.net/"; fname) 
pos-spec-list))
+  (apply 'find-wgeta-elisp (concat "http://anggtwu.net/"; fname) pos-spec-list))
 
 
 
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 16de5d31ab..1179384f6f 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -19,16 +19,16 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20230118
+;; Version:    20230127
 ;; Keywords:   e-scripts
 ;;
-;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
-;;       htmlized: <http://angg.twu.net/eev-current/eev-tlinks.el.html>
-;;       See also: <http://angg.twu.net/eev-current/eev-beginner.el.html>
-;;                 <http://angg.twu.net/eev-intros/find-eev-intro.html>
-;;                 <http://angg.twu.net/eev-intros/find-links-intro.html>
-;;                                                (find-eev-intro)
-;;                                                (find-links-intro)
+;; Latest version: <http://anggtwu.net/eev-current/eev-tlinks.el>
+;;       htmlized: <http://anggtwu.net/eev-current/eev-tlinks.el.html>
+;;       See also: <http://anggtwu.net/eev-current/eev-beginner.el.html>
+;;                 <http://anggtwu.net/eev-intros/find-eev-intro.html>
+;;                 <http://anggtwu.net/eev-intros/find-links-intro.html>
+;;                                               (find-eev-intro)
+;;                                               (find-links-intro)
 
 ;;; Commentary:
 
@@ -606,11 +606,11 @@ Hello
 ;; Version:    {date}
 ;; Keywords:   e-scripts
 ;;
-;; Latest version: <http://angg.twu.net/eev-current/{stem-el}>
-;;       htmlized: <http://angg.twu.net/eev-current/{stem-el}.html>
-;;       See also: <http://angg.twu.net/eev-current/eev-readme.el.html>
-;;                 <http://angg.twu.net/eev-intros/find-eev-intro.html>
-;;                                                (find-eev-intro)
+;; Latest version: <http://anggtwu.net/eev-current/{stem-el}>
+;;       htmlized: <http://anggtwu.net/eev-current/{stem-el}.html>
+;;       See also: <http://anggtwu.net/eev-current/eev-readme.el.html>
+;;                 <http://anggtwu.net/eev-intros/find-eev-intro.html>
+;;                                               (find-eev-intro)
 
 ;;; Commentary:
 
@@ -854,7 +854,7 @@ sudo dpkg -i *.deb
   mkdir  {dir}
   cd     {dir}
   rm -fv eev2.tgz
-  wget http://angg.twu.net/eev-current/eev2.tgz
+  wget http://anggtwu.net/eev-current/eev2.tgz
   tar -xvzf eev2.tgz
   {<}
     echo '#!/bin/sh'
@@ -936,7 +936,7 @@ sudo dpkg -i *.deb
   mkdir  {dir}
   cd     {dir}
   rm -v eev2.tgz
-  wget http://angg.twu.net/eev-current/eev2.tgz
+  wget http://anggtwu.net/eev-current/eev2.tgz
   tar -xvzf eev2.tgz
   {
     echo '#!/bin/sh'
@@ -959,7 +959,7 @@ sudo dpkg -i *.deb
 mkdir   {dir}
 cd      {dir}
 rm -v eev2.tgz
-wget http://angg.twu.net/eev-current/eev2.tgz
+wget http://anggtwu.net/eev-current/eev2.tgz
 tar -xvzf eev2.tgz
 
 # Tests:
@@ -1178,8 +1178,8 @@ Files that look like subtitle files are ignored."
 ;;
 ;; and put a copy of this fake youtube-dl script
 ;;
-;;   http://angg.twu.net/bin/youtube-dl.html
-;;   http://angg.twu.net/bin/youtube-dl
+;;   http://anggtwu.net/bin/youtube-dl.html
+;;   http://anggtwu.net/bin/youtube-dl
 ;;
 ;; somewhere in your PATH, and use this:
 ;;
@@ -1355,8 +1355,8 @@ echo {e} '{url}' >> ~/.psne.log
 ;;
 (defun ee-psne-eevvideo-core (stem exts time)
   "An internal function used by `find-psne-eevvideo-links'."
-  (let* ((dir         "$S/http/angg.twu.net/eev-videos/")
-         (url- (concat "http://angg.twu.net/eev-videos/"; stem))
+  (let* ((dir         "$S/http/anggtwu.net/eev-videos/")
+         (url- (concat "http://anggtwu.net/eev-videos/"; stem))
         (eo (format "%-3s" (ee-find-psne-echo-options)))
          (wf (lambda (ext) (format "wget -N   %s%s\n" url- ext)))
          (ef (lambda (ext) (format "echo %s  %s%s >> ~/.psne.log\n" eo url- 
ext)))
@@ -1367,7 +1367,7 @@ echo {e} '{url}' >> ~/.psne.log
 # (find-psne-intro \"1. Local copies of files from the internet\")
 # (find-video-links-intro \"5. Local copies\")
 # (find-video-links-intro \"5.1. Subtitles\")
-# http://angg.twu.net/eev-videos.html
+# http://anggtwu.net/eev-videos.html
 
  (sh-mode)
  (eepitch-shell2)
@@ -1713,7 +1713,7 @@ netcat -l -p {tgtport}
   (setq stem (or stem "{stem}"))
   (setq youtubeid (or youtubeid "{youtubeid}"))
   (setq time (or time "{time}"))
-  (let* ((url (format "http://angg.twu.net/eev-videos/%s.mp4"; stem)))
+  (let* ((url (format "http://anggtwu.net/eev-videos/%s.mp4"; stem)))
     (apply
      'find-elinks
      `((find-eevvideo-links ,c ,stem ,youtubeid ,time ,@pos-spec-list)
@@ -1957,9 +1957,9 @@ echo     '{url}' >> ~/.psne.log
 ;; ;; (find-code-eevvideo-local \"{c}\" \"{stem}\" \"{youtubeid}\")
 ;; ;;      (code-eevvideo-local \"{c}\" \"{stem}\" \"{youtubeid}\")
 ;; ;;
-;; ;;                    (find-fline \"$S/http/angg.twu.net/eev-videos/\" 
\"{stem}\")
-;; ;; (find-code-video \"{c}video\" 
\"$S/http/angg.twu.net/eev-videos/{stem}.mp4\")
-;;         (code-video \"{c}video\" 
\"$S/http/angg.twu.net/eev-videos/{stem}.mp4\")
+;; ;;                    (find-fline \"$S/http/anggtwu.net/eev-videos/\" 
\"{stem}\")
+;; ;; (find-code-video \"{c}video\" 
\"$S/http/anggtwu.net/eev-videos/{stem}.mp4\")
+;;         (code-video \"{c}video\" 
\"$S/http/anggtwu.net/eev-videos/{stem}.mp4\")
 ;; ;;             (find-{c}video \"0:00\")
 ;; "))
 
@@ -1968,7 +1968,7 @@ echo     '{url}' >> ~/.psne.log
 ;; «hardcoded-paths»  (to ".hardcoded-paths")
 ;;
 ;; The definitions of `find-eevvideo-links' and `code-eevvideo' above
-;; have strings like "eev" and "http://angg.twu.net/eev-videos/";
+;; have strings like "eev" and "http://anggtwu.net/eev-videos/";
 ;; hardcoded in several places... it is easy, but not entirely
 ;; trivial, to create variants of them that point to other sites that
 ;; stores video tutorials and presentations in ways that are easy to
@@ -2012,15 +2012,15 @@ Warning: the last one is in Portuguese..."
  (eepitch-shell2)
  (eepitch-kill)
  (eepitch-shell2)
-mkdir -p $S/http/angg.twu.net/eev-videos/
-cd       $S/http/angg.twu.net/eev-videos/
-wget -nc 'http://angg.twu.net/eev-videos/{anggstem}.mp4'
-echo     'http://angg.twu.net/eev-videos/{anggstem}.mp4' >> ~/.psne.log
+mkdir -p $S/http/anggtwu.net/eev-videos/
+cd       $S/http/anggtwu.net/eev-videos/
+wget -nc 'http://anggtwu.net/eev-videos/{anggstem}.mp4'
+echo     'http://anggtwu.net/eev-videos/{anggstem}.mp4' >> ~/.psne.log
 
 # Test:
-# (find-fline  {s}  \"$S/http/angg.twu.net/eev-videos/\")
-# (find-video  {s}  \"$S/http/angg.twu.net/eev-videos/{anggstem}.mp4\")
-# (code-video \"{c}\" \"$S/http/angg.twu.net/eev-videos/{anggstem}.mp4\")
+# (find-fline  {s}  \"$S/http/anggtwu.net/eev-videos/\")
+# (find-video  {s}  \"$S/http/anggtwu.net/eev-videos/{anggstem}.mp4\")
+# (code-video \"{c}\" \"$S/http/anggtwu.net/eev-videos/{anggstem}.mp4\")
 # (find-{c})
 # Error messages:
 # (find-ebuffer \"*Messages*\")
@@ -2070,15 +2070,15 @@ echo     
'http://angg.twu.net/eev-videos/{anggstem}.mp4' >> ~/.psne.log
 
 ;; Skel: (find-eevshortvideo-links \"{c}\" \"{stem}\" \"{youtubeid}\")
 ;;  See: (find-videos-intro \"1. Some videos\" \"{stem}\")
-;; Index: http://angg.twu.net/.emacs.videos.html#{c}
+;; Index: http://anggtwu.net/.emacs.videos.html#{c}
 ;;  Test: (find-{c}video \"0:00\")
 (defun find-{c}video (&optional time &rest rest)
   \"Play one of the video tutorials of eev starting at TIME.
 See: (find-videos-intro \\\"1. Some videos\\\" \\\"{stem}\\\")
-     http://angg.twu.net/{stem}.html
+     http://anggtwu.net/{stem}.html
      for more info on this particular video,
 and: (find-video-links-intro \\\"7. `find-eev-video'\\\")
- or: http://angg.twu.net/eev-intros/find-video-links-intro.html#7
+ or: http://anggtwu.net/eev-intros/find-video-links-intro.html#7
      for more info on these video tutorials.\"
   (interactive)
   (find-eev-video \"{stem}\" \"{youtubeid}\" time))
@@ -2104,13 +2104,13 @@ and: (find-video-links-intro \\\"7. 
`find-eev-video'\\\")
 The script downloads an eev video and it subtitles. For example,
 if STEM is \"emacsconf2021\" and EXTS is \".vtt .srt\" then the
 main part of the script will be:\n
-  mkdir -p $S/http/angg.twu.net/eev-videos/
-  cd       $S/http/angg.twu.net/eev-videos/
-  wget -nc  http://angg.twu.net/eev-videos/emacsconf2021.mp4
-  wget -N   http://angg.twu.net/eev-videos/emacsconf2021.vtt
-  wget -N   http://angg.twu.net/eev-videos/emacsconf2021.srt\n
+  mkdir -p $S/http/anggtwu.net/eev-videos/
+  cd       $S/http/anggtwu.net/eev-videos/
+  wget -nc  http://anggtwu.net/eev-videos/emacsconf2021.mp4
+  wget -N   http://anggtwu.net/eev-videos/emacsconf2021.vtt
+  wget -N   http://anggtwu.net/eev-videos/emacsconf2021.srt\n
 The subtitles are downloaded again if the ones in
-http://angg.twu.net/ are newer than the local copy."
+http://anggtwu.net/ are newer than the local copy."
   (interactive)
   (setq stem (or stem "{stem}"))
   (setq exts (or exts "{exts}"))
@@ -2127,16 +2127,16 @@ http://angg.twu.net/ are newer than the local copy."
  (eepitch-kill)
  (eepitch-shell2)
 {cmds}
-# (find-fline \"$S/http/angg.twu.net/eev-videos/\" \"{stem}.mp4\")
-# (find-video \"$S/http/angg.twu.net/eev-videos/{stem}.mp4\")
+# (find-fline \"$S/http/anggtwu.net/eev-videos/\" \"{stem}.mp4\")
+# (find-video \"$S/http/anggtwu.net/eev-videos/{stem}.mp4\")
 ")
        )
      pos-spec-list)))
 
 (defun ee-wgeteevsubtitles-cmds (stem exts)
   "An internal function used by `find-wgeteevsubtitles-links'."
-  (let* ((dir         "$S/http/angg.twu.net/eev-videos/")
-         (url- (concat "http://angg.twu.net/eev-videos/"; stem))
+  (let* ((dir         "$S/http/anggtwu.net/eev-videos/")
+         (url- (concat "http://anggtwu.net/eev-videos/"; stem))
          (f (lambda (ext) (format "wget -N   %s%s\n" url- ext)))
          (wgets (mapconcat f (split-string exts))))
     (ee-template0 "\
@@ -2739,7 +2739,7 @@ sudo ./install-tl -select-repository
 
 
 ;; Tests:
-;; (find-{browser} \"http://angg.twu.net/#eev\";)
+;; (find-{browser} \"http://anggtwu.net/#eev\";)
 ;; (find-{browser}-page \"~/Coetzee99.pdf\")
 ;; (find-{browser}-page \"~/Coetzee99.pdf\" 3)
 ;; (find-pdf-page \"~/Coetzee99.pdf\" 3)
@@ -2753,7 +2753,7 @@ sudo ./install-tl -select-repository
 ;; Skel: (find-find-links-links-new "newbrowser" "shrt longname binary" "")
 ;; Test: (find-newbrowser-links)
 ;;       (find-newbrowser-links "g" "googlechrome" "google-chrome")
-;; See:  http://angg.twu.net/eev-customize.html
+;; See:  http://anggtwu.net/eev-customize.html
 ;;
 (defun find-newbrowser-links (&optional shrt longname binary &rest 
pos-spec-list)
 "Visit a temporary buffer containing a script to set up an atypical browser."
@@ -3076,7 +3076,7 @@ This function is used by `ee-0x0-upload-region'."
 ;; «find-angg-es-links»  (to ".find-angg-es-links")
 ;; Skel: (find-find-links-links-new "angg-es" "" "")
 ;; Test: (find-angg-es-links)
-;;  See: http://angg.twu.net/eev-find-angg.html
+;;  See: http://anggtwu.net/eev-find-angg.html
 ;;
 (defun find-angg-es-links (&rest pos-spec-list)
 "Show an e-script for configuring `find-angg' and `find-es'."
@@ -3122,14 +3122,14 @@ This function is used by `ee-0x0-upload-region'."
 
 ;; The `progn' below defines versions of `find-angg' and
 ;; `find-es' that use `find-wget' to access the
-;; public copies of my files at angg.twu.net:
+;; public copies of my files at anggtwu.net:
 ;;
 (progn
 
   (defun find-angg (fname &rest rest)
-    (apply 'find-wgeta (format \"http://angg.twu.net/%s\"; fname) rest))
+    (apply 'find-wgeta (format \"http://anggtwu.net/%s\"; fname) rest))
   (defun find-es (fname &rest rest)
-    (apply 'find-wgeta (format \"http://angg.twu.net/e/%s.e\"; fname) rest))
+    (apply 'find-wgeta (format \"http://anggtwu.net/e/%s.e\"; fname) rest))
 
 )
 
@@ -3223,7 +3223,7 @@ This function is used by `ee-0x0-upload-region'."
 ;;            (find-1stclassvideo-links \"{c}\")
 ;;
 ;; Index: (find-1stclassvideoindex              \"{c}\")
-;;        http://angg.twu.net/.emacs.videos.html#{c}
+;;        http://anggtwu.net/.emacs.videos.html#{c}
 ;;        (find-angg         \".emacs.videos\"    \"{c}\")
 ;;        (find-angg-es-links)
 {dlsubs}\
@@ -3358,7 +3358,7 @@ For more info on this particular video, run:
 ;; Skel: (find-find-links-links-new "advicebefore" "fun" "")
 ;; Test: (find-advicebefore-links)
 ;;       (find-advicebefore-links "FOO")
-;; Screenshot: http://angg.twu.net/IMAGES/find-advicebefore-links.png
+;; Screenshot: http://anggtwu.net/IMAGES/find-advicebefore-links.png
 ;;
 ;; I wrote this when I was trying to learn edebug and I was failing
 ;; miserably.
@@ -3379,9 +3379,9 @@ how this works."
      ";;"
      ,(ee-template0 "\
 ;; See: (find-elnode \"Advice Combinators\")
-;; Demo: http://angg.twu.net/elisp/find-advicebefore-links.el.html
-;;       http://angg.twu.net/elisp/find-advicebefore-links.el
-;; (find-wget-elisp \"http://angg.twu.net/elisp/find-advicebefore-links.el\";)
+;; Demo: http://anggtwu.net/elisp/find-advicebefore-links.el.html
+;;       http://anggtwu.net/elisp/find-advicebefore-links.el
+;; (find-wget-elisp \"http://anggtwu.net/elisp/find-advicebefore-links.el\";)
 
 (setq  ee-log nil)
 (defun ee-log (f r) (setq ee-log (cons (cons f r) ee-log)))
@@ -3447,7 +3447,7 @@ how this works."
 ;; «find-pip3-links»  (to ".find-pip3-links")
 ;; Skel: (find-find-links-links-new "pip3" "pkg" "pkg_")
 ;; Test: (find-pip3-links "youtube-transcript-downloader")
-;; See:  http://angg.twu.net/find-yttranscript-links.html
+;; See:  http://anggtwu.net/find-yttranscript-links.html
 ;;
 (defun find-pip3-links (&optional pkg &rest pos-spec-list)
 "Visit a temporary buffer containing a script for pip3."
@@ -3492,7 +3492,7 @@ pip3 install {pkg}
 ;; Skel: (find-find-links-links-new "yttranscript" "c hash" "")
 ;; Test: (find-yttranscript-links)
 ;;       (find-yttranscript-links "acmetour" "dP1xVpMPn8M")
-;; See:  http://angg.twu.net/find-yttranscript-links.html
+;; See:  http://anggtwu.net/find-yttranscript-links.html
 ;;
 (defun find-yttranscript-links (&optional c hash &rest pos-spec-list)
 "Display a temporary script that downloads a transcript from youtube."
@@ -3532,7 +3532,7 @@ print(trits1)
 ;; Skel: (find-find-links-links-new "importlib" "pkg" "pkg_")
 ;; Tests: (find-importlib-links)
 ;;        (find-importlib-links "requests")
-;; See:   http://angg.twu.net/find-yttranscript-links.html
+;; See:   http://anggtwu.net/find-yttranscript-links.html
 ;;
 (defun find-importlib-links (&optional pkg &rest pos-spec-list)
 "Visit a temporary buffer containing hyperlinks for importlib."
@@ -3575,7 +3575,7 @@ md['Home-Page']
 ;; Skel: (find-find-links-links-new "pypi" "pkg" "pkg_")
 ;; Test: (find-pypi-links)
 ;;       (find-pypi-links "requests")
-;; See:  http://angg.twu.net/find-yttranscript-links.html
+;; See:  http://anggtwu.net/find-yttranscript-links.html
 ;;
 (defun find-pypi-links (&optional pkg &rest pos-spec-list)
 "Visit a temporary buffer containing hyperlinks for pypi."
@@ -3890,7 +3890,7 @@ N should be either a number or a symbol; SEXP should be a 
sexp."
 ;;       modifying it to adjust the options and their values.
 
 ;; From: (find-mpv-links)
-;; See:  http://angg.twu.net/eev-videos.html#smaller-fullscreen
+;; See:  http://anggtwu.net/eev-videos.html#smaller-fullscreen
 
 (defun mf ()
   \"Make mpv use (real) full screen.\"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]