Wednesday, 14 December 2011

.emasc customization

Here is is:

P.S. Why no cut and paste at the bottom?




;; .emacs

;;; uncomment this line to disable loading of "default.el" at startup
;; (setq inhibit-default-init t)

; Disable that annoying Emacs Splashscreen
(setq inhibit-splash-screen t)

;; Load!
(setq load-path (cons "~/emacs" load-path))

;; Allow R command automatically
(load "~/emacs/ess-5.8/lisp/ess-site.el")

;; turn on font-lock mode
(when (fboundp 'global-font-lock-mode)
 (global-font-lock-mode t))

;; enable visual feedback on selections
;(setq transient-mark-mode t)

;; default to better frame titles
(setq frame-title-format
     (concat  "%b - emacs@" (system-name)))

;; default to unified diffs
(setq diff-switches "-u")

;; always end a file with a newline
(setq require-final-newline 'query)



;; Handle my non-standard Perl extension
(setq auto-mode-alist (cons '("\\.plx$" . cperl-mode) auto-mode-alist))


;; Allow ?
;(load "~/emacs/bioperl.lisp")

; One DB
;(require 'sql)
;(defalias 'sql-get-login 'ignore)



;;; Some cool functions...

;; Auto INC
(defun increment-number-at-point ()
 (interactive)
 (skip-chars-backward "0123456789")
 (or (looking-at "[0123456789]+")
     (error "No number at point"))
 (replace-match (number-to-string (1+ (string-to-number (match-string 0))))))

;; Auto DEC
(defun decrement-number-at-point ()
 (interactive)
 (skip-chars-backward "0123456789")
 (or (looking-at "[0123456789]+")
     (error "No number at point"))
 (replace-match (number-to-string (1- (string-to-number (match-string 0))))))

;; Assign them
(global-set-key (kbd "C-c +") 'increment-number-at-point)
(global-set-key (kbd "C-c -") 'decrement-number-at-point)



;;; Biffy (http://www.cabochon.com/~stevey/blog-rants/effective-emacs.html)

;; Make M-x a handy new key stroke
(global-set-key "\C-x\C-m" 'execute-extended-command)
(global-set-key "\C-c\C-m" 'execute-extended-command)

;; Make Ctrl-w match shell behaviour
(global-set-key "\C-w"     'backward-kill-word)

;; (remap old Ctrl-w behaviour to the following)
(global-set-key "\C-x\C-k" 'kill-region)
(global-set-key "\C-c\C-k" 'kill-region)

;; Lose the UI
(if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
;(if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
;(if (fboundp 'menu-bar-mode) (menu-bar-mode -1))

;; Re-run a macro at the push of a (single) button
(global-set-key [f5]       'call-last-kbd-macro)

;; Make paragraph formatting easier to access
(global-set-key "\M-p" 'fill-paragraph)

;; Stop Ctrl-z being stupid (and make it a shameless customization)
(global-set-key "\C-z" 'undo)




(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.
 '(comint-move-point-for-output (quote others))
 '(comint-scroll-show-maximum-output t)
 '(comint-scroll-to-bottom-on-input t)
 '(comint-scroll-to-bottom-on-output t)
 '(cperl-indent-level 4)
 '(ess-ask-for-ess-directory nil)
 '(ess-help-own-frame (quote one))
 '(indent-tabs-mode nil)
 '(w3m-use-cookies 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.
 )

No comments: