;; 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")

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


;; «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: