|
Warning: this is an htmlized version!
The original is here, and the conversion rules are here. |
;; This file:
;; http://anggtwu.net/.emacs.local.aspi.html
;; http://anggtwu.net/.emacs.local.aspi
;; (find-angg ".emacs.local.aspi")
;; Author: Eduardo Ochs <[email protected]>
;;
;; This is a prettyfied copy of the ~/.emacs in aspi,
;; my laptop with Windows 10.
;; Version: 2024jan26
;;
;; See: (find-enode "Init File" "~/.emacs")
;;
;; (normal-mode)
;; (defun e () (interactive) (find-angg ".emacs.local.aspi"))
;; «.corwin» (to "corwin")
;; «.customize» (to "customize")
;; «.wconfig» (to "wconfig")
;; «.mpv» (to "mpv")
;; «.as-in-debian» (to "as-in-debian")
;; «.find-wget» (to "find-wget")
;; «.find-angg-es-links» (to "find-angg-es-links")
;; «.maxima» (to "maxima")
;; «corwin» (to ".corwin")
;; Instructions for installing Emacs 29 for Windows
;; using Corwin Brust's builds.
;;
;; https://www.reddit.com/r/emacs/comments/121r5cv/emacs_29_for_windows_snapshot_64a2b0d36fe/
;; Confirming. All the dependency DLLs look to be missing, AFICT. I'll
;; publish a new set shortly. If you like, you can resolve this locally
;; by unpacking the latest emacs-29-deps zip (download link) (from the
;; same folder on the alpha FTP site) into the bin folder extracted from
;; the "full" zip.
;;
;; https://alpha.gnu.org/gnu/emacs/pretest/windows/emacs-29/
;; https://alpha.gnu.org/gnu/emacs/pretest/windows/emacs-29/?C=M;O=A by date, oldest at the top
;; https://alpha.gnu.org/gnu/emacs/pretest/windows/emacs-29/?C=M;O=D by date, newest at the top
;; https://alpha.gnu.org/gnu/emacs/pretest/windows/emacs-29/emacs-29.1.90_1-installer.exe 2023-10-29
;; https://alpha.gnu.org/gnu/emacs/pretest/windows/emacs-29/emacs-29-deps-20230310.zip 2023-03-10
;;
;; Unpack the .exe in:
;; (find-fline "c:/Program Files/Emacs/")
;; (find-fline "c:/Program Files/Emacs/emacs-29.1.90/")
;; and the .zip in:
;; (find-fline "c:/Program Files/Emacs/emacs-29.1.90/bin/")
;; Create a shortcut to:
;; (find-fline "c:/Program Files/Emacs/emacs-29.1.90/bin/" "runemacs.exe")
;; and put it in the desktop.
(require 'eev-load)
(eev-mode 1)
;; See: (find-kl-here-intro)
;; (find-eev "eev-kl-here.el")
(require 'eev-kl-here)
;;; ____ _ _
;;; / ___| _ ___| |_ ___ _ __ ___ (_)_______
;;; | | | | | / __| __/ _ \| '_ ` _ \| |_ / _ \
;;; | |__| |_| \__ \ || (_) | | | | | | |/ / __/
;;; \____\__,_|___/\__\___/|_| |_| |_|_/___\___|
;;;
;; «customize» (to ".customize")
;; See: (find-enode "Saving Customizations")
;; (find-evardescr 'custom-file)
;; (find-evariable 'custom-file)
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(custom-enabled-themes nil)
'(package-selected-packages '(eev)))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(default ((t (:inherit nil :extend nil :stipple nil :background "black" :foreground "bisque" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight regular :height 80 :width normal :foundry "outline" :family "Lucida Console")))))
;;; __ __ __ _
;;; \ \ / /__ ___ _ __ / _(_) __ _
;;; \ \ /\ / / __/ _ \| '_ \| |_| |/ _` |
;;; \ V V / (_| (_) | | | | _| | (_| |
;;; \_/\_/ \___\___/|_| |_|_| |_|\__, |
;;; |___/
;; «wconfig» (to ".wconfig")
;; See: (find-eev "eev-load.el" "autoloads")
;; (find-eev "eev-wconfig.el" "intro")
;; (find-wconfig-browser-links)
(require 'eev-load)
(require 'eev-wconfig)
(setq ee-googlechrome-program
"c:/Program Files/Google/Chrome/Application/chrome.exe")
;; See: (find-wconfig-wget-links)
(setq ee-wget-program "~/eev-wconfig/wget.exe")
(setq ee-pdftotext-program "~/eev-wconfig/pdftotext.exe")
(defalias 'find-pdf-page 'find-googlechrome-page)
;; See: (find-wconfig-shell-links)
(defun eepitch-shell () (interactive) (eepitch-eshell))
(defun eepitch-shell2 () (interactive) (eepitch-eshell2))
(defun eepitch-shell3 () (interactive) (eepitch-eshell3))
(defun ee-find-psne-echo-options () "-N")
;; See: (find-wconfig-lua-links)
(defun eepitch-lua51 () (interactive)
(eepitch-comint "lua52.exe" "~/eev-wconfig/lua52.exe -i"))
(defun eepitch-lua52 () (interactive)
(eepitch-comint "lua52.exe" "~/eev-wconfig/lua52.exe -i"))
(defun eepitch-lua53 () (interactive)
(eepitch-comint "lua53.exe" "~/eev-wconfig/lua53.exe -i"))
(defun eepitch-lua54 () (interactive)
(eepitch-comint "lua54.exe" "~/eev-wconfig/lua54.exe -i"))
(defun eepitch-python () (interactive)
(eepitch-comint "python3" "python3 -u -i"))
;; See: (find-wconfig-mpv-links)
(setq ee-mpv-program
"c:/Program Files/Mpv/mpv.exe")
;;; __ __
;;; | \/ |_ ____ __
;;; | |\/| | '_ \ \ / /
;;; | | | | |_) \ V /
;;; |_| |_| .__/ \_/
;;; |_|
;;
;; «mpv» (to ".mpv")
;; https://mpv.io/
;; https://mpv.io/installation/
;; https://sourceforge.net/projects/mpv-player-windows/files
;; https://sourceforge.net/projects/mpv-player-windows/files/64bit-v3/ <- don't use this!!!
;; https://sourceforge.net/projects/mpv-player-windows/files/64bit/
;; https://sourceforge.net/projects/mpv-player-windows/files/64bit/mpv-x86_64-20231231-git-abc2a74.7z/download
;; Install in: (find-fline "c:/Program Files/Mpv/")
;;; _ _ _ _
;;; __ _ ___ (_)_ __ __| | ___| |__ (_) __ _ _ __
;;; / _` / __|_____| | '_ \ _____ / _` |/ _ \ '_ \| |/ _` | '_ \
;;; | (_| \__ \_____| | | | |_____| (_| | __/ |_) | | (_| | | | |
;;; \__,_|___/ |_|_| |_| \__,_|\___|_.__/|_|\__,_|_| |_|
;;;
;; «as-in-debian» (to ".as-in-debian")
;; (as-in-windows (find-wgeta "http://anggtwu.net/LUA/Dang1.lua" "Dang"))
;; (as-in-debian (find-wgeta "http://anggtwu.net/LUA/Dang1.lua" "Dang"))
(defmacro as-in-debian (&rest code)
`(let ((coding-system-for-read nil)
(process-coding-system-alist nil)
(default-process-coding-system '(utf-8-unix . utf-8-unix)))
,@code))
(defmacro as-in-windows (&rest code)
`(let ((coding-system-for-read nil)
(process-coding-system-alist
'(("[pP][lL][iI][nN][kK]" undecided-dos . undecided-dos)
("[cC][mM][dD][pP][rR][oO][xX][yY]" undecided-dos . undecided-dos)))
(default-process-coding-system '(undecided-dos . undecided-unix)))
,@code))
;;; __ _ _ _
;;; / _(_)_ __ __| | __ ____ _ ___| |_
;;; | |_| | '_ \ / _` |____\ \ /\ / / _` |/ _ \ __|
;;; | _| | | | | (_| |_____\ V V / (_| | __/ |_
;;; |_| |_|_| |_|\__,_| \_/\_/ \__, |\___|\__|
;;; |___/
;; «find-wget» (to ".find-wget")
;; See: (find-angg "elisp/find-wget-jan-2024.el")
;; (find-eev "eev-plinks.el" "find-wget")
;; Temporary fix:
(defun find-wget (&rest rest)
(as-in-debian (apply 'find-wget0 rest)))
;; Tests:
;; Good: (find-wget "http://anggtwu.net/LUA/Dang1.lua")
;; (find-wgeta "http://anggtwu.net/LUA/Dang1.lua" "Dang")
;; (find-wgeta "http://anggtwu.net/e/emacs.e")
;; Bad: (find-wgeta "http://anggtwu.net/e/emacs.e" "debian")
;;;
;;; __ _ _ __ __ _ __ _ ___ ___
;;; / _` | '_ \ / _` |/ _` |_____ / _ \/ __|
;;; | (_| | | | | (_| | (_| |_____| __/\__ \
;;; \__,_|_| |_|\__, |\__, | \___||___/
;;; |___/ |___/
;;
;; «find-angg-es-links» (to ".find-angg-es-links")
;; See: (find-angg-es-links)
(defun find-angg (fname &rest rest)
(apply 'find-wgeta (format "http://anggtwu.net/%s" fname) rest))
(defun find-anggfile (fname &rest rest)
(apply 'find-wget (format "http://anggtwu.net/%s" fname) rest))
(defun find-es (fname &rest rest)
(apply 'find-wgeta (format "http://anggtwu.net/e/%s.e" fname) rest))
;;; __ __ _
;;; | \/ | __ ___ _(_)_ __ ___ __ _
;;; | |\/| |/ _` \ \/ / | '_ ` _ \ / _` |
;;; | | | | (_| |> <| | | | | | | (_| |
;;; |_| |_|\__,_/_/\_\_|_| |_| |_|\__,_|
;;;
;; «maxima» (to ".maxima")
;; Install from: https://maxima.sourceforge.io/windows-install.html
(code-c-d "maxima"
"c:/maxima-5.47.0/share/maxima/5.47.0/"
"c:/maxima-5.47.0/share/info/maxima")
;; (find-maximafile "")
;; (find-maximanode "")
(defun eepitch-maxima () (interactive)
(eepitch-comint "maxima"
"c:/maxima-5.47.0/bin/maxima.bat"))
;; Tests:
;; (find-es "maxima")
;; (find-es "maxima" "eev-demo")
;; Local Variables:
;; mode: emacs-lisp
;; coding: utf-8-unix
;; End: