bloggo ergo sum » elisp http://bloggoergosum.com Mon, 10 Oct 2011 04:42:56 +0000 en hourly 1 http://wordpress.org/?v=3.3.1 First Things in my .emacs http://bloggoergosum.com/2006/07/02/first-things-in-my-emacs/ http://bloggoergosum.com/2006/07/02/first-things-in-my-emacs/#comments Mon, 03 Jul 2006 04:21:11 +0000 Ben http://bloggoergosum.us/2006/07/02/first-things-in-my-emacs/ Pardon the extra linebreaks. I don’t normally format my lisp code this way, but the layout of my blog makes this snippet linewrap and hard to read.

(global-font-lock-mode t)

(defvar autosave-dir "~/.emacs.d/autosave")
(make-directory autosave-dir t)

(defun auto-save-file-name-p (filename)
  (string-match "^#.*#$"
                     (file-name-nondirectory filename)))

(defun make-auto-save-file-name ()
  (concat autosave-dir
          (if buffer-file-name
              (concat "#"
                         (file-name-nondirectory buffer-file-name)
                         "#")
            (expand-file-name (concat "#%"
                                                 (buffer-name)
                                                 "#")))))

(defvar backup-dir "~/.emacs.d/backup")
(make-directory backup-dir t)
(setq backup-directory-alist (list (cons "." backup-dir)))
]]> http://bloggoergosum.com/2006/07/02/first-things-in-my-emacs/feed/ 0