Quick
index
main
eev
maths
blogme
dednat4
littlelangs
PURO
(GAC2,
λ, etc)
(Chapa 1)

emacs
lua
(la)tex
fvwm
tcl
forth
icon
debian
irc
contact

Eev-PURO

;; http://angg.twu.net/eev-puro.html
;;           (find-TH "eev-puro")
;; http://angg.twu.net/eev-puro/notas.txt
;;         (find-angg "eev-puro/notas.txt")
;; Author:  Eduardo Ochs <eduardoochs@gmail.com>
;; Version: 2011oct14
;; License: public domain
;;
;; (find-wget "http://angg.twu.net/eev-puro/notas.txt")
Instalação do pacote Debian do eev
----------------------------------
Você vai precisar adicionar uma linha ao seu arquivo
/etc/apt/sources.list. Um modo fácil de fazer isto é com:

  cd /etc/apt/
  sudo chmod 666 sources.list
  nano sources.list

A linha que tem ser acrescentada é:

  deb http://angg.twu.net/debian . main

depois de acrescentá-la rode:

  sudo apt-get update
  sudo apt-get install eev

Depois disto você vai poder rodar o emacs com eev batendo "emacs-eev"
num terminal ou criando um ícone de atalho para /usr/bin/emacs-eev no
seu desktop - abra o diretório /usr/bin/ com:

  (find-bgprocess "nautilus /usr/bin/")

Para mais informações veja:

  http://angg.twu.net/debian/README.html
          (find-angg "debian/README")
Outros pacotes importantes
--------------------------
apt-get install lua5.1 lua5.1-doc 
apt-get install texlive-latex-base
apt-get install build-essential gdb libreadline-dev
apt-get install dict dictd dict-gcide dict-jargon
apt-get install     dict-wn dict-foldoc dict-vera
Partes da tela
--------------
(find-TH "emacs" "files-and-buffers")
(find-enode "Screen")
  (find-enode "Menu Bar")
  (find-enode "Tool Bars")
  (find-enode "Windows")
    (find-enode "Buffers")
    (find-enode "Point")
  (find-enode "Mode Line")
  (find-enode "Echo Area")
  (find-enode "Minibuffer")

(find-enode "User Input" "`C-a'" "`M-a'")
Algumas teclas muito importantes:
---------------------------------
C-x C-f   find-file             (find-enode "Visiting")
    TAB   minibuffer-complete   (find-enode "Completion")
C-x C-s   save-buffer           (find-enode "Save Commands")
C-x C-c   save-buffers-kill-terminal   (find-enode "Exiting")

C-/       undo                     (find-enode "Undo")

C-g       keyboard-quit             (find-enode "Quitting")
M-x       execute-extended-command  (find-enode "M-x")

(find-enode "Split Window")
(find-enode "Other Window")
(find-enode "Change Window")
(eek "C-x 2  ;; split-window-vertically")
(eek "C-x 3  ;; split-window-horizontally")
(eek "C-x 0  ;; delete-window")
(eek "C-x 1  ;; delete-other-windows")
Como preparar um bloco de headers pro eepitch
---------------------------------------------
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd /tmp/
ls

(eek "RET shell")
(eek "RET shell M-T")

(eek "M-h M-k M-T")
(eek "M-h M-k <f8>")
(find-efunctiondescr 'ee-wrap-eepitch)
(find-efunctiondescr 'eev-mode "M-T")
Teclas principais do eev
------------------------
M-e
F8
M-T
M-h M-f
M-h M-k
Correções no .emacs
-------------------
;; (find-enode "Init File")
;; (find-fline "~/.emacs")

(when (featurep 'eev)
  (message "See: %S" ' (find-fline "~/.emacs" "(featurep 'eev)"))
  ;;
  ;; (find-eev "eev-mini-steps.el" "eepitch-lua51")
  (defun eepitch-lua51 () (interactive) (eepitch-comint "lua5.1" "lua5.1"))
  ;;
  ;; (find-eev "eev.el" "ee-xpdfpage")
  (defun ee-xpdfpage (fname &optional page xpdfargs)
    `("evince" ,@xpdfargs ,fname ,(format "--page-label=%s" (or page 1)))
    )
  ;;
  ;; http://angg.twu.net/emacs.html#eejump
  ;;           (find-TH "emacs   " "eejump")
  (defun eejump (arg) (interactive "P")
    (cond ((eq arg 1) (find-fline "~/NOTAS"))
          ((eq arg 2) (find-fline "~/HELP"))
          ((eq arg 5) (find-fline "~/.emacs"))
          ((eq arg 19) (find-fline "~/.psne.log"))
	  ;; (find-sh "xlsfonts")
	  ;; (find-sh "xlsfonts | grep -v -")
	  ;; (set-frame-font "5x7" t)
	  ;; (set-frame-font "5x8" t)
	  ;; (set-frame-font "6x10" t)
	  ;; (set-frame-font "6x12" t)
	  ;; (set-frame-font "6x13" t)
	  ;; (set-frame-font "7x14" t)
	  ;; (set-frame-font "8x13" t)
	  ;; (set-frame-font "8x16" t)
	  ;; (set-frame-font "9x15" t)
	  ;; (set-frame-font "DejaVu Sans Mono" t)
	  ;; (customize-face 'default)
	  ;; (set-face-attribute 'default nil :weight 'normal :width 'normal)
          ((eq arg 10) (set-frame-font "5x7"  t))
          ((eq arg 11) (set-frame-font "6x13" t))
          (t (find-efunction 'eejump))))
  ;;
  ;; (global-set-key "\M-j" 'eejump)
  (define-key eev-mode-map "\M-j" 'eejump)
  (define-key eev-mode-map [f11] 'hippie-expand)
  ;;
  ;; http://bcclivros.co.cc/livros/
  ;; (find-fline "~/Downloads/")
  (code-xpdf      "kopkadaly" "~/Downloads/kopka_daly__a_guide_to_latex_4th_ed.pdf")
  (code-pdftotext "kopkadaly" "~/Downloads/kopka_daly__a_guide_to_latex_4th_ed.pdf")
  ;; (find-kopkadalypage   1)
  ;; (find-kopkadalypage  20)
  ;; (find-kopkadalypage 607)
  ;;
  (code-c-d "twup" "/scp:edrx@angg.twu.net:/home/edrx/public_html/")
  ;; (find-twupfile "")
  ;; (find-twupfile "eev-puro/")
))
LaTeX
-----
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
rm -Rv /tmp/latex/
mkdir  /tmp/latex/
cd     /tmp/latex/

cat > foo.tex <<'%%%'
% (find-fline "/tmp/latex/")
% (find-sh "cd /tmp/latex/ &&    latex foo.tex")
% (find-sh "cd /tmp/latex/ && pdflatex foo.tex")
% (find-dvipage  "/tmp/latex/foo.dvi")
% (find-xpdfpage "/tmp/latex/foo.pdf")
% (defun c () (interactive) (find-sh "cd /tmp/latex/ &&    latex foo.tex"))
% (defun c () (interactive) (find-sh "cd /tmp/latex/ && pdflatex foo.tex"))
% (defun d () (interactive) (find-dvipage  "/tmp/latex/foo.dvi"))
% (defun d () (interactive) (find-xpdfpage "/tmp/latex/foo.pdf"))
\documentclass{article}
\begin{document}
foo
\end{document}
%%%
cat foo.tex

# (find-fline "/tmp/latex/")
# (find-fline "/tmp/latex/foo.tex")

ls -l
latex foo.tex
ls -l
xdvi foo.dvi &

# http://www.tug.org/begin.html
# (find-efunctiondescr 'brm)
# (eek "2*<up> M-x brm")
Um pouco de lisp
----------------
(eek "M-h M-f defun")
(find-efunctiondescr 'defun)
(find-elnode "Index" "* defun:")
(find-elnode "Defining Functions" "defun")
(find-elnode "Using Interactive")
(find-elnode "Displaying Messages")
(find-elnode "Formatting Strings")

(defun iarg (&rest rest) (interactive "r") (insert (format "%S\n" rest)))
(eek "RET M-x iarg")
Links para pacotes Debian
-------------------------
(eek "RET lua5.1-doc")
(eek "RET lua5.1-doc M-D")
 ee-hyperlink-prefix
(ee-hyperlink-prefix)
(eek "RET /usr/share/doc/lua5.1-doc/doc/")
(eek "RET /usr/share/doc/lua5.1-doc/doc/ M-F")
(eek "RET lua")
(eek "RET lua M-M")

(eek "<down> M-h M-d")
lua5.1-doc
(eek "<down> M-h d")
lua5.1-doc
URLs
----
(eek "<down> M-x brm")
http://packages.debian.org/lua5.1-doc

(find-efunctiondescr 'brm)
(find-eevfile "eev-browse-url.el" "'brm")
(find-eeurl-define-from :url->action:   'browse-url-firefox
                        :remote:        'brm
                        :local:         'brml
                        :dired:         'brmd)
code-c-d
--------
(find-eevfile "eev.el" "\"/usr/share/doc/\"")

        (code-c-d "ud" "/usr/share/doc/")
   (find-code-c-d "ud" "/usr/share/doc/")

         (setq  ee-uddir "/usr/share/doc/")
         (defun ee-udfile (str) (concat ee-uddir str))
       (defun find-udfile (str) (find-fline (ee-udfile str))

                ee-uddir
        (concat ee-uddir  "lua5.1-doc/test/")
               (ee-udfile "lua5.1-doc/test/")
           "/usr/share/doc/lua5.1-doc/test/"
(find-file "/usr/share/doc/lua5.1-doc/test/")
(find-file     (ee-udfile "lua5.1-doc/test/"))
             (find-udfile "lua5.1-doc/test/")

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd /usr/share/doc/lua5.1-doc/test/
ls
ls -l
(find-udsh "cd lua5.1-doc/test/ && ls -l")

(code-c-d "lua51t" "/usr/share/doc/lua5.1-doc/test/")
(find-lua51tfile "")
(find-lua51tsh "ls")

(find-udw3m "lua5.1-doc/doc/manual.html")
Killing and burying buffers
---------------------------
(eek "M-h M-k M-k")
(eek "M-h M-k M-K")
Material sobre Lua
------------------
(eek "<down> M-x brep")
http://angg.twu.net/eev-puro/mini-lua-intro.e
http://angg.twu.net/eev-puro/mini-lua-intro.e.html
(eek "2*<up> M-x brfl")
(find-sh0 "cp -v $S/http/angg.twu.net/eev-puro/mini-lua-intro.e /tmp/")
(find-anchor "/tmp/mini-lua-intro.e")
(find-anchor "/tmp/mini-lua-intro.e" "intro:types")

Falta acrescentar ao .emacs:
  (code-c-d "pil" "$S/http/www.lua.org/pil/")
  (code-c-d "luamanual" "/usr/share/doc/lua5.1-doc/doc/manual.html")
  ;; Testes:
  ;; (find-pilw3m "5.1.html" "Multiple Results")
  ;; (find-luamanualw3m "#2.4.3" "Assignment")