;; This file:
;;   http://anggtwu.net/MAXIMA/edrx-maxima.el.html
;;   http://anggtwu.net/MAXIMA/edrx-maxima.el
;;          (find-angg "MAXIMA/edrx-maxima.el")
;;  Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Version: 2024nov23
;;     See: (find-windows-beginner-intro "12. Install qdraw")

;; «.m»			(to "m")
;; «.maxima-mode»	(to "maxima-mode")
;; «.find-maximanode»	(to "find-maximanode")
;; «.myqdraw»		(to "myqdraw")
;; «.lisptree»		(to "lisptree")


;;;  __  __                       
;;; |  \/  |    __  __  _ __ ___  
;;; | |\/| |____\ \/ / | '_ ` _ \ 
;;; | |  | |_____>  <  | | | | | |
;;; |_|  |_|    /_/\_\ |_| |_| |_|
;;;                               
;; «m»  (to ".m")
;; See: (find-eev "eev-aliases.el")
;;      (find-eev-quick-intro "7.3. Defining eejump targets")
;;      (find-eev-quick-intro "7.4. Commands with very short names")
;;      (find-angg-es-links)
(defun m () (interactive) (find-es "maxima"))


;;;  __  __            _                                       _      
;;; |  \/  | __ ___  _(_)_ __ ___   __ _   _ __ ___   ___   __| | ___ 
;;; | |\/| |/ _` \ \/ / | '_ ` _ \ / _` | | '_ ` _ \ / _ \ / _` |/ _ \
;;; | |  | | (_| |>  <| | | | | | | (_| | | | | | | | (_) | (_| |  __/
;;; |_|  |_|\__,_/_/\_\_|_| |_| |_|\__,_| |_| |_| |_|\___/ \__,_|\___|
;;;                                                                   
;; «maxima-mode»  (to ".maxima-mode")
;; For: (find-fline "~/MAXIMA/" " maxima.el")
;;      (find-fline "~/MAXIMA/"  "maxima-font-lock.el")
(add-to-list 'load-path "~/MAXIMA/")
(add-to-list 'auto-mode-alist '(".mac$" . maxima-mode))
(autoload 'maxima-mode "maxima" nil t)


;;;  __  __                         _ 
;;; |  \/  | __ _ _ __  _   _  __ _| |
;;; | |\/| |/ _` | '_ \| | | |/ _` | |
;;; | |  | | (_| | | | | |_| | (_| | |
;;; |_|  |_|\__,_|_| |_|\__,_|\__,_|_|
;;;                                   
;; «find-maximanode»  (to ".find-maximanode")
;; Tests: (find-maximanode "")
;;        (find-maximafile "")
;;        (find-maximafile "share/")
;;   See: (find-fline "/usr/share/maxima/")
(code-c-d "maxima"  "/usr/share/maxima/5.47.0/" "maxima")


;;;  __  __        ___      _                    
;;; |  \/  |_   _ / _ \  __| |_ __ __ ___      __
;;; | |\/| | | | | | | |/ _` | '__/ _` \ \ /\ / /
;;; | |  | | |_| | |_| | (_| | | | (_| |\ V  V / 
;;; |_|  |_|\__, |\__\_\\__,_|_|  \__,_| \_/\_/  
;;;         |___/                                
;;
;; «myqdraw»  (to ".myqdraw")
;; See: (find-myqdraw "")
;;      (find-myqdraw "myqdraw3.mac")
;;      http://anggtwu.net/eev-qdraw.html
(code-c-d "myqdraw" "~/myqdraw/" :anchor)

(defun ilq () (interactive) (insert "\
** (find-myqdraw \"myqdraw3.mac\")
load_myqdraw();
"))

'("An example of how to use `M-x ilq':
* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
** (find-myqdraw "myqdraw3.mac")
** (find-myqdraw "myqdraw3.mac" "zpts")
load_myqdraw();
[xmin,ymin, xmax,ymax] : [-3,-3, 3,3];
a  : 1 + %i*1/2;
as : makelist(a^n, n,0,10);
myqdraw(xyrange(), zpts(as));

--")



;;;  _     _         _____              
;;; | |   (_)___ _ _|_   _| __ ___  ___ 
;;; | |   | / __| '_ \| || '__/ _ \/ _ \
;;; | |___| \__ \ |_) | || | |  __/  __/
;;; |_____|_|___/ .__/|_||_|  \___|\___|
;;;             |_|                     
;;
;; «lisptree»  (to ".lisptree")
;; See: (find-lisptree "")
;;      (find-lisptree "lisptree.mac")
;;      http://anggtwu.net/lisptree.html
(code-c-d "lisptree" "~/lisptree/" :anchor)

(defun ilt ()
  (interactive)
  (insert "\
** (find-lisptree \"lisptree.mac\")
load  (\"~/lisptree/lisptree.mac\");
"))

'("An example of how to use `M-x ilq':
* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
** (find-lisptree "lisptree.mac")
load  ("~/lisptree/lisptree.mac");
lisptree(integrate(f(x),x,2,4));

--")





;; Local Variables:
;; coding:  utf-8-unix
;; End: