[crypticl-cvs] CVS crypticl/etc

[tskogan]

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)