forked from jaley/.emacs.d
-
Notifications
You must be signed in to change notification settings - Fork 0
/
init.el
81 lines (65 loc) · 2.16 KB
/
init.el
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
;;
;; Package manager settings
;;
(require 'package)
(add-to-list 'package-archives
'("marmalade" . "http://marmalade-repo.org/packages/") t)
(package-initialize)
(when (not package-archive-contents)
(package-refresh-contents))
(defvar installed-packages '(starter-kit
starter-kit-lisp
starter-kit-bindings
clojure-mode
clojure-project-mode
clojure-test-mode
clojurescript-mode
slime
slime-repl
durendal)
"Emacs packages to be installed if they aren't already.")
;; Remove the annoying line highlighting that is turned on in the
;; Emacs Starter Kit.
(remove-hook 'prog-mode-hook 'esk-turn-on-hl-line-mode)
(dolist (p installed-packages)
(when (not (package-installed-p p))
(package-install p)))
;; We don't want custom messing with this file
(setq custom-file "~/.emacs.d/custom.el")
(load custom-file)
;;
;; Frame appearance
;;
(menu-bar-mode -1)
(tool-bar-mode -1)
(scroll-bar-mode -1)
(show-paren-mode 1)
(transient-mark-mode 1)
(add-hook 'find-file-hook (lambda ()
(linum-mode 1)
(line-number-mode -1)))
(setq inhibit-startup-screen t)
;;
;; Editing behaviour
;;
(setq-default indent-tabs-mode nil)
(setq x-select-enable-clipboard t)
(setq backup-directory-alist '(("." . "~/.emacs.d/backups")))
;;
;; Custom functions/keybindings
;;
;; Fullscreen mode, bound to F11
(defun toggle-fullscreen (&optional f)
(interactive)
(let ((current-value (frame-parameter nil 'fullscreen)))
(set-frame-parameter nil 'fullscreen
(if (equal 'fullboth current-value)
(if (boundp 'old-fullscreen) old-fullscreen nil)
(progn (setq old-fullscreen current-value)
'fullboth)))))
(global-set-key [f11] 'toggle-fullscreen)
;; Insert a date in the format 2012-09-20
(defun my-insert-date ()
(interactive)
(insert (format-time-string "%Y-%m-%d")))
(global-set-key (kbd "C-%") 'my-insert-date)