File handling

3 files changed, 123 insertions, 0 deletions

diff --git a/.gitignore b/.gitignore
index 6d7875c..ef11b3f 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,2 +1,3 @@
 elpa
+past
 *.elc
diff --git a/init.el b/init.el
index 3649b07..c26bdb7 100644
--- a/init.el
+++ b/init.el
@@ -57,3 +57,4 @@
 ;; Initialize appearnace
 (require 'ravi-init-marks)
 (require 'ravi-init-appearance)
+(require 'ravi-init-files)
diff --git a/ravi-init-files.el b/ravi-init-files.el
new file mode 100644
index 0000000..1341b21
--- /dev/null
+++ b/ravi-init-files.el
@@ -0,0 +1,121 @@
+;;; ravi-init-files.el --- file-handling
+
+;; Copyright (C) 2013  
+
+;; Author:  <ravi@nero.lan>
+;; Keywords:
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; File handling
+
+;;; Code:
+
+;; Find file based on context
+(require 'ffap)
+;; \todo Prevent opening of remote files via ffap
+
+(setq delete-auto-save-files t)
+(setq dired-listing-switches "-Flag")
+(setq completion-ignored-extensions
+      (append completion-ignored-extensions
+	      (quote (".bak" ".#*#" ".ps" ".pdf"))))
+
+;; Auto refresh buffers
+(global-auto-revert-mode 1)
+
+;; Also auto refresh dired, but be quiet about it
+(setq global-auto-revert-non-file-buffers t)
+(setq auto-revert-verbose nil)
+
+;; Transparently open compressed files
+(auto-compression-mode t)
+
+;; UTF-8 please
+(setq locale-coding-system 'utf-8) ; pretty
+(set-terminal-coding-system 'utf-8) ; pretty
+(set-keyboard-coding-system 'utf-8) ; pretty
+(set-selection-coding-system 'utf-8) ; please
+(prefer-coding-system 'utf-8) ; with sugar on top
+
+(setq history-length 100)
+(setq savehist-file (ravi/emacs-file "past/history"))
+(savehist-mode 1)
+(setq history-delete-duplicates t)
+
+(require 'saveplace)
+(setq-default save-place t)
+(setq save-place-file (ravi/emacs-file "past/places"))
+
+(require 'recentf)
+(setq recentf-save-file (ravi/emacs-file "past/recentf"))
+(recentf-mode 1)
+(setq recentf-max-saved-items 100) ;; just 20 is too recent
+
+(require 'uniquify)
+(setq uniquify-buffer-name-style 'post-forward)
+(setq uniquify-after-kill-buffer-p t) ; rename after killing uniquified
+(setq uniquify-ignore-buffers-re "^\\*") ; don't muck with special buffers
+
+(setq minibuffer-completion-confirm t)
+(setq find-file-confirm-nonexistent-file t)
+(setq find-file-visit-truename t)
+
+;; Automatic loading of file trees
+(defun ravi-check-dir-accessible-p (name)
+  "Check whether NAME is accessible as a directory"
+  (let* ((topname (file-name-as-directory name))
+	 (name-exists (and (file-exists-p topname)
+			   (file-directory-p topname)
+			   (file-accessible-directory-p topname)
+			   topname)))
+         name-exists
+	 ))
+
+(defun ravi-filecache-add-tree (root recursive simple)
+  "Add list of directories to filecache for easy opening.
+ROOT is the root of the tree to be added. RECURSIVE is a list of
+relative paths whose subdirectories are added recursively, while
+relative paths in SIMPLE are added non-recursively. If a path does
+not exist, it is not added to the filecache."
+
+  (let ((topname (ravi-check-dir-accessible-p root))
+	(dirval nil))
+    (when topname
+      (dolist (dir recursive)
+	(setq dirval (ravi-check-dir-accessible-p
+		      (expand-file-name dir topname)))
+	(and dirval
+	     (file-cache-add-directory-recursively dirval)))
+      (dolist (dir simple)
+	(setq dirval (ravi-check-dir-accessible-p
+		      (expand-file-name dir topname)))
+	(and dirval
+	     (file-cache-add-directory dirval)))
+      )))
+
+;; Write backup files to own directory
+(make-directory (ravi/emacs-file "past/backups/") t)
+(setq backup-by-copying t)
+(setq backup-directory-alist
+      `(("." . ,(ravi/emacs-file "past/backups/"))
+        (,tramp-file-name-regexp nil)))
+
+;; Make backups of files, even when they're in version control
+(setq vc-make-backup-files t)
+
+(provide 'ravi-init-files)
+;;; ravi-init-files.el ends here