;; 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
;; 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
apt-get install w3m-el tkdiff
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 ")
(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* 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 " M-h M-d")
lua5.1-doc
(eek " M-h d")
lua5.1-doc
URLs
----
(eek " 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 " 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* 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")
;; Local Variables:
;; coding: latin-1-unix
;; End: