rendered paste body;; -*-emacs-lisp-*-
(load-library "xterm-256color")
;; Set the short-cut keys
;;
(define-key global-map [f1] (lambda ()
(interactive)
(manual-entry (current-word))))
(define-key global-map [f2] 'find-file) ;; F2 - OPEN
(define-key global-map [f3] 'kill-buffer-fast) ;; F3 - CLOSE
(define-key global-map [f4] 'goto-line) ;; F4 - GOTO LINE
(define-key global-map [f5] 'other-window)
(define-key global-map [f7] 'replace-string) ;; F7 - REPLACE
;;(define-key global-map [f9] 'ispell-buffer) ;; F9 - UNDO
(define-key global-map [f10] 'compile) ;; F10 - COMPILE
(define-key global-map [f11] 'next-error) ;; F11 - NEXT ERROR
(define-key global-map [f12] 'add-change-log-entry-other-window) ;; F12 - CHANGE LOG
;; Fix 'home' and 'end' keys
;;
( global-set-key [home] 'beginning-of-line)
( global-set-key [end] 'end-of-line)
;; Set Meta + P to next error
;;
( global-set-key "\M-p" 'next-error)
;; Make control+pageup/down scroll the other buffer
;;
(global-set-key [C-next] 'scroll-other-window)
(global-set-key [C-prior] 'scroll-other-window-down)
;; Dont show the GNU splash screen
;;
(setq inhibit-startup-message t)
;; Make all "yes or no" prompts show "y or n" instead
;;
(fset 'yes-or-no-p 'y-or-n-p)
;; Paste at point NOT at cursor
;;
(setq mouse-yank-at-point 't)
;; Open unidentified files in text mode
;;
(setq default-major-mode 'text-mode)
;; Windows-like selection
;;
(pc-selection-mode)
;; Automagically read compressed files
;;
(auto-compression-mode 1)
;; Display clock
;;
(display-time)
;; Compile command line to use :
;;
(setq compile-command "make -k")
;; over the filesystem.
;;
(defun make-backup-file-name (file-name)
"Create the non-numeric backup file name for `file-name'."
(require 'dired)
(if (file-exists-p "~/.backups")
(concat (expand-file-name "~/.backups/")
(dired-replace-in-string "/" "|" file-name))
(concat file-name "~")))
;; accents
(standard-display-european 1)
;;
;;(setq ispell-process-directory (expand-file-name "~/"))
;;(add-to-list 'ispell-dictionary-alist
;; '("castellano"
;; "[A-Za-z]"
;; "[^A-Za-z]"
;; "[-]" t ("-TTeX" "-d" "castellano") "~latin1" iso-8859-1))
;; Set spanish dictionary as default one
;(setq ispell-local-dictionary "~/.local-dict")
;(setq ispell-personal-dictionary "~/.local-dict")
;; Do running spell check in text mode.
;;(add-hook 'text-mode-hook 'flyspell-mode)
;; Set the dictionary for the spell check.
;;(setq flyspell-mode-hook
;; '(lambda () "Sets the dictionary for flyspell on startup."
;; (ispell-change-dictionary "castellano")))
;; Ctrl-Tab to spellcheck the word under the cursor.
;;(global-set-key [C-tab] 'ispell-word)
;;(setq ispell-personal-dictionary "~/.ispell-dictionary")
;;(setq flyspell-mode t)
;; tab, colour, and misc options
;;
(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.
'(Info-additional-directory-list (quote ("/usr/info" "/usr/share/info")))
'(Info-fontify t)
'(asm-comment-char 59)
'(auto-revert-interval 2)
'(auto-revert-stop-on-user-input nil)
'(c-basic-offset 8)
'(c-default-style "K&R")
'(c-progress-interval 2)
'(c-tab-always-indent (quote other))
'(column-number-mode t)
'(compilation-ask-about-save nil t)
'(compilation-scroll-output t)
'(compilation-window-height 6 t)
'(delete-old-versions t)
'(display-hourglass nil)
'(fill-column 80)
'(font-lock-global-modes t)
'(font-lock-maximum-decoration t)
'(font-lock-support-mode (quote lazy-lock-mode))
'(global-auto-revert-mode t nil (autorevert))
'(global-font-lock-mode t nil (font-lock))
'(hourglass-delay 0)
'(indent-tabs-mode t)
'(ispell-dictionary-alist (quote (("slovak" "[A-Za-z]" "[^A-Za-z]" "" nil ("-B" "-d" "slovak") nil iso-8859-2))))
'(line-number-mode t)
'(standard-indent 4)
'(tab-width 8))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Spelling
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;(setq ispell-default-dictionary "castellano")
;;(setq ispell-change-dictionary "castellano")
;;(setq flyspell-default-dictionary "castellano")
;;(setq flyspell-mode-line-string " oGer")
;;(add-hook 'text-mode-hook 'flyspell-mode)
;; disable any noise
;;
(setq bell-volume 0)
;;(setq visible-bell f)
;; hide the menu bar
;;
(menu-bar-mode nil)
(tool-bar-mode nil)
(setq menubar-visible-p nil)
(setq default-toolbar-visible-p nil)
;; Useful function:
;; convert dos (^M) end of line to unix end of line
(defun dos2unix()
(interactive)
(goto-char(point-min))
(while (search-forward "\r" nil t) (replace-match "")))
;; Useful function:
;; unix2dos
(defun unix2dos()
(interactive)
(goto-char(point-min))
(while (search-forward "\n" nil t) (replace-match "\r\n")))
;; Useful function:
;; Insert date into buffer
(defun insert-date ()
"Insert date at point."
(interactive)
(insert (format-time-string "%A, %B %e, %Y %k:%M:%S %z")))
;; Useful function:
;; Compute the length of the marked region
(defun region-length ()
"length of a region"
(interactive)
(message (format "%d" (- (region-end) (region-beginning)))))
;; Custom Faces
(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.
'(highlight ((((type tty) (class color)) (:background "black" :foreground "white"))))
'(menu ((((type tty)) (:background "#749EC8" :foreground "white" :inverse-video t))))
'(mode-line ((t (:background "gray15" :foreground "gray38")))))
(setq inhibit-startup-message t)
(setq display-time-day-and-date t)
(setq display-time-24hr-format t)
(display-time)
(fset 'yes-or-no-p 'y-or-n-p)
(setq load-path (cons (expand-file-name "/usr/share/emacs/site-lisp") load-path))
(setq default-major-mode 'text-mode)
(add-hook 'text-mode-hook 'turn-on-auto-fill)
(setq-default transient-mark-mode t)
(add-hook 'emacs-lisp-mode-hook 'turn-on-font-lock)
(add-hook 'c-mode-hook 'turn-on-font-lock)
(global-font-lock-mode t)
(setq font-lock-maximum-decoration t)
(setq default-frame-alist
(append default-frame-alist
;;'((foreground-color . "yellow")
'((foreground-color . "gray50")
;; '((foreground-color . "wheat")
;; (background-color . "black")
;; (cursor-color . "green3"))))
)))
(autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t )
(autoload 'xml-mode "psgml" "Major mode to edit XML files." t)
(setq auto-mode-alist
(append
(list
'("\\.html$" . sgml-mode)
'("\\.phtml$" . sgml-mode)
'("\\.sgm$" . sgml-mode)
'("\\.sgml$" . sgml-mode)
'("\\.xml$" . xml-mode)
'("\\.xsl$" . xml-mode)
'("\\.dcl$" . dtd-mode)
'("\\.dec$" . dtd-mode)
'("\\.dtd$" . dtd-mode)
'("\\.ent$" . dtd-mode)
'("\\.mod$" . dtd-mode))
auto-mode-alist))
(setq sgml-validate-command "/usr/bin/nsgmls -s -c/etc/sgml/catalog %s %s")
(setq sgml-catalog-files '("/etc/sgml/catalog" "CATALOG"))
(setq xml-catalog-files '("/etc/xml/catalog" "CATALOG"))
(autoload 'dtd-mode "tdtd" "Major mode for SGML and XML DTDs.")
;; PSGML, courtesy of David Megginson, dmeggins@uottawa.ca
;;
(make-face 'sgml-comment-face)
(set-face-foreground 'sgml-comment-face "deepskyblue3")
(make-face 'sgml-doctype-face)
(set-face-foreground 'sgml-doctype-face "plum")
(make-face 'sgml-end-tag-face)
(set-face-foreground 'sgml-end-tag-face "green4")
(make-face 'sgml-ignored-face)
(set-face-foreground 'sgml-ignored-face "blue")
(make-face 'sgml-ms-end-face)
(set-face-foreground 'sgml-ms-end-face "maroon")
(make-face 'sgml-ms-start-face)
(set-face-foreground 'sgml-ms-start-face "maroon")
(make-face 'sgml-pi-face)
(set-face-foreground 'sgml-pi-face "mediumpurple3")
(make-face 'sgml-sgml-face)
(set-face-foreground 'sgml-sgml-face "maroon")
(make-face 'sgml-start-tag-face)
(set-face-foreground 'sgml-start-tag-face "green4")
(make-face 'sgml-entity-face)
(set-face-foreground 'sgml-entity-face "plum")
(make-face 'sgml-short-ref-face)
(set-face-foreground 'sgml-short-ref-face "firebrick")
(setq-default sgml-markup-faces
'((comment . sgml-comment-face)
(doctype . sgml-doctype-face)
(end-tag . sgml-end-tag-face)
(ignored . sgml-ignored-face)
(ms-end . sgml-ms-end-face)
(ms-start . sgml-ms-start-face)
(pi . sgml-pi-face)
(sgml . sgml-sgml-face)
(start-tag . sgml-start-tag-face)
(entity . sgml-entity-face)
(short-ref . sgml-short-ref-face)))
;;(setq-default sgml-auto-activate-dtd t)
(setq-default sgml-set-face t)
(setq-default sgml-auto-insert-required-elements t)
;;(setq-default sgml-general-dtd-info f)
(normal-erase-is-backspace-mode 1)
;(standard-display-european 1)
;(load-library "iso-ascii")
;; Emacs settings for NASM
;; 2002, written by Manfred Minimair
; Make sure that that emacs switches into assembler mode
; when a .asm file is opened.
(setq auto-mode-alist
(append
;; File name (within directory) ends with .asm
'(("\\.asm\\'" . asm-mode))
auto-mode-alist))
; Customize the compilation command for the assembler mode
; Compiles assembler files "file.asm" with
; make -k -e EXECUTABLE=file
(add-hook 'asm-mode-hook
(function
(lambda ()
(make-local-variable 'compile-command)
(setq compile-command
(concat "make -k -e EXECUTABLE="
(file-name-sans-extension
(file-name-nondirectory buffer-file-name)))
))))
;;(require 'gpl)
;;(require 'gpl-copying)
;;(setq gpl-organization "name")
;;(require 'xcscope)
;;(define-key global-map [ctrl f3] 'cscope-set-initial-directory)
;;(define-key global-map [(control f4)] 'cscope-unset-initial-directory)
;;(define-key global-map [(control f5)] 'cscope-find-this-symbol)
;;(define-key global-map [f2] 'cscope-find-global-definition)
;;(define-key global-map [(control f7)]
;; 'cscope-find-global-definition-no-prompting)
;;(define-key global-map [(control f8)] 'cscope-pop-mark)
;;(define-key global-map [(control f9)] 'cscope-next-symbol)
;;(define-key global-map [(control f10)] 'cscope-next-file)
;;(define-key global-map [(control f11)] 'cscope-prev-symbol)
;;(define-key global-map [(control f12)] 'cscope-prev-file)
;;(define-key global-map [(meta f9)] 'cscope-display-buffer)
;;(define-key global-map [(meta f10)] 'cscope-display-buffer-toggle)
;; nXML
;;(load "~/nxml-mode-20041004/rng-auto.el")
;;(setq auto-mode-alist
;; (cons '("\\.\\(xml\\|xsl\\|rng\\|xhtml\\)\\'" . nxml-mode)
;; auto-mode-alist))
;;(unify-8859-on-decoding-mode)