231 lines
7.4 KiB
Plaintext
231 lines
7.4 KiB
Plaintext
|
|
;(autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl programs" t)
|
|
|
|
;;; You can either fine-tune the bells and whistles of this mode or
|
|
;;; bulk enable them by putting
|
|
;(setq cperl-hairy t)
|
|
(global-unset-key "\C-h")
|
|
(global-set-key "\C-h" 'delete-backward-char)
|
|
;(load "/usr/share/emacs/site-lisp/rng-auto.el")
|
|
|
|
(require 'cc-mode)
|
|
(defun my-build-tab-stop-list (width)
|
|
(let ((num-tab-stops (/ 80 width))
|
|
(counter 1)
|
|
(ls nil))
|
|
(while (<= counter num-tab-stops)
|
|
(setq ls (cons (* width counter) ls))
|
|
(setq counter (1+ counter)))
|
|
(set (make-local-variable 'tab-stop-list) (nreverse ls))))
|
|
(defun my-c-mode-common-hook ()
|
|
(setq tab-width 4) ;; change this to taste, this is what K&R uses :)
|
|
(my-build-tab-stop-list tab-width)
|
|
(setq c-basic-offset tab-width)
|
|
(setq indent-tabs-mode t)) ;; force only spaces for indentation
|
|
(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)
|
|
|
|
|
|
|
|
(add-hook 'c-mode-common-hook
|
|
(lambda()
|
|
(local-set-key (kbd "C-c <right>") 'hs-show-block)
|
|
(local-set-key (kbd "C-c <left>") 'hs-hide-block)
|
|
(local-set-key (kbd "C-c <up>") 'hs-hide-all)
|
|
(local-set-key (kbd "C-c <down>") 'hs-show-all)
|
|
(hs-minor-mode t)))
|
|
|
|
|
|
;; replace C-s with C-\ in a much more general way so that C-\ can be typed
|
|
;; for every instance of C-s. It is at such a low level that emacs even thinks
|
|
;; that you typed a C-s. replace C-s with C-\ , globally
|
|
;; this disables any command which uses C-\ I believe there are two
|
|
;; Note That position \034(octal) which is C-\ is switched with \023(octal)
|
|
;; which is C-s
|
|
|
|
(setq keyboard-translate-table "\000\001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\023\035\036\037 !\042#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\134]^_`abcdefghijklmnopqrstuvwxyz{|}~\177")
|
|
|
|
|
|
;; change ctrl-q so it can be used as flow control
|
|
;; remap C-q tp ESC `
|
|
|
|
;; (global-unset-key "\C-q")
|
|
;; (global-set-key "\e`" 'quoted-insert)
|
|
|
|
|
|
;; don't make backup files
|
|
;; (setq make-backup-files nil)
|
|
(setq require-final-newline t)
|
|
|
|
|
|
;; change input mod to CBREAK mode for C-s C-q
|
|
;; emacs will never see C-s, C-q
|
|
;; (set-input-mode nil t)
|
|
|
|
;; change help command from C-h to ESC ?
|
|
;; so we can use C-h for backspace
|
|
(global-unset-key "\C-h")
|
|
(global-set-key "\C-h" 'delete-backward-char)
|
|
|
|
(global-set-key "\e?" 'help-command)
|
|
(global-set-key "\C-x\C-x" 'mail-send)
|
|
;; set backspace to delete a char same as DEL
|
|
|
|
;; (global-unset-key "\d")
|
|
;; (global-set-key "\d" 'delete-char)
|
|
(global-set-key "\C-cg" 'goto-line)
|
|
;; set up the ispell spelling checker interface
|
|
(global-unset-key "\C-o")
|
|
(global-set-key "\C-o" 'undo)
|
|
(global-set-key "\M-\]" 'copy-region-as-kill)
|
|
(global-set-key "\C-\\" 'mark-word)
|
|
(global-unset-key "\C-f" )
|
|
(global-set-key "\C-f" 'forward-word)
|
|
(global-unset-key "\C-b" )
|
|
(global-set-key "\C-b" 'backward-word)
|
|
(global-unset-key "\M-f" )
|
|
|
|
|
|
(global-set-key "\M-f" 'find-file)
|
|
(global-set-key "\M-o" 'find-file-other-window)
|
|
(global-set-key "\M-\\" 'mark-word)
|
|
(global-set-key "\M-{" 'mark-whole-buffer)
|
|
;(global-unset-key "\M-}")
|
|
|
|
|
|
|
|
(global-set-key "\M-}" 'indent-region)
|
|
(global-set-key "\C-x\C-m" 'save-buffer)
|
|
(global-set-key "\C-c\C-m" 'delete-other-windows)
|
|
(global-set-key "\C-c\'" 'split-window-vertically)
|
|
(global-set-key "\C-c\;" 'split-window-horizontally)
|
|
(global-set-key "\C-x\z" 'yank)
|
|
|
|
|
|
|
|
(autoload 'ispell-word "ispell"
|
|
"Check the spelling of word in buffer." t)
|
|
(autoload 'ispell-complete-word "ispell" "Complete word at or before point" t)
|
|
(autoload 'ispell-region "ispell"
|
|
"Check spelling of every word in the region" t)
|
|
(autoload 'ispell-buffer "ispell"
|
|
"Check spelling of every word in the buffer" t)
|
|
|
|
(global-set-key "\e$" 'ispell-word)
|
|
(global-unset-key "\C-t")
|
|
(global-set-key "\C-t" 'forward-word)
|
|
;; (global-unset-key "\C-&")
|
|
;; (global-set-key "\C-&" 'backward-word)
|
|
(global-set-key "\C-cs" 'ispell-region)
|
|
|
|
(global-set-key "\C-c," 'backward-paragraph)
|
|
(global-set-key "\C-c." 'forward-paragraph)
|
|
(global-set-key "\C-c\C-c" 'compile)
|
|
(global-set-key "\C-c\/" 'compile)
|
|
(global-set-key "\C-c\]" 'replace-string)
|
|
(global-set-key "\C-ce" 'exchange-dot-and-mark)
|
|
(global-set-key "\C-cs" 'shrink-window)
|
|
|
|
;; THE FOLLOWING ARE CUSTOMIZATIONS YOU CAN ADD IF YOU WANT THEM
|
|
;; YOU WILL HAVE TO EDIT THIS FILE TO DO SO
|
|
|
|
;; AUTO FILL
|
|
;; If you want emacs to automatically wrap when you reach the
|
|
;; end of a line (i.e. you don't have to type in the RETURN at the
|
|
;; end of each line, you just keep typing) remove the semicolons
|
|
;; from the two line after this paragraph (the ones with setq).
|
|
;; Set the default major mode to text mode and turn on auto fill
|
|
|
|
|
|
;;(setq default-major-mode 'text-mode)
|
|
(setq text-mode-hook 'turn-on-auto-fill)
|
|
;; (setq load-path ("/usr/local/lib/emacs/lisp/" "/usr/local/test/lib/emacs/site-lisp" "/home/anthm/.lisp"))
|
|
(setq term-file-prefix (concat (car load-path) "/term/"))
|
|
(setq term-setup-hook '(lambda nil
|
|
(if (fboundp 'enable-arrow-keys) (enable-arrow-keys))))
|
|
|
|
; (autoload 'html-mode "/home/anthm/.lisp/html-mode" "HTML major mode." t)
|
|
;(or (assoc "\\.html$" auto-mode-alist)
|
|
; (setq auto-mode-alist (cons '("\\.html$" . html-mode)
|
|
; auto-mode-alist)))
|
|
|
|
|
|
|
|
(setq auto-mode-alist (cons '("\\.html$" . html-helper-mode) auto-mode-alist))
|
|
(setq auto-mode-alist (cons '("\\.cgi$" . cperl-mode) auto-mode-alist))
|
|
(setq auto-mode-alist (cons '("\\.p[ml]$" . cperl-mode) auto-mode-alist))
|
|
|
|
(setq auto-mode-alist (cons '("\\.xml$" . nxml-mode) auto-mode-alist))
|
|
|
|
(setq html-helper-do-write-file-hooks t)
|
|
(setq html-helper-build-new-buffer t)
|
|
|
|
|
|
(add-hook 'cperl-mode-hook 'n-cperl-mode-hook t)
|
|
(defun n-cperl-mode-hook ()
|
|
; (setq cperl-indent-level 4)
|
|
; (setq cperl-continued-statement-offset 0)
|
|
; (setq cperl-extra-newline-before-brace t)
|
|
(set-face-background 'cperl-array-face "black")
|
|
(set-face-background 'cperl-hash-face "black")
|
|
)
|
|
|
|
|
|
|
|
|
|
|
|
(cond ((fboundp 'global-font-lock-mode)
|
|
;; Customize face attributes
|
|
(setq font-lock-face-attributes
|
|
;; Symbol-for-Face Foreground Background Bold Italic Underline
|
|
'((font-lock-comment-face "green")
|
|
(font-lock-preprocessor-face "gray")
|
|
(font-lock-string-face "Sienna")
|
|
(font-lock-keyword-face "purple")
|
|
(font-lock-function-name-face "limegreen")
|
|
(font-lock-variable-name-face "Yellow")
|
|
(font-lock-type-face "Yellow")
|
|
(font-lock-reference-face "Purple")
|
|
|
|
(font-lock-builtin-face "limegreen")
|
|
(font-lock-constant-face "yellow")
|
|
(font-lock-doc-face "limegreen")
|
|
(font-lock-highlighting-face "limegreen")
|
|
(font-lock-warning-face "limegreen")
|
|
|
|
))
|
|
;; Load the font-lock package.
|
|
(require 'font-lock)
|
|
;; Maximum colors
|
|
(setq font-lock-maximum-decoration t)
|
|
;; Turn on font-lock in all modes that support it
|
|
(global-font-lock-mode t)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;; Fix for arrow key disease
|
|
|
|
|
|
(define-key function-key-map "\eOA" [up])
|
|
(define-key function-key-map "\e[A" [up])
|
|
(define-key function-key-map "\eOB" [down])
|
|
(define-key function-key-map "\e[B" [down])
|
|
(define-key function-key-map "\eOC" [right])
|
|
(define-key function-key-map "\e[C" [right])
|
|
(define-key function-key-map "\eOD" [left])
|
|
(define-key function-key-map "\e[D" [left])
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(set-background-color "black")
|
|
(set-foreground-color "white")
|
|
(set-cursor-color "white")
|
|
|