blob: 0a2d2a1144670fde2227a765da0136ddc97d10d6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
;;; 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:
(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
|
