| Paste number 23317: | jsnell can you have a look at this pls |
| Pasted by: | erider |
| 2 years, 5 months ago | |
| #lisp | |
| Paste contents: |
| (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))) (global-set-key "\r" 'newline-and-indent) (set-background-color "black") (set-foreground-color "white") (set-cursor-color "blue") (add-hook 'c-mode-common-hook '(lambda () (c-set-style "bsd") (setq c-basic-offset 4))) ;; .emacs-file used for the package `emacs-snapshot-gtk' in Ubuntu Dapper ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-set-variables ;; custom-set-variables was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(case-fold-search t) '(column-number-mode t) '(current-language-environment "UTF-8") '(global-font-lock-mode t nil (font-lock)) '(indent-tabs-mode nil) '(line-number-mode t) '(menu-bar-mode nil) '(mouse-wheel-follow-mouse t) '(mouse-wheel-mode t) '(scroll-bar-mode nil) '(show-paren-mode t) '(tool-bar-mode nil nil (tool-bar)) '(transient-mark-mode t) '(uniquify-buffer-name-style (quote forward) nil (uniquify)) '(visible-bell t)) (set-face-font 'default "-bitstream-bitstream vera sans mono-medium-r-normal--10-*-*-*-m-*-iso8859-*") ;; Global keys ;; ;;;;;;;;;;;;;;;;; (global-set-key [C-tab] 'other-window) (global-set-key "\r" 'newline-and-indent) (global-set-key [f2] 'save-some-buffers) (global-set-key [f3] 'find-file) (global-set-key [f4] 'replace-string) (global-set-key [f10] 'kill-this-buffer) ;; C STUFF ;; ;;;;;;;;;;;;; (add-hook 'c-mode-hook (function (lambda () (define-key c-mode-map [f5] 'compile) (define-key c-mode-map [f6] 'next-error) (define-key c-mode-map [f7] 'previous-error)))) ;; LISP STUFF ;; ;;;;;;;;;;;;;;;; (add-to-list 'load-path "~/slime") (setq inferior-lisp-program "/home/erider/programming/sbcl/lib/sbcl/sbcl") (require 'slime) (slime-setup :autodoc t) (setq slime-net-coding-system 'utf-8-unix) ;(setq common-lisp-hyperspec-root "") (add-hook 'lisp-mode-hook (lambda () (slime-mode t))) (setq auto-mode-alist (append '(("\.lisp$" . lisp-mode) ("\.lsp$" . lisp-mode) ("\.cl$" . lisp-mode) ("\.asd$" . lisp-mode) ("\.system$" . lisp-mode)) auto-mode-alist)) (define-key slime-mode-map (kbd "TAB") 'slime-indent-and-complete-symbol) (define-key slime-mode-map [f1] 'slime-hyperspec-lookup) (define-key slime-repl-mode-map [f1] 'slime-hyperspec-lookup) (define-key slime-mode-map [f8] 'slime-eval-buffer) (define-key slime-mode-map [f9] 'slime-eval-last-expression-display-output) ;(define-key slime-mode-map [f11] (lambda () (interactive) (insert "("))) ;(define-key slime-mode-map [f12] (lambda () (interactive) (insert ")"))) (define-key slime-mode-map [C-return] 'slime-close-all-sexp) (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. ) |
This paste has no annotations.