|
|
Eev-PURO
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
|
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
|
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")
|
|