;; .emacs
;;; uncomment this line to disable loading of "default.el" at startup
;; (setq inhibit-default-init t)
;; turn on font-lock mode
(when (fboundp 'global-font-lock-mode)
(global-font-lock-mode t))
(font-lock-mode)
;; enable visual feedback on selections
(setq transient-mark-mode t)
;; default to better frame titles
;(setq frame-title-format
; (concat "%b - emacs@" system-name))
;;set inferior lisp
;(setq inferior-lisp-program "lisp")
(auto-fill-mode t)
(setq user-full-name "Reuben Francis Cornel")
(setq font-lock-maximum-decoration t)
(setq default-frame-alist
'((font . "-Adobe-Courier-Medium-R-Normal--14-140-75-75-M-90-ISO8859-1"))
)
(setq display-time-24hr-format t)
(setq display-time-day-and-date t)
(display-time)
;; go to specific line in current buffer
(global-unset-key "\M-g")
(global-set-key "\M-g" 'goto-line)
;; Remap Home and End keys to move within current line, and C-Home and
;; C-End keys to beginning and end of buffer
(global-set-key [home] 'beginning-of-line)
(global-set-key [end] 'end-of-line)
(global-set-key [C-home] 'beginning-of-buffer)
(global-set-key [C-end] 'end-of-buffer)
;; Scroll just one line when hitting the bottom of the window
(setq scroll-step 1)
;; Maps F1 to give the manual entry for the current word
(global-set-key [(f1)] (lambda () (interactive) (manual-entry (current-word))))
;; Make the % key jump to the matching {}[]() if on another, like VI
(global-set-key "%" 'match-paren)
(defun match-paren (arg)
"Go to the matching parenthesis if on parenthesis otherwise insert %."
(interactive "p")
(cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
((looking-at "\\s\)") (forward-char 1) (backward-list 1))
(t (self-insert-command (or arg 1)))))
;;set diary file.
(setq diary-file "~/.diary")
(setq european-calender-style t)
;;C indentation Offset
(setq basic-c-offset 8)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Backups
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Tell emacs to save backups in the global backups directory...
(defun make-backup-file-name(file)
(concat "~/emacs/emacsAutosave/" (file-name-nondirectory file) "~"))
;switch of beeps
(setq visible-bell t)
;switch on bar cursor
(bar-cursor-mode 1)
(custom-set-variables
'(load-home-init-file t t))
(custom-set-faces)
;SLIME
(setq inferior-lisp-program "lisp")
;(add-to-list 'load-path "/home/project/slime")
;(require 'slime)
;(slime-setup)