Update of /project/crypticl/cvsroot/crypticl/etc In directory clnet:/tmp/cvs-serv3393
Added Files: .emacs Log Message: Adding .emacs used for Crypticl dev.
--- /project/crypticl/cvsroot/crypticl/etc/.emacs 2007/01/21 01:24:52 NONE +++ /project/crypticl/cvsroot/crypticl/etc/.emacs 2007/01/21 01:24:52 1.1 ;;;; .emacs for crypticl
;;Binding *.lisp files to Common Lisp mode. Does this by adding cons cell ;;to global variable. Must come before we load lisp. (setq auto-mode-alist (cons '("\.lisp?$" . common-lisp-mode) auto-mode-alist)) (setq auto-mode-alist (cons '("\.emacs?$" . emacs-lisp-mode) auto-mode-alist))
(setq fi:common-lisp-buffer-name "*common-lisp*" fi:common-lisp-directory "C:/crypticl/src/" fi:common-lisp-image-name "C:/Programfiler/acl62/mlisp" fi:common-lisp-image-file "C:/Programfiler/acl62/mlisp" fi:common-lisp-image-arguments nil fi:common-lisp-host "localhost")
(load "C:/Programfiler/acl62/eli/fi-site-init.el")
(defun run-common-lisp () (interactive) (fi:common-lisp fi:common-lisp-buffer-name fi:common-lisp-directory fi:common-lisp-image-name fi:common-lisp-image-arguments fi:common-lisp-host) (define-key fi:inferior-common-lisp-mode-map "\M-n" 'fi:push-input) (define-key fi:inferior-common-lisp-mode-map "\M-p" 'fi:pop-input))
(global-set-key "\C-x\C-x" '(lambda () (interactive) (switch-to-buffer "*common-lisp*"))) ;;Shortcut (defun rcl () (interactive) (run-common-lisp))
(defun run-allegro-8 () (interactive) (push "C:/Programfiler/acl80-express/eli/" load-path) (load "fi-site-init.el")
(setq fi:common-lisp-image-name "C:/Programfiler/acl80-express/allegro-ansi.exe") (setq fi:common-lisp-image-file "C:/Programfiler/acl80-express/allegro-ansi.dxl") (setq fi:common-lisp-image-arguments '("+B" "+cn"))
(fi:common-lisp fi:common-lisp-buffer-name fi:common-lisp-directory fi:common-lisp-image-name fi:common-lisp-image-arguments fi:common-lisp-host fi:common-lisp-image-file))
(defun run-sbcl () (interactive) (setq inferior-lisp-program "C:/Programfiler/sbcl/1.0/sbcl.exe --noinform") (add-to-list 'load-path "C:/slime-2.0") (require 'slime) (slime-setup))
;;; Use the Common Lisp HyperSpec (require 'hyperspec) (setq common-lisp-hyperspec-root "file:C:/hyperspec/HyperSpec/") ;; lookup on loop:collect works (eval-after-load "hyperspec" '(load "hyperspec-addon")) (global-set-key [f1] 'common-lisp-hyperspec)
;at .xemacs\abbrevs ;(read-abbrev-file)
;;Mapping M-p to scroll through previous commands (global-set-key "\M-p" 'fi:pop-input)
;;Mapping M-n to scroll through next commands (global-set-key "\M-n" 'fi:push-input)
(defun last-command () (interactive) (print (format "Last command:%S" last-command)))
;;;;;;; ;; Return after long jump.
(defvar *last-point* nil)
(defun store-point () "queue sematics" (interactive) (setq *last-point* (append (list (point)) *last-point*)))
(defun pop-point () "pops last point, unless there is only one left. If so, only return it (no pop)" (if (> (length *last-point*) 1) (prog1 (car *last-point*) (setq *last-point* (cdr *last-point*))) (car *last-point*)))
(defun return-to-point () (interactive) (goto-char (pop-point)))
(global-set-key [f4] 'store-point) (global-set-key [f5] 'return-to-point)
(defadvice end-of-buffer (before jump-return ()) "" (store-point)) (ad-activate 'end-of-buffer)
(defadvice beginning-of-buffer (before jump-return ()) "" (store-point)) (ad-activate 'beginning-of-buffer)
(defadvice fi:lisp-find-definition (before jump-return ()) "" (store-point)) (ad-activate 'fi:lisp-find-definition)
(defadvice isearch-forward (before jump-return ()) "" (store-point)) (ad-activate 'isearch-forward)
;; Run cl each time emacs is run: ;;(run-common-lisp)
(setq auto-mode-alist (cons '("\.py$" . python-mode) auto-mode-alist)) (setq interpreter-mode-alist (cons '("python" . python-mode) interpreter-mode-alist)) (autoload 'python-mode "python-mode" "Python editing mode." t)
(global-font-lock-mode t) (setq font-lock-maximum-decoration t) (setq transient-mark-mode t) (column-number-mode 1) (custom-set-variables ;; custom-set-variables was added by Custom -- don't edit or cut/paste it! ;; Your init file should contain only one such instance. '(case-fold-search t) '(current-language-environment "Latin-1") '(default-input-method "latin-1-prefix") '(global-font-lock-mode t nil (font-lock)) '(show-paren-mode t nil (paren)) '(transient-mark-mode t)) (custom-set-faces ;; custom-set-faces was added by Custom -- don't edit or cut/paste it! ;; Your init file should contain only one such instance. )
;; Make text the default mode (setq default-major-mode 'text-mode) ;; Use fill mode (fixed length lines (add-hook 'text-mode-hook 'turn-on-auto-fill) ;; ========== Set the fill column ========== ;; 78 visible character + line ending (two bytes on windows) (setq-default fill-column 78)
;; ===== Turn off tab character ===== ;; ;; Emacs normally uses both tabs and spaces to indent lines. If you ;; prefer, all indentation can be made from spaces only. To request this, ;; set `indent-tabs-mode' to `nil'. This is a per-buffer variable; ;; altering the variable affects only the current buffer, but it can be ;; disabled for all buffers. ;; ;; Use (setq ...) to set value locally to a buffer ;; Use (setq-default ...) to set value globally ;; (setq-default indent-tabs-mode nil)
(put 'upcase-region 'disabled nil)