-:1:in `require': no such file to load — rubygems (LoadError)
from -:1
Mi dotEmacs
Archivos de configuración
Tengo dividido mi .emacs para que sea más manejable y fácil de editar. Está dividido como sigue:
- .emacs
- general.el
- personal.el
- visual.el
- codificacion.el
- nano_tex.el
- nano_org.el
- nano_muse.el
dotEmacs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Autor: nano AT dialetheia.net ;; Configuración general de GNU/Emacs ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Usar Common Lisp (require 'cl) ;; ¿Cuánto tiempo tarda en cargar? (Parte I) (defvar *emacs-load-start* (current-time)) ;; Todo el custom a otro archivo (setq custom-file "~/software/.emacs-custom.el") (load custom-file 'noerror) ;; Load Path principal (add-to-list 'load-path "~/software/site-lisp") (add-to-list 'load-path "~/software/dotEmacs") ;; activar el modo servidor ;; Las nuevas instancias deben de ejecutarse con emacsclient ;; ;; Agregar a .bashrc: ;; ;; alias ec='emacsclient -s nano -c' ;; ;; alias et='emacsclient -s nano -t' ;; ;; source ~/software/emacs/etc/emacs.bash ;; ;; EDITOR='emacsclient -s nano -t' ;; #~/bin/cliente_emacs ;; export EDITOR ;; ;; VISUAL='emacsclient -s nano -c' ;; #~/bin/cliente_emacs ;; export VISUAL ;;(server-start) (load-library "personal") (load-library "visual") (load-library "general") (load-library "nano_web") (load-library "codificacion") (load-library "nano_muse") (load-library "nano_tex") (load-library "nano_org") ;;; This was installed by package-install.el. ;;; This provides support for the package system and ;;; interfacing with ELPA, the package archive. ;;; Move this code earlier if you want to reference ;;; packages in your .emacs. (when (load (expand-file-name "~/.emacs.d/elpa/package.el")) (package-initialize)) ;; ¿Cuánto tiempo tarda en cargar? (Parte II) (message "Mi dotEmacs cargó en %ds" (destructuring-bind (hi lo ms) (current-time) (- (+ hi lo) (+ (first *emacs-load-start*) (second *emacs-load-start*)))))
general.el
;; Autor: nano AT dialetheia.net ;; Configuración general de GNU/Emacs ;;; Idioma (setq set-language-enviroment "spanish") ;;; Codificación (set-terminal-coding-system 'iso-latin-1) (prefer-coding-system 'iso-latin-1) ;; Se guardarán 1024 mensajes en *Messages* útiles para el debug (setq message-log-max 1024) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Dired ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Dired podrá copiar y borrar directorios recurrentemente (setq dired-recursive-copies 'top) (setq dired-recursive-deletes 'top) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Backup ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq make-backup-files nil) (setq auto-save-list-file-name nil) (setq auto-save-default nil) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Búsquedas ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Resalta el objeto buscada (setq search-highlight t) ;; Resalta el objeto a reemplazar (setq query-replace-highlight t) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Ido ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'ido) (ido-mode t) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Autocolorea los archivos de configuración de GNU/Linux típicos ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'generic) (require 'generic-x) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Icicles ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (add-to-list 'load-path "~/software/site-lisp/icicles") (require 'icicles) ; Load this library. (icicle-mode 1) ; Turn on Icicle mode. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; BBDB The Insidious Big Brother Database ;; http://bbdb.sourceforge.net/ ;; ./configure --with-emacs=/home/nano/software/emacs22/bin/emacs22 ;; make all ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (add-to-list 'load-path "~/software/site-lisp/bbdb-2.35/lisp") (require 'bbdb) (bbdb-initialize) ;(bbdb-initialize 'vm 'sendmail) ;(bbdb-insinuate-vm) (bbdb-define-all-aliases) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; EMMS ;; darcs get http://www.kollektiv-hamburg.de/~forcer/darcs/emms ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (add-to-list 'load-path "~/software/site-lisp/emms") (require 'emms-setup) (emms-all) (emms-default-players) ;; Show the current track each time EMMS ;; starts to play a track with "NP : " (add-hook 'emms-player-started-hook 'emms-show) (setq emms-show-format "Escuchando: %s") ;; When asked for emms-play-directory, ;; always start from this one (setq emms-source-file-default-directory "~/musica/") (defalias 'emms-player-mplayer-start 'emms-player-mplayer-start-with-subtitle-checker) (require 'emms-streams) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Tramp ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'tramp) (setq tramp-default-method "ssh2") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Predictive ;; http://www.dr-qubit.org/emacs.php#predictive ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (add-to-list 'load-path "~/software/site-lisp/predictive") (autoload 'predictive-mode "predictive" "predictive" t) (set-default 'predictive-auto-add-to-dict t) (setq predictive-main-dict 'rpg-dictionary predictive-auto-learn t predictive-add-to-dict-ask nil predictive-use-auto-learn-cache nil predictive-which-dict t) (require 'predictive-latex) (require 'predictive-html)
visual.el
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Autor: nano AT dialetheia.net ;; Configuración visual de GNU/Emacs ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Configuraciones relaciondas con la vista ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Maximiza la ventana ;(require 'maxframe) ;(add-hook 'window-setup-hook 'maximize-frame t) ;; Elimina la barra de íconos (tool-bar-mode -1) ;; Elimina la barra de menús (menu-bar-mode -1) ;; Elimina la barra lateral (scroll-bar-mode -1) ;; Inhibe mensaje de entrada (setq inhibit-startup-message t) ;; substituye yes/no por y/n (fset 'yes-or-no-p 'y-or-n-p) ;; Inhibe el molesto beep (set-default 'visible-bell t) ;; El kill-ring guarda 200 (setq kill-ring-max 200) ;;; Usa el clipboard de X (setq x-select-enable-clipboard t) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Búfer ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Despliega el nombre del búfer en la barra del título (setq frame-title-format "nano@dialetheia: %b en %f (%+%+)") ;; El modo por omisión será Text-mode (setq default-major-mode 'text-mode) ; Fuente ;; Coloreo de sintáxis (global-font-lock-mode t) (setq font-lock-maximum-decoration t) ;; Retroalimentación visual en selección (setq-default transient-mark-mode t) ;; Muestra el número de columna (setq column-number-mode t) ;; Ancho de página a 60 columnas (setq default-fill-column 60) ;; Muestra las imágenes automáticamente (auto-image-file-mode t) ;; Descomprime los archivos automáticamente (auto-compression-mode t) ;; Espacios en lugar de tabs (setq-default indent-tabs-mode nil) ;; Tabs a cuatro espacios (setq default-tab-width 4) (setq c-basic-indent 2) ;; Muestra el parentesis que hace juego (show-paren-mode t) (setq show-paren-style 'parentheses) ;; Activa número de linea a la izquierda ;; http://stud4.tuwien.ac.at/~e0225855/linum/linum.html ;; Activado con M-x linum-mode (require 'linum) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Soporte para ratón ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; El foco sigue al raton (setq mouse-autoselect-window t) ;; Resalta el mouse (setq mouse-sel-retain-highlight t) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Hora y Fecha ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq display-time-day-and-date t) (setq display-time-format "%m/%d %H:%M") (setq display-time-24hr-format t) (display-time) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Color-theme ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; cvs -d:pserver:anonymous@cvs.gna.org:/cvs/color-theme co color-theme (add-to-list 'load-path "~/software/site-lisp/color-theme") (require 'color-theme) (color-theme-initialize) ;(color-theme-tty-dark) ;(color-theme-euphoria) (color-theme-renegade) ;(color-theme-dark-laptop) ;(color-theme-jsc-light) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Calendario ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Código obtenido de http://wainu.ii.uned.es:8000/blogs/davidam/swcat/6958 ;; Para que mi calendario sea más bello (setq view-diary-entries-initially t mark-diary-entries-in-calendar t number-of-diary-entries 7) (add-hook 'diary-display-hook 'fancy-diary-display) (add-hook 'today-visible-calendar-hook 'calendar-mark-today) ;; Para que mi calendario este en mi idioma (setq european-calendar-style t) ;; dd/MM/yyyy (setq calendar-week-start-day 1 calendar-day-name-array ["Domingo" "Lunes" "Martes" "Miercoles" "Jueves" "Viernes" "Sábado"] calendar-month-name-array ["Enero" "Febrero" "Marzo" "Abril" "Mayo" "Junio" "Julio" "Agosto" "Septiembre" "Octubre" "Noviembre" "Diciembre"]) ;; Arregla la navegación del calendario ;; i.e. '>' avanza, '<' retrocede... (add-hook 'calendar-load-hook '(lambda () (setq mark-holidays-in-calendar t) (define-key calendar-mode-map ">" 'scroll-calendar-left) (define-key calendar-mode-map "<" 'scroll-calendar-right) (define-key calendar-mode-map "\C-x>" 'scroll-calendar-left) (define-key calendar-mode-map "\C-x<" 'scroll-calendar-right))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
codificacion.el
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Autor: nano AT dialetheia.net ;; Configuración para programar en GNU/Emacs ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Cedet ;; Collection of emacs development enviroment tools ;; cvs -z3 -d:pserver:anonymous@cedet.cvs.sourceforge.net:/cvsroot/cedet co cedet ;; Si se actualiza ejecuta la siguiente línea de comando en terminal en el directorio base de cedet ;; touch `find . -name Makefile` ;; para actualizar los Makefile y se puedan compilar ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (load-file "~/software/site-lisp/cedet/common/cedet.el") ;; Semantic ;; Esta opción activa el modo de resumen, soporte de imenu y el navegador semántico ;; Otras opciones: ;;; semantic-load-enable-minimum-features ;;; semantic-load-enable-code-helpers ;;; semantic-load-enable-gaudy-code-helpers ;;; semantic-load-enable-excessive-code-helpers ;;; semantic-load-enable-semantic-debugging-helpers ;;; Ver descripción en el archivo INSTALL de cedet. (semantic-load-enable-code-helpers) ;; Srecode: Semantic Recorder ;; Srecode es nuevo en CEDET (CVS) que autogenera código para cualquier lenguaje. (add-to-list 'load-path (expand-file-name "~/software/site-lisp/cedet/common/srecode")) (require 'srecode-load) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ECB ;; cvs -z3 -d:pserver:anonymous@ecb.cvs.sourceforge.net:/cvsroot/ecb co -P ecb ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (add-to-list 'load-path "~/software/site-lisp/ecb") (require 'ecb) ;(require 'ecb-autoloads) (setq ecb-tip-of-the-day nil) (setq ecb-primary-secondat-mouse-buttons (quote mouse-1--mouse2)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; nxml, nxhtml ;; nxml v20041004 ;; nxhtml v1.03, zipping date is 20070525 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (load "~/software/site-lisp/nxml/autostart.el") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Find-recursive ;; (Necesaria para emacs-rails ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'find-recursive) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Ruby, Inf-ruby, Ruby-electric ;; svn co http://svn.ruby-lang.org/repos/ruby/trunk/misc ruby ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (add-to-list 'load-path "~/software/site-lisp/ruby") (autoload 'ruby-mode "ruby-mode" "Modo para editar archivos fuente de ruby" t) (setq auto-mode-alist (append '(("\\.rb$" . ruby-mode)) auto-mode-alist)) (setq interpreter-mode-alist (append '(("ruby" . ruby-mode)) interpreter-mode-alist)) (autoload 'run-ruby "inf-ruby" "Ejecuta un proceso inferior de Ruby") (autoload 'inf-ruby-keys "inf-ruby" "Establece defs de claves locales para inf-ruby en el ruby-mode") (add-hook 'ruby-mode-hook '(lambda () (inf-ruby-keys) )) (require 'ruby-electric) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Emacs-rails ;; svn co svn://rubyforge.org/var/svn/emacs-rails/trunk emacs-rails ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq load-path (cons "~/software/site-lisp/emacs-rails" load-path)) (require 'rails) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Rinari ;; svn co svn://viewvc.rubyforge.org/var/svn/rinari/trunk rinari ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;(add-to-list 'load-path "~/software/site-lisp/rinari") ;(add-to-list 'load-path "~/software/site-lisp/rinari/rhtml") ;(require 'rinari) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; MMM con RoR ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (add-to-list 'load-path "~/software/site-lisp/mmm-mode-0.4.8") (require 'mmm-mode) (require 'mmm-auto) (setq mmm-global-mode 'maybe) (setq mmm-submode-decoration-level 2) (set-face-background 'mmm-output-submode-face "LightGrey") (set-face-background 'mmm-code-submode-face "MediumSlateBlue") (set-face-background 'mmm-comment-submode-face "DarkOliveGreen") (mmm-add-classes '((erb-code :submode ruby-mode :match-face (("<%#" . mmm-comment-submode-face) ("<%=" . mmm-output-submode-face) ("<%" . mmm-code-submode-face)) :front "<%[#=]?" :back "-?%>" :insert ((?% erb-code nil @ "<%" @ " " _ " " @ "%>" @) (?# erb-comment nil @ "<%#" @ " " _ " " @ "%>" @) (?= erb-expression nil @ "<%=" @ " " _ " " @ "%>" @)) ))) (add-hook 'html-mode-hook (lambda () (setq mmm-classes '(erb-code)) (mmm-mode-on))) (add-to-list 'auto-mode-alist '("\\.rhtml$" . html-mode)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; SLIME: Superior Lisp Interaction Mode for Emacs ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq inferior-lisp-program "/usr/bin/clisp") (add-to-list 'load-path "~/software/site-lisp/slime") (require 'slime) (slime-setup) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Groovy ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; use groovy-mode when file ends in .groovy or has #!/bin/groovy at start (autoload 'groovy-mode "groovy-mode" "Groovy editing mode." t) (add-to-list 'auto-mode-alist '("\.groovy$" . groovy-mode)) (add-to-list 'interpreter-mode-alist '("groovy" . groovy-mode)) (autoload 'run-groovy "inf-groovy" "Run an inferior Groovy process") (autoload 'inf-groovy-keys "inf-groovy" "Set local key defs for inf-groovy in groovy-mode") (add-hook 'groovy-mode-hook '(lambda () (inf-groovy-keys) )) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Octave ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (autoload 'octave-mode "octave-mod" nil t) (setq auto-mode-alist (cons '("\\.m$" . octave-mode) auto-mode-alist)) (add-hook 'octave-mode-hook (lambda () (abbrev-mode 1) (auto-fill-mode 1) (if (eq window-system 'x) (font-lock-mode 1)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Maxima ;; http://members3.jcom.home.ne.jp/imaxima/Site/Download_and_Install.html ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (add-to-list 'load-path "~/software/site-lisp/imaxima-imath-0.97a") (autoload 'imaxima "imaxima" "Image support for Maxima." t) (autoload 'imath-mode "imath" "Interactive Math minor mode." t) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Gnuplot ;; http://cars9.uchicago.edu/~ravel/software/gnuplot-mode.html ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (add-to-list 'load-path "~/software/site-lisp/gnuplot-mode.0.6.0") (autoload 'gnuplot-mode "gnuplot" "gnuplot major mode" t) (autoload 'gnuplot-make-buffer "gnuplot" "open a buffer in gnuplot mode" t) (add-to-list 'auto-mode-alist '("\.gp$" . gnuplot-mode)) ;(global-set-key [(f9)] 'gnuplot-make-buffer) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Htmlize ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'htmlize) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Alternativa a ediff ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (autoload 'smerge-mode "smerge-mode" nil t) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Python ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; (add-to-list 'load-path "~/software/site-lisp/python-mode-1.0") ;; (autoload 'python-mode "python-mode" "Python Mode." t) ;; (add-to-list 'auto-mode-alist '("\\.py\\'" . python-mode)) ;; (add-to-list 'interpreter-mode-alist '("python" . python-mode)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
nano_tex.el
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; AUCTeX ;; ./configure --with-lispdir=/home/nano/software/site-lisp ;; make ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (load "auctex.el" nil t t) (load "preview-latex.el" nil t t) ;; Conectamos reftex con AUCTeX (add-hook 'LaTeX-mode-hook 'turn-on-reftex) ;; Conectamos AUCTeX con reftex (setq reftex-plug-into-AUCTeX t) ;; Todos los .tex serán AUCTeX (setq TeX-default-mode 'LaTeX-mode) ;; Activar siempre el modo (setq TeX-force-default-mode t) ;; Salvar automáticamente los archivos .tex (setq TeX-auto-save t) ;; Parsea los archivos TeX (setq TeX-parse-self t) ;; Le indica a AuCTeX que se pueden utilizar multiarchivos (setq-default TeX-master nil) ;; Auto-fill para tex (add-hook 'LaTeX-mode-hook 'turn-on-auto-fill) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Whizzytex ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (add-to-list 'load-path "~/software/site-lisp/whizzytex-1.3.1/src") (autoload 'whizzytex-mode "whizzytex" "WhizzyTeX, a minor-mode WYSIWIG environment for LaTeX" t) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
nano_org.el
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Autor: nano AT dialetheia.net ;; Configuración de Org mode en GNU/Emacs ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Org ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (add-to-list 'load-path "~/software/site-lisp/org-5.19a") (require 'org-install) (add-to-list 'auto-mode-alist '("\\.org$" . org-mode)) (setq org-log-done t) (define-key global-map "\C-cl" 'org-store-link) (define-key global-map "\C-ca" 'org-agenda) (setq org-agenda-files (list "~/documentos/org/agenda.org")) (setq org-publish-project-alist '(("org" :base-directory "~/documentos/org/" :publishing-directory "/ssh:dialethe@dialetheia.net:~/public_html/nano/" :publishing-function org-publish-org-to-html :section-numbers nil :TeX-macros t :LaTeX-fragments t :table-of-contents nil :style "<link rel=\"stylesheet\" href=\"http://dialetheia.net/css/org.css\" type=\"text/css\"/>" ) ;; ("imagenes" ;; :base-directory "~/documentos/sitio-web/html/imagenes/" ;; :base-extension "jpg\\|gif\\|png" ;; :publishing-directory "/ssh:dialethe@dialetheia.net:~/public_html/nano/imagenes/" ;; :publishing-function org-publish-attachment) ;; ("css" ;; :base-directory "~/documentos/sitio-web/html/css/" ;; :base-extension "css" ;; :publishing-directory "/ssh:dialethe@dialetheia.net:~/public_html/nano/css/" ;; :publishing-function org-publish-attachment) ("website" :components ("org" )))) ;;"imagenes" "css")))) (setq org-todo-keywords '((sequence "TODO" "|" "DONE") (sequence "|" "FEEDBACK" "VERIFICADO") (sequence "REPORTADO" "BUG" "KNOWNCAUSE" "|" "FIXED") (sequence "|" "CANCELADO"))) (setq org-tag-alist '(("TESIS" . ?t) ("WEB" . ?w) ("RELATIVIDAD" . ?r) ("MECANICA" . ?m) ("TRABAJO" . ?w) ("TELEFONO" . ?p) ("EMAIL" . ?e) ("URGENTE" . ?u) )) ;; Métodos para Org-mode de Sacha Chua ;; Actualiza la estadística de los checkbox de encabezado (defun wicked/org-update-checkbox-count (&optional all) "Update the checkbox statistics in the current section. This will find all statistic cookies like [57%] and [6/12] and update them with the current numbers. With optional prefix argument ALL, do this for the whole buffer." (interactive "P") (save-excursion (let* ((buffer-invisibility-spec (org-inhibit-invisibility)) (beg (condition-case nil (progn (outline-back-to-heading) (point)) (error (point-min)))) (end (move-marker (make-marker) (progn (or (outline-get-next-sibling) ;; (1) (goto-char (point-max))) (point)))) (re "\\(\\[[0-9]*%\\]\\)\\|\\(\\[[0-9]*/[0-9]*\\]\\)") (re-box "^[ \t]*\\(*+\\|[-+*]\\|[0-9]+[.)]\\) +\\(\\[[- X]\\]\\)") b1 e1 f1 c-on c-off lim (cstat 0)) (when all (goto-char (point-min)) (or (outline-get-next-sibling) (goto-char (point-max))) ;; (2) (setq beg (point) end (point-max))) (goto-char beg) (while (re-search-forward re end t) (setq cstat (1+ cstat) b1 (match-beginning 0) e1 (match-end 0) f1 (match-beginning 1) lim (cond ((org-on-heading-p) (or (outline-get-next-sibling) ;; (3) (goto-char (point-max))) (point)) ((org-at-item-p) (org-end-of-item) (point)) (t nil)) c-on 0 c-off 0) (goto-char e1) (when lim (while (re-search-forward re-box lim t) (if (member (match-string 2) '("[ ]" "[-]")) (setq c-off (1+ c-off)) (setq c-on (1+ c-on)))) (goto-char b1) (insert (if f1 (format "[%d%%]" (/ (* 100 c-on) (max 1 (+ c-on c-off)))) (format "[%d/%d]" c-on (+ c-on c-off)))) (and (looking-at "\\[.*?\\]") (replace-match "")))) (when (interactive-p) (message "Checkbox statistics updated %s (%d places)" (if all "in entire file" "in current outline entry") cstat))))) (defadvice org-update-checkbox-count (around wicked activate) "Fix the built-in checkbox count to understand headlines." (setq ad-return-value (wicked/org-update-checkbox-count (ad-get-arg 1)))) ;; Integra remember con Org-mode (global-set-key (kbd "C-c r") 'remember) (add-hook 'remember-mode-hook 'org-remember-apply-template) (setq org-remember-templates '((?n "* %U %?\n\n %i\n %a" "~/documentos/org/notas.org"))) (setq remember-annotation-functions '(org-remember-annotation)) (setq remember-handler-functions '(org-remember-handler)) ;; Calcula el tiempo empleado en un encabezado (defun wicked/org-calculate-tag-time (matcher &optional ts te) "Return the total minutes clocked in headlines matching MATCHER. MATCHER is a string or a Lisp form to be evaluated, testing if a given set of tags qualifies a headline for inclusion. TS and TE are time start (inclusive) and time end (exclusive). Call with a prefix to be prompted for TS and TE. For example, to see how much time you spent on tasks tagged as URGENT, call M-x wicked/org-calculate-tag-time RET URGENT RET. To see how much time you spent on tasks tagged as URGENT today, call C-u M-x wicked/org-calculate-tag-time RET URGENT RET . RET +1 RET." (interactive (list (read-string "Tag query: ") (if current-prefix-arg (org-read-date)) (if current-prefix-arg (org-read-date)))) ;; Convert strings to proper arguments (if (stringp matcher) (setq matcher (cdr (org-make-tags-matcher matcher)))) (if (stringp ts) (setq ts (time-to-seconds (apply 'encode-time (org-parse-time-string ts))))) (if (stringp te) (setq te (time-to-seconds (apply 'encode-time (org-parse-time-string te))))) (let* ((re (concat "[\n\r]" outline-regexp " *\\(\\<\\(" (mapconcat 'regexp-quote org-todo-keywords-1 "\\|") (org-re "\\>\\)\\)? *\\(.*?\\)\\(:[[:alnum:]_@:]+:\\)?[ \t]*$"))) (case-fold-search nil) lspos tags tags-list tags-alist (llast 0) rtn level category i txt p marker entry priority (total 0)) (save-excursion (org-clock-sum ts te) (goto-char (point-min)) (while (re-search-forward re nil t) (catch :skip (setq tags (if (match-end 4) (match-string 4))) (goto-char (setq lspos (1+ (match-beginning 0)))) (setq level (org-reduced-level (funcall outline-level)) category (org-get-category)) (setq i llast llast level) ;; remove tag lists from same and sublevels (while (>= i level) (when (setq entry (assoc i tags-alist)) (setq tags-alist (delete entry tags-alist))) (setq i (1- i))) ;; add the nex tags (when tags (setq tags (mapcar 'downcase (org-split-string tags ":")) tags-alist (cons (cons level tags) tags-alist))) ;; compile tags for current headline (setq tags-list (if org-use-tag-inheritance (apply 'append (mapcar 'cdr tags-alist)) tags)) (when (and (eval matcher) (or (not org-agenda-skip-archived-trees) (not (member org-archive-tag tags-list)))) ;; Get the time for the headline at point (goto-char (line-beginning-position)) (setq total (+ total (or (get-text-property (1+ (point)) :org-clock-minutes) 0))) ;; if we are to skip sublevels, jump to end of subtree (org-end-of-subtree t))))) (if (interactive-p) (let* ((h (/ total 60)) (m (- total (* 60 h)))) (message "Time: %d:%02d (%d hours and %d minutes)" h m h m))) total))
Paquetes usados
Dialetheia.net · Nano
[email] · [Gmail] · [Jabber] [Skype]
This work is licensed under a Creative Commons Attribution-Noncommercial-Share Alike 3.0 License.
[email] · [Gmail] · [Jabber] [Skype]
This work is licensed under a Creative Commons Attribution-Noncommercial-Share Alike 3.0 License.