[elpa] externals/eev 7b8924c 04/10: make `find-pdf-page' use texworks on M$ Windows.

[Stefan Monnier]

branch: externals/eev
commit 7b8924cf55af1d84dc52838818b6c89ef5ef9ab9
Author: Eduardo Ochs <address@hidden>
Commit: Eduardo Ochs <address@hidden>

    make `find-pdf-page' use texworks on M$ Windows.
---
 ChangeLog      |  5 +++++
 VERSION        |  4 ++--
 eev-intro.el   | 51 ++++++++++++++++++++++++++-------------------------
 eev-pdflike.el | 22 ++++++++++++++++++----
 4 files changed, 51 insertions(+), 31 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 7f24beb..5c7b54e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2019-06-22  Eduardo Ochs  <address@hidden>
+
+       * eev-pdflike.el: make `find-pdf-page' use texworks on M$ Windows.
+       (ee-pdftotext-program, ee-texworks-program): new variables.
+
 2019-06-21  Eduardo Ochs  <address@hidden>
 
        * eev-intro.el (find-here-links-intro): new function.
diff --git a/VERSION b/VERSION
index c403e5a..e42a525 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sat Jun 22 02:28:05 GMT 2019
-Fri Jun 21 23:28:05 -03 2019
+Sat Jun 22 17:58:52 GMT 2019
+Sat Jun 22 14:58:52 -03 2019
diff --git a/eev-intro.el b/eev-intro.el
index a02bd3e..4993e03 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2019jun21
+;; Version:    2019jun22
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-intro.el>
@@ -2252,47 +2252,48 @@ recommended reading order. These are the basic ones:
    1. (find-emacs-keys-intro)
    2. (find-eev-intro)
    3. (find-eev-install-intro)
+   4. (find-here-links-intro)
+   5. (find-refining-intro)
 
 These ones explain ideas, conventions, and usage patterns:
 
-   4. (find-escripts-intro)
-   5. (find-links-conv-intro)
-   6. (find-refining-intro)
+   6. (find-escripts-intro)
+   7. (find-links-conv-intro)
 
 These are older and more technical versions of sections of the
 eev-quick-intro:
 
-   7. (find-eval-intro)
-   8. (find-links-intro)
-   9. (find-brxxx-intro)
-  10. (find-eepitch-intro)
-  11. (find-wrap-intro)
-  12. (find-eejump-intro)
-  13. (find-anchors-intro)
-  14. (find-code-c-d-intro)
-  15. (find-pdf-like-intro)
-  16. (find-psne-intro)
+   8. (find-eval-intro)
+   9. (find-links-intro)
+  10. (find-brxxx-intro)
+  11. (find-eepitch-intro)
+  12. (find-wrap-intro)
+  13. (find-eejump-intro)
+  14. (find-anchors-intro)
+  15. (find-code-c-d-intro)
+  16. (find-pdf-like-intro)
+  17. (find-psne-intro)
 
 These are etcs:
 
-  17. (find-multiwindow-intro)
-  18. (find-audiovideo-intro)
-  19. (find-rcirc-intro)
-  20. (find-templates-intro)
-  21. (find-videos-intro)
+  18. (find-multiwindow-intro)
+  19. (find-audiovideo-intro)
+  20. (find-rcirc-intro)
+  21. (find-templates-intro)
+  22. (find-videos-intro)
 
 These ones explain advanced features that require extra setup:
 
-  22. (find-prepared-intro)
-  23. (find-bounded-intro)
-  24. (find-channels-intro)
+  23. (find-prepared-intro)
+  24. (find-bounded-intro)
+  25. (find-channels-intro)
 
 These ones are obsolete:
 
-  25. (find-emacs-intro)
-  26. (find-defun-intro)
+  26. (find-emacs-intro)
+  27. (find-defun-intro)
 
-Item 20 is an index of the (old) video tutorials, with scripts
+Item 22 is an index of the (old) video tutorials, with scripts
 for downloading local copies of them and links to important
 positions in the videos.
 
diff --git a/eev-pdflike.el b/eev-pdflike.el
index 5927c5b..3229f5a 100644
--- a/eev-pdflike.el
+++ b/eev-pdflike.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2019mar10
+;; Version:    2019jun22
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-pdflike.el>
@@ -131,6 +131,7 @@
 ;; «.find-djvutxt-text»                        (to "find-djvutxt-text")
 ;;
 ;; «.aliases»                          (to "aliases")
+;; «.aliases-windows»                  (to "aliases-windows")
 ;; «.code-brxxxs»                      (to "code-brxxxs")
 
 
@@ -343,11 +344,13 @@ newline are spurious - and replaces them by \"(ff)\"."
 ;; (defun ee-find-pdftotext-text (fname)
 ;;   (format "pdftotext -layout -enc Latin1 '%s' -" (ee-expand fname)))
 
+(defvar ee-pdftotext-program "pdftotext")
+
 (defun ee-find-pdf-text (fname)
-  `("pdftotext" "-layout" "-enc" "Latin1" ,(ee-expand fname) "-"))
+  `(ee-pdftotext-program "-layout" "-enc" "Latin1" ,(ee-expand fname) "-"))
 
 (defun ee-find-pdftotext-text (fname)
-  `("pdftotext" "-layout" "-enc" "Latin1" ,(ee-expand fname) "-"))
+  `(ee-pdftotext-program "-layout" "-enc" "Latin1" ,(ee-expand fname) "-"))
 
 
 
@@ -371,8 +374,10 @@ newline are spurious - and replaces them by \"(ff)\"."
 ;; (find-code-xxxpdf-family "texworkspdf-page")
         (code-xxxpdf-family "texworkspdf-page")
 
+(defvar ee-texworks-program "texworks")
+
 (defun  ee-find-texworkspdf-page (fname &optional page)
-  `("texworks"
+  `(ee-texworks-program
     ,@(if page `(,(format "--position=%d" page)))
     ,fname
     ))
@@ -510,6 +515,15 @@ may want to put here code that cleans up that page 
information.")
 ;; (find-code-xxxpdf-alias "evince"     "evince-page")
 
 
+
+;; «aliases-windows»  (to ".aliases-windows")
+;; (find-elnode "System Environment")
+;; (find-evardescr 'system-type)
+(if (eq system-type 'windows-nt)
+    (code-xxxpdf-alias "pdf-page" "texworkspdf-page"))
+
+
+
 ;; «code-brxxxs» (to ".code-brxxxs")
 
 (code-brfile 'find-pdf-text    :local 'brpdftextl  :dired 'brpdftextd)