maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Cleanup and evil setup

Browse source 
Removed several functions from init-functions that I didn't
actually use.

Lots of other cleanup.

The variable "is-vim-user" in init.el controls whether or not
evil packages should be installed and configured.
This commit is contained in:
Vincent Ambo 2013-10-17 14:17:38 +02:00
parent cbecd5031d
commit 2acc9f23fa
6 changed files with 72 additions and 138 deletions
Download patch file Download diff file Expand all files Collapse all files

50
init-functions.el
View file

@ -20,13 +20,13 @@
(unless (file-exists-p file)
(url-copy-file url file))))
(defun custom-download-script (url filename)
(defun custom-download-script (url filename)
"Downloads an Elisp script, places it in ~/.emacs/other and then loads it"
;; Ensure the directory exists
(unless (file-exists-p "~/.emacs.d/other")
(make-directory "~/.emacs.d/other"))
;; Download file if it doesn't exist.
(let ((file
(concat "~/.emacs.d/other/" filename)))
@ -69,30 +69,6 @@
(call-interactively 'goto-line))
(linum-mode -1)))
(defun rotate-windows ()
"Rotate your windows"
(interactive)
(cond ((not (> (count-windows)1))
(message "You can't rotate a single window!"))
(t
(setq i 1)
(setq numWindows (count-windows))
(while (< i numWindows)
(let* (
(w1 (elt (window-list) i))
(w2 (elt (window-list) (+ (% i numWindows) 1)))
(b1 (window-buffer w1))
(b2 (window-buffer w2))
(s1 (window-start w1))
(s2 (window-start w2))
)
(set-window-buffer w1 b2)
(set-window-buffer w2 b1)
(set-window-start w1 s2)
(set-window-start w2 s1)
(setq i (1+ i)))))))
(defun untabify-buffer ()
(interactive)
@ -111,22 +87,6 @@ Including indent-buffer, which should not be called automatically on save."
(indent-buffer))
;; These come from the emacs starter kit
(defun esk-pretty-lambdas ()
(font-lock-add-keywords
nil `(("(?\\(lambda\\>\\)"
(0 (progn (compose-region (match-beginning 1) (match-end 1)
,(make-char 'greek-iso8859-7 107))
nil))))))
(defun esk-eval-and-replace ()
"Replace the preceding sexp with its value."
(interactive)
(backward-kill-sexp)
(condition-case nil
(prin1 (eval (read (current-kill 0)))
(current-buffer))
(error (message "Invalid expression")
(insert (current-kill 0)))))
(defun esk-add-watchwords ()
(font-lock-add-keywords
@ -139,8 +99,4 @@ Including indent-buffer, which should not be called automatically on save."
(find-file (concat "/sudo:root@localhost:" (ido-read-file-name "File: ")))
(find-alternate-file (concat "/sudo:root@localhost:" buffer-file-name))))
(defun speak (m &optional voice)
(shell-command (if 'voice (concat "say -v " voice " \"" m "\"")
(concat "say " m))))
(provide 'init-functions)