[elpa] externals/eev 70964f1 20/64: Add `find-eev-install-intro' and `find-eev-install-links'

[Stefan Monnier]

branch: externals/eev
commit 70964f1155e8542609a29ab916145a67b4b94c33
Author: Eduardo Ochs <address@hidden>
Commit: Eduardo Ochs <address@hidden>

    Add `find-eev-install-intro' and `find-eev-install-links'
---
 ChangeLog     |   6 ++++
 VERSION       |   4 +--
 eev-intro.el  |  84 ++++++++++++++++++++++++++++++++++++++++++++++-
 eev-tlinks.el | 102 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++--
 4 files changed, 190 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f29d870..78b1899 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -4,6 +4,12 @@
        eev-multiwindow.el; added a "(require 'eev-multiwindow)" to the
        beginning of the file.
 
+       * eev-tlinks.el (find-intro-links): small changes in the template.
+
+       * eev-intro.el (find-eev-install-intro): new function.
+
+       * eev-tlinks.el (find-eev-install-links): new function.
+
 2018-05-28  Eduardo Ochs  <address@hidden>
 
        * eev-rcirc.el (find-rcirc-buffer): make the argument ACHANNELS
diff --git a/VERSION b/VERSION
index bee9842..a76f2a8 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Qua Mai 16 04:40:40 GMT 2018
-Qua Mai 16 01:40:40 -03 2018
+Qui Mai 31 03:39:45 GMT 2018
+Qui Mai 31 00:39:45 -03 2018
diff --git a/eev-intro.el b/eev-intro.el
index 7c913e6..a717c6b 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -20,7 +20,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2018mai24
+;; Version:    2018mai31
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-intro.el>
@@ -97,6 +97,7 @@ Only works for \"(defun find-xxx-intro ...)s\"."
 ;; �.find-emacs-intro�         (to "find-emacs-intro")
 ;; �.find-org-intro�           (to "find-org-intro")
 ;; �.find-eev-quick-intro�     (to "find-eev-quick-intro")
+;; �.find-eev-install-intro�   (to "find-eev-install-intro")
 ;; �.find-escripts-intro�      (to "find-escripts-intro")
 
 ;; See: (find-anchors-intro)
@@ -5917,6 +5918,10 @@ This tutorial is intented to make you learn the most 
essential things
 in the first ten minutes - including how to navigate in Emacs's
 manuals.
 
+For more on ways to install eev see:
+
+  (find-eev-install-intro)
+
 
 
 
@@ -6692,6 +6697,83 @@ file. The use of these \"e-script blocks\" is explained 
bere:
 
 
 
+;;;  _           _        _ _ 
+;;; (_)_ __  ___| |_ __ _| | |
+;;; | | '_ \/ __| __/ _` | | |
+;;; | | | | \__ \ || (_| | | |
+;;; |_|_| |_|___/\__\__,_|_|_|
+;;;                           
+
+;; �find-eev-install-intro� (to ".find-eev-install-intro")
+;; (find-intro-links "eev-install")
+
+(defun find-eev-install-intro (&rest pos-spec-list) (interactive)
+  (let ((ee-buffer-name "*(find-eev-install-intro)*"))
+    (apply 'find-estring "\
+\(Re)generate: (find-eev-install-intro)
+Source code:  (find-efunction 'find-eev-install-intro)
+More intros:  (find-eev-quick-intro)
+              (find-eval-intro)
+              (find-eepitch-intro)
+This buffer is _temporary_ and _editable_.
+Is is meant as both a tutorial and a sandbox.
+
+
+
+The \"quick introduction to eev\" describes a way to install eev
+for tests that does not make any permanent changes in your HD -
+everything gets installed in the /tmp/ directory, that is cleared
+at every boot. Here we describe several ways to install eev in
+other, more permanent, places.
+
+
+
+1. Running `(find-eev-install-links)'
+=====================================
+The shell commands in
+
+  (find-eev-quick-intro \"1. Installing eev\")
+
+can be obtained by running 
+
+  (find-eev-install-links)
+
+with these arguments:
+
+  (find-eev-install-links \"/tmp/eev2/\" \"/tmp/eev\")
+
+Note that `(find-eev-install-links)' is somehow similar to this,
+
+  (find-eev-quick-intro \"7.3. `find-latex-links'\")
+
+and follows most of the same conventions.
+
+If you want to install eev in a more permanent place the default
+way is to run `(find-eev-install-links)' with these arguments,
+
+  (find-eev-install-links \"~/eev2/\" \"~/eev\" \"#\")
+
+and execute its eepitch block.
+
+
+
+
+2. Changing your .emacs
+=======================
+
+\(To be written)
+
+" pos-spec-list)))
+
+;; (find-eev-install-intro)
+
+;; (find-eev "eev-tlinks.el" "find-eev-update-links")
+;; (find-eev "eev-tlinks.el" "find-eev-install-links")
+;; (find-eev-update-links)
+
+
+
+
 ;;;                           _       _       
 ;;;   ___       ___  ___ _ __(_)_ __ | |_ ___ 
 ;;;  / _ \_____/ __|/ __| '__| | '_ \| __/ __|
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 42931c1..a4f7f85 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -1,6 +1,6 @@
 ;;; eev-tlinks.el --- hyperlinks to temporary buffers generated by templates
 
-;; Copyright (C) 2013,2014,2016,2017 Free Software Foundation, Inc.
+;; Copyright (C) 2013,2014,2016,2017,2018 Free Software Foundation, Inc.
 ;;
 ;; This file is (not yet?) part of GNU eev.
 ;;
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2017set27
+;; Version:    2018mai31
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -47,6 +47,7 @@
 ;; �.find-eev-header-links�    (to "find-eev-header-links")
 ;;
 ;; �.find-debpkg-links�                (to "find-debpkg-links")
+;; �.find-eev-install-links�   (to "find-eev-install-links")
 ;; �.find-eev-update-links�    (to "find-eev-update-links")
 ;; �.find-newhost-links�       (to "find-newhost-links")
 ;; �.find-dhmake-links�                (to "find-dhmake-links")
@@ -216,7 +217,7 @@ See: (find-eev \"eev-intro.el\")"
     (apply 'find-estring \"\\
 \\(Re)generate: (find-{stem}-intro)
 Source code:  (find-efunction 'find-{stem}-intro)
-More intros:  (find-eev-intro)
+More intros:  (find-eev-quick-intro)
               (find-eval-intro)
               (find-eepitch-intro)
 This buffer is _temporary_ and _editable_.
@@ -521,6 +522,101 @@ sudo dpkg -i *.deb
 
 
 
+;;;                       _           _        _ _ 
+;;;   ___  _____   __    (_)_ __  ___| |_ __ _| | |
+;;;  / _ \/ _ \ \ / /____| | '_ \/ __| __/ _` | | |
+;;; |  __/  __/\ V /_____| | | | \__ \ || (_| | | |
+;;;  \___|\___| \_/      |_|_| |_|___/\__\__,_|_|_|
+;;;                                                
+
+;; �find-eev-install-links� (to ".find-eev-install-links")
+;; (find-find-links-links "{k}" "eev-install" "dir script comment")
+;; A test: (find-eev-install-links)
+
+(defun find-eev-install-links (&optional dir script comment &rest 
pos-spec-list)
+"Visit a temporary buffer containing hyperlinks for foo."
+  (interactive)
+  (setq dir (or dir "{dir}"))
+  (setq script (or script "{script}"))
+  (setq comment (or comment "{comment}"))
+  (apply 'find-elinks
+   `((find-eev-install-links ,dir ,script ,comment ,@pos-spec-list)
+     (find-eev-install-links "/tmp/eev2/" "/tmp/eev" "#")
+     (find-eev-install-links "/tmp/eev2/" "/tmp/eev")
+     (find-eev-install-links "~/eev2/" "~/eev" "#")
+     (find-eev-install-links "~/eev2/" "~/eev")
+     (find-eev-install-links)
+     ;; Convention: the first sexp always regenerates the buffer.
+     (find-efunction 'find-eev-install-links)
+     ""
+     (find-eev-install-intro)
+     ""
+     ,(ee-template0 "\
+# This function is explained at:
+#   (find-eev-install-intro \"1. Running `(find-eev-install-links)'\")
+#
+# The default way to use it to install eev in /tmp/ for tests is with:
+#   (find-eev-install-links \"/tmp/eev2/\" \"/tmp/eev\" \"#\")
+#
+# The default way to use it to install eev in your home directory is with:
+#   (find-eev-install-links \"~/eev2/\" \"~/eev\" \"#\")
+
+
+
+# The script below downloads eev2.tgz and unpacks it into {dir}
+# and creates a shell script {script}
+# that can be used to start emacs+eev.
+
+ (eepitch-shell)
+ (eepitch-kill)
+ (eepitch-shell)
+{comment}{<}
+  rm -Rv {script}
+  rm -Rv {dir}
+  mkdir  {dir}
+  cd     {dir}
+  rm -v eev2.tgz
+  wget http://angg.twu.net/eev-current/eev2.tgz
+  tar -xvzf eev2.tgz
+  {<}
+    echo '#!/bin/sh'
+    echo 'cd {dir} && emacs -l eev-readme.el --eval=\"(find-eev-quick-intro)\"'
+  {>} > {script}
+  chmod 755 {script}
+{comment}{>}
+
+# Test:
+{script}
+
+
+
+;; If you have unpacked eev2.tgz into some permanent place you can
+;; put this is your .emacs to load eev when Emacs starts. Don't
+;; copy this to your .emacs if either 1) you have only unpacked
+;; eev in /tmp/, or 2) if you don't know how to use Lisp well
+;; enough!
+;;
+;; See: (find-eev-install-intro \"2. Changing your .emacs\")
+
+;; (ee-copy-rest 0 '(find-fline \"~/.emacs\"))
+
+;; Load eev.
+;; Generated by: (find-eev-install-links \"{dir}\" \"{script}\" \"{comment}\")
+;;        Check: (find-fline \"{dir}\")
+;;          See: (find-eev-install-intro \"2. Changing your .emacs\")
+;;
+\(add-to-list 'load-path \"{dir}\")
+\(require 'eev2-all)                 ; (find-eev \"eev2-all.el\")
+\(eev-mode 1)                        ; (find-eev \"eev-mode.el\")
+
+")
+     )
+   pos-spec-list))
+
+;; A test: (find-eev-install-links)
+;;         (find-eev-install-links "~/eev2/" "~/eev" "#" 60)
+
+
 ;;;                                       _       _       
 ;;;   ___  _____   __     _   _ _ __   __| | __ _| |_ ___ 
 ;;;  / _ \/ _ \ \ / /____| | | | '_ \ / _` |/ _` | __/ _ \