Warning: this is an htmlized version!
The original is here, and
the conversion rules are here.
;; eev-on-windows.el - some support for M$ Windows.  -*- lexical-binding: nil; -*-

;; Copyright (C) 2019,2021 Free Software Foundation, Inc.
;;
;; This file is part of GNU eev.
;;
;; GNU eev is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;;
;; GNU eev is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
;;
;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
;; Version:    20220416
;; Keywords:   e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-on-windows.el>
;;       htmlized: <http://angg.twu.net/eev-current/eev-on-windows.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)

;; «.how-to-test-this»			(to "how-to-test-this")
;; «.requires»				(to "requires")
;; «.ee-download-with-eww»		(to "ee-download-with-eww")
;; «.eshell»				(to "eshell")
;;   «.ee-use-eshell»			(to "ee-use-eshell")
;;   «.ee-use-shell»			(to "ee-use-shell")
;; «.lua»				(to "lua")
;;   «.ee-use-lua»			(to "ee-use-lua")
;;   «.ee-use-lua-exe»			(to "ee-use-lua-exe")
;; «.wget»				(to "wget")
;;   «.ee-use-wget-exe»			(to "ee-use-wget-exe")
;;   «.ee-use-wget»			(to "ee-use-wget")
;; «.ee-use-firefox»			(to "ee-use-firefox")
;; «.ee-use-googlechrome»		(to "ee-use-googlechrome")
;; «.red-stars»				(to "red-stars")
;;   «.ee-use-bullets»			(to "ee-use-bullets")
;;   «.ee-use-red-stars»		(to "ee-use-red-stars")
;; «.find-angg-es»			(to "find-angg-es")
;;   «.ee-use-find-angg-es-remote»	(to "ee-use-find-angg-es-remote")
;;   «.ee-use-find-angg-es-local»	(to "ee-use-find-angg-es-local")
;; «.high-level»			(to "high-level")
;;   «.ee-use-windows»			(to "ee-use-windows")
;;   «.ee-use-gnu-linux»		(to "ee-use-gnu-linux")
;;   «.ee-use-gnu-linux-but-simulate»	(to "ee-use-gnu-linux-but-simulate")
;; «.directories»			(to "directories")
;; «.basic-tests»			(to "basic-tests")




;;; Commentary:
;;
;; Long short short: this is obsolete.
;;
;; Long story medium-sized: In 2021 I found some Windows users who
;; were interested in learning Emacs and eev, and I wrote this to try
;; to make configuring eev on Windows easier. See:
;;
;;   http://angg.twu.net/2021-2022-workshops.html
;;   (find-windows-beginner-intro)
;;
;; In april/2022 I started to work on a different approach for
;; configuring eev on Windows, and I declared that this file had
;; become obsolete. The new approach is here:
;;
;;   (find-eev "eev-wconfig.el")
;;   http://angg.twu.net/eev-customize.html
;;
;; Long story long: read the rest of this file (warning: old stuff!).


;; I wrote this for some Experimental, undocumented, and messy. Every
;; time that I give a workshop to Windows users this file changes a
;; lot. Most of what was here in the last revision was rewritten in a
;; more human-readable form and placed in:
;;
;;   (find-windows-beginner-intro)


;; «how-to-test-this»  (to ".how-to-test-this")
;;
;; THIS BLOCK IS BEING REWRITTEN AND IS CURRENTLY A MESS.
;; Most of the docs and tests were moved to:
;;
;;   (find-windows-beginner-intro)
;;
;; 0.1. How to test this
;; =====================
;;
;;      (require 'eev-on-windows)
;;      (ee-use-windows)
;;      (to "directories")
;;
;; The sexp `(to ...)' will take you to the two last sections of this
;; file, where there are instructions for configuring some directories
;; and s series of tests.
;;
;;
;; 0.2. Setting your ~/.emacs
;; ==========================
;; If you are helping me to test this AND you know how to edit your
;; ~/.emacs (hey Daniel Bastos! Daniel Tavares and Julha, please
;; ignore this!) then this is what you should put there:
;;
;;   ;; See: (find-eevfile "eev-on-windows.el" ".emacs")
;;   (require 'eev-beginner)
;;   (require 'eev-on-windows)
;;   (ee-use-windows)
;;   (setenv "FIREFOXDIR"      "c:/Program Files/Mozilla Firefox")
;;   (setenv "GOOGLECHROMEDIR" "c:/Program Files/Google/Chrome/Application")
;;   (setenv "MPVDIR"          "c:/Users/danie/OneDrive/Documentos/mpv")
;;   ;; Tests: (find-eev "eev-on-windows.el" "directories")
;;
;; Note that "(require 'eev-on-windows)" runs some setenvs. The
;; setenvs above, that will override the ones in eev-on-windows.el
;; with the paths that are correct in your machine, MUST come AFTER
;; the "(require 'eev-on-windows)".



;; «requires»  (to ".requires")
;;
(require 'eww)
(require 'eshell)
(require 'em-alias)



;;;                          
;;;   _____      ____      __
;;;  / _ \ \ /\ / /\ \ /\ / /
;;; |  __/\ V  V /  \ V  V / 
;;;  \___| \_/\_/    \_/\_/  
;;;                          
;; «ee-download-with-eww»  (to ".ee-download-with-eww")
;; See: (find-windows-beginner-intro "7. eev-on-windows.el")
;;      (find-node "(eww)Top")
;; Test with:
;;   (mkdir "~/bin/" t)
;;   (delete-file "~/bin/wget.exe")
;;   (ee-download-with-eww "http://angg.twu.net/2021-oficina/wget.exe" "~/bin/")
;;
(defun ee-download-with-eww (url dir)
  (url-retrieve url #'eww-download-callback (list url dir)))



;;;  _____     _          _ _ 
;;; | ____|___| |__   ___| | |
;;; |  _| / __| '_ \ / _ \ | |
;;; | |___\__ \ | | |  __/ | |
;;; |_____|___/_| |_|\___|_|_|
;;;                           
;; «eshell»  (to ".eshell")

;; «ee-use-eshell»  (to ".ee-use-eshell")
;; Redefine `eepitch-shell' and `eepitch-shell2' to make them use
;; Eshell instead of the default shell.
;; See: (find-windows-beginner-intro "5.6. Eshell")
;;      (find-windows-beginner-intro "7.1. `ee-use-windows'")
;;
(defun ee-use-eshell ()
  (interactive)
  (defun eepitch-shell  () (interactive) (eepitch-eshell))
  (defun eepitch-shell2 () (interactive) (eepitch-eshell2))
  )

;; «ee-use-shell»  (to ".ee-use-shell")
;; Redefine `eepitch-shell' and `eepitch-shell2' with their default
;; definitions. Running this cancels the effect of `ee-use-eshell'.
;; See: (find-eev "eepitch.el" "eepitch-shell")
;;
(defun ee-use-shell ()
  (interactive)
  (defun eepitch-shell  () (interactive) (eepitch '(shell)))
  (defun eepitch-shell2 () (interactive) (eepitch '(shell "*shell 2*")))
  )



;;;                     _   
;;; __      ____ _  ___| |_ 
;;; \ \ /\ / / _` |/ _ \ __|
;;;  \ V  V / (_| |  __/ |_ 
;;;   \_/\_/ \__, |\___|\__|
;;;          |___/          
;;
;; «wget»  (to ".wget")
;; These functions configure what wget to use: on GNU/Linux we use the
;; wget that is on the $PATH, and on M$ Windows we use ~/bin/wget.exe.
;;
;; *** BIG WARNING: ***
;; These functions DELETE your eshell-aliases-file and create a new
;; one with a single alias inside!!! See:
;;   (find-node "(eshell)Aliases" "eshell-aliases-file")

;; «ee-use-wget-exe»  (to ".ee-use-wget-exe")
(defun ee-use-wget-exe ()
  (interactive)
  (delete-file eshell-aliases-file)
  (eshell/alias "wget"  "~/bin/wget.exe $*")
  (setq ee-wget-program "~/bin/wget.exe"))

;; «ee-use-wget»  (to ".ee-use-wget")
(defun ee-use-wget ()
  (interactive)
  (delete-file eshell-aliases-file)
  (eshell/alias "wget"  "wget $*")
  (setq ee-wget-program "wget"))


;;;  _____ _           __           
;;; |  ___(_)_ __ ___ / _| _____  __
;;; | |_  | | '__/ _ \ |_ / _ \ \/ /
;;; |  _| | | | |  __/  _| (_) >  < 
;;; |_|   |_|_|  \___|_|  \___/_/\_\
;;;                                 
;; «ee-use-firefox»  (to ".ee-use-firefox")
(defun ee-use-firefox ()
  (interactive)
  (setq ee-find-youtube-video-program 'find-firefox)
  (defalias 'find-pdf-page 'find-firefox-page))

;; «ee-use-googlechrome»  (to ".ee-use-googlechrome")
(defun ee-use-googlechrome ()
  (interactive)
  (setq ee-find-youtube-video-program 'find-googlechrome)
  (defalias 'find-pdf-page 'find-googlechrome-page))




;;;  ____          _       _                 
;;; |  _ \ ___  __| |  ___| |_ __ _ _ __ ___ 
;;; | |_) / _ \/ _` | / __| __/ _` | '__/ __|
;;; |  _ <  __/ (_| | \__ \ || (_| | |  \__ \
;;; |_| \_\___|\__,_| |___/\__\__,_|_|  |___/
;;;                                          
;; «red-stars»  (to ".red-stars")
;; In workshops for beginners I prefer to make them use red bullets
;; instead of red stars because the red bullets don't get corrupted
;; when pasted to Telegram of Gmail. See:
;;   (find-eev-quick-intro "6.4. Red stars")
;;   (find-red-star-links)

;; «ee-use-bullets»  (to ".ee-use-bullets")
;; From: (find-red-star-links 2 "red bullets by default")
;;
(defun ee-use-bullets ()
  (interactive)
  (eepitch-set-glyph0 ? ? 'eepitch-star-face)
  (defun ee-adjust-red-stars (str) (replace-regexp-in-string "*" "" str)))

;; «ee-use-red-stars»  (to ".ee-use-red-stars")
(defun ee-use-red-stars ()
  (interactive)
  (defun ee-adjust-red-stars (str) str))


;;;   __ _           _                                  __        
;;;  / _(_)_ __   __| |       __ _ _ __   __ _  __ _   / /__  ___ 
;;; | |_| | '_ \ / _` |_____ / _` | '_ \ / _` |/ _` | / / _ \/ __|
;;; |  _| | | | | (_| |_____| (_| | | | | (_| | (_| |/ /  __/\__ \
;;; |_| |_|_| |_|\__,_|      \__,_|_| |_|\__, |\__, /_/ \___||___/
;;;                                      |___/ |___/              
;;
;; «find-angg-es»  (to ".find-angg-es")
;; See: (find-angg-es-links)

;; «ee-use-find-angg-es-local»  (to ".ee-use-find-angg-es-local")
(defun ee-use-find-angg-es-local ()
  (interactive)
  (code-c-d "angg" "~/" :anchor :grep)
  (code-c-d "es"   "$ES/")
  (defun find-es (stem &rest rest)
    (apply 'find-anchor (ee-esfile (concat stem ".e")) rest))
  )

;; «ee-use-find-angg-es-remote»  (to ".ee-use-find-angg-es-remote")
(defun ee-use-find-angg-es-remote ()
  (interactive)
  (defun find-angg (fname &rest rest)
    (apply 'find-wgeta (format "http://angg.twu.net/%s" fname) rest))
  (defun find-es (fname &rest rest)
    (apply 'find-wgeta (format "http://angg.twu.net/e/%s.e" fname) rest))
  )




;;;  _                
;;; | |   _   _  __ _ 
;;; | |  | | | |/ _` |
;;; | |__| |_| | (_| |
;;; |_____\__,_|\__,_|
;;;                   
;; «lua»  (to ".lua")

;; «ee-use-lua»  (to ".ee-use-lua")
(defun ee-use-lua ()
  (interactive)
  (defun eepitch-lua51 () (interactive) (eepitch-comint "lua51" "lua5.1"))
  (defun eepitch-lua51 () (interactive) (eepitch-comint "lua52" "lua5.2"))
  )

;; «ee-use-lua-exe»  (to ".ee-use-lua-exe")
(defun ee-use-lua-exe ()
  (interactive)
  (defun eepitch-lua51 () (interactive) (eepitch-comint "lua52.exe" "~/bin/lua52.exe -i"))
  (defun eepitch-lua52 () (interactive) (eepitch-comint "lua52.exe" "~/bin/lua52.exe -i"))
  )




;;;  _   _ _       _           _                _ 
;;; | | | (_) __ _| |__       | | _____   _____| |
;;; | |_| | |/ _` | '_ \ _____| |/ _ \ \ / / _ \ |
;;; |  _  | | (_| | | | |_____| |  __/\ V /  __/ |
;;; |_| |_|_|\__, |_| |_|     |_|\___| \_/ \___|_|
;;;          |___/                                
;;
;; «high-level»  (to ".high-level")
;; High-level configuration functions that run many low-level configs.
;; See: (find-windows-beginner-intro "7.1. `ee-use-windows'")
;;
;; «ee-use-windows»  (to ".ee-use-windows")
;; «ee-use-gnu-linux»  (to ".ee-use-gnu-linux")
;; «ee-use-gnu-linux-but-simulate»  (to ".ee-use-gnu-linux-but-simulate")
;;
(defun ee-use-windows ()
  (interactive)
  (ee-use-bullets)
  (ee-use-eshell)
  (ee-use-wget-exe)
  (ee-use-lua-exe)
  (setq ee-pdftotext-program    "~/bin/pdftotext.exe")
  (setq ee-firefox-program      "$FIREFOXDIR/firefox.exe")
  (setq ee-googlechrome-program "$GOOGLECHROMEDIR/chrome.exe")
  (setq ee-mpv-program          "$MPVDIR/mpv.exe")
  (ee-use-find-angg-es-remote)
  (ee-use-googlechrome)
  (ee-use-youtube-videos)
  )

;; This sort of reverts what `ee-use-windows' does.
;;
(defun ee-use-gnu-linux ()
  (interactive)
  (ee-use-red-stars)
  (ee-use-shell)
  (ee-use-wget)
  (ee-use-lua)
  (setq ee-pdftotext-program    "pdftotext")
  (setq ee-firefox-program      "firefox")
  (setq ee-googlechrome-program "google-chrome")
  (setq ee-mpv-program          "mpv")
  (ee-use-find-angg-es-local)
  (ee-use-googlechrome)
  (defalias 'find-pdf-page 'find-xpdf-page)
  (ee-use-local-videos)
  )

;; I use this to make the Emacs in my Debian box behave similarly to
;; an Emacs on M$ Windows after running `ee-use-windows'. "Similarly"
;; here means "similarly enough to let me test most of the settings
;; of `ee-use-windows' and record demos".
;;
(defun ee-use-gnu-linux-but-simulate ()
  (interactive)
  (ee-use-bullets)
  (ee-use-eshell)
  (ee-use-wget)
  (ee-use-lua)
  (setq ee-pdftotext-program    "pdftotext")
  (setq ee-firefox-program      "firefox")
  (setq ee-googlechrome-program "google-chrome")
  (setq ee-mpv-program          "mpv")
  (ee-use-find-angg-es-remote)
  (ee-use-googlechrome)
  (ee-use-youtube-videos)
  )




;; «directories»  (to ".directories")
;; From the internets:
;;
;;  "If you can start a Mozilla application by using a shortcut or
;;   launcher icon, then you can usually see where its installation
;;   directory is located by context-clicking (right-clicking) the
;;   icon and looking at the properties."
;;
;; Apparently you'll have to do this by hand for Firefox, Chrome, and
;; Mpv - I couldn't find a way to automate this... =/
;;
;; Most people will have to configure this.
;;
;; These directories are for Daniel Almeida's machine.
(setenv "FIREFOXDIR"      "c:/Program Files/Mozilla Firefox")
(setenv "GOOGLECHROMEDIR" "c:/Program Files/Google/Chrome/Application")
(setenv "MPVDIR"          "c:/Users/danie/OneDrive/Documentos/mpv")
;;
;; Julha needs to run this:
;; (setenv "FIREFOXDIR"      "c:/Program Files/Mozilla Firefox")
;; (setenv "MPVDIR"          "c:/Users/User/Desktop")
;; (defalias 'find-pdf-page 'find-firefox-page)



;; «basic-tests»  (to ".basic-tests")
;; 1. Basic tests
;; ==============
;;   (find-fline         "~/bin/"            "wget.exe")
;;   (find-fline         "~/bin/"            "pdftotext.exe")
;;   (find-fline         "$GOOGLECHROMEDIR/" "chrome.exe")
;;   (find-fline         "$FIREFOXDIR/"      "firefox.exe")
;;   (find-fline         "$MPVDIR/"          "mpv.exe")
;;   (find-callprocess `("~/bin/wget.exe"              "--help"))
;;   (find-callprocess `("~/bin/pdftotext.exe"         "--help"))
;;   (find-callprocess `("$GOOGLECHROMEDIR/chrome.exe" "--help"))
;;   (find-callprocess `("$FIREFOXDIR/firefox.exe"     "--help"))
;;   (find-callprocess `("$MPVDIR/mpv.exe"             "--help"))
;;   (find-callprocess `(,ee-wget-program              "--help"))
;;   (find-callprocess `(,ee-pdftotext-program         "--help"))
;;   (find-callprocess `(,ee-googlechrome-program      "--help"))
;;   (find-callprocess `(,ee-firefox-program           "--help"))
;;   (find-callprocess `(,ee-mpv-program               "--help"))
;;   (find-wget "http://angg.twu.net/eev-current/eev-on-windows.el")
;;                       (find-angg "eev-current/eev-on-windows.el")
;;                       (find-es "2021-oficina" "M-3-M-e")
;;
;;   KNOWN BUG: the "--help" option doesn't work on chrome in Windows.
;;
;; 1.1. Test `M-x brff' and `M-x brg'
;; ----------------------------------
;; Check if the tests in this section of the main tutorial work:
;;   (find-eev-quick-intro "3.1. Non-elisp hyperlinks")
;;
;;
;; 2. Tests for using the browser as a PDF viewer
;; ==============================================
;; For the tests for using browsers as PDF viewers you will need to
;; understand these sections of the tutorials, and will need to run
;; some of the commands in them:
;;   (find-psne-intro "1. Local copies of files from the internet")
;;   (find-psne-intro "3. The new way: `M-x brep'")
;;   (find-pdf-like-intro "2. Preparation")
;;   (find-pdf-like-intro "2. Preparation" "Coetzee99")
;;
;; Then try:
;;   (find-googlechrome-page "~/Coetzee99.pdf" 3)
;;   (find-firefox-page      "~/Coetzee99.pdf" 3)
;;   (find-pdf-page          "~/Coetzee99.pdf" 3)
;;
;; You can select the browser to use for PDFs with these sexps:
;;   (defalias 'find-pdf-page 'find-googlechrome-page)
;;   (defalias 'find-pdf-page 'find-firefox-page)
;;
;;
;; 2.1. Test the short links to PDFs
;; ---------------------------------
;; The short links to PDFs are explained here:
;;   (find-pdf-like-intro "7. Shorter hyperlinks to PDF files")
;; Test:
;;   (code-pdf-page "livesofanimals" "~/Coetzee99.pdf")
;;   (find-livesofanimalspage (+ -110 127) "wrong thoughts")
;;
;; 3. Test the links to PDFs converted to text
;; ===========================================
;; The links to PDFs converted to text are explained here:
;;   (find-pdf-like-intro "3. Hyperlinks to PDF files")
;;   (find-pdf-like-intro "3. Hyperlinks to PDF files" "pdftotext")
;; Tests:
;;   (find-pdf-text                  "~/Coetzee99.pdf" 3)
;;   (code-pdf-text "livesofanimals" "~/Coetzee99.pdf")
;;   (find-livesofanimalstext (+ -110 127) "wrong thoughts")
;; Try also this:
;;   (find-extra-file-links "~/Coetzee99.pdf" "livesofanimals")
;;
;; 4. Test the links to videos
;; ===========================
;; The video links are explained here:
;;   (find-videos-intro "2. Short links to eev video tutorials")
;;   http://angg.twu.net/2021-video-links.html
;;
;; Basic tests for video links:
;;   (delete-file (ee-expand "$S/http/angg.twu.net/eev-videos/2021-test-blocks.mp4"))
;;   (brep                    "http://angg.twu.net/eev-videos/2021-test-blocks.mp4")
;;   (delete-file (ee-expand "$S/http/angg.twu.net/eev-videos/2021-test-blocks.mp4"))
;;   (find-video "$S/http/angg.twu.net/eev-videos/2021-test-blocks.mp4")
;;   (find-video "$S/http/angg.twu.net/eev-videos/2021-test-blocks.mp4" "2:33")
;;
;; Test the way to download a video that beginners usually meet first:
;;   (find-eevvideo-links "testbls" "2021-test-blocks" "fpsF_M55W4o")
;;
;; Test the short links to videos:
;;   (code-video "testblsvideo" "$S/http/angg.twu.net/eev-videos/2021-test-blocks.mp4")
;;   (find-testblsvideo)
;;   (find-testblsvideo "2:33")
;;   (find-angg ".emacs.videos" "testbls")





(provide 'eev-on-windows)





;; Local Variables:
;; coding:            utf-8-unix
;; no-byte-compile:   t
;; End: