emacs: Redo again

1 files changed, 23 insertions, 16 deletions

diff --git a/.emacs.d/site-lisp/oni.el b/.emacs.d/site-lisp/oni.el
index a8d36e9..91c4e27 100644
--- a/.emacs.d/site-lisp/oni.el
+++ b/.emacs.d/site-lisp/oni.el
@@ -87,6 +87,10 @@ DOT are intentionally being skipped."
   (interactive)
   (server-save-buffers-kill-terminal nil))
 
+(defun oni:color-for (object)
+  "Generate a hex color by taking the first 6 characters of OBJECT's MD5 sum."
+  (format "#%s" (substring (md5 object) 0 6)))
+
 (defun oni:compile-el ()
   "Compile the current buffer file if it is an .el file."
   (let* ((full-file-name (buffer-file-name))
@@ -563,16 +567,6 @@ use.  If MODE is not nil, open a new buffer with the name
                 default-directory "' request-pull " (when patchp "-p ")
                 from " " url " " to))))))
 
-(defun oni:required-packages-installed-p ()
-  "Check if all the packages I need are installed."
-  (let ((tmp-packages oni:required-packages)
-        (result t))
-    (while (and tmp-packages result)
-      (if (not (package-installed-p (car tmp-packages)))
-          (setq result nil))
-      (setq tmp-packages (cdr tmp-packages)))
-    result))
-
 (defun oni:rst-mode-func ()
   "Function for `rst-mode-hook'."
   (auto-fill-mode))
@@ -639,6 +633,17 @@ If no direction is given, don't split."
     (emms-player-mpd-connect))
   (emms))
 
+(defun oni:start-python-test-mail-server ()
+  "Run the python test mailserver."
+  (interactive)
+  (start-process "python-test-mail-server" "*py-mail-server*" "python" "-m"
+                 "smtpd" "-n" "-c" "DebuggingServer" "localhost:1025"))
+
+(defun oni:stop-python-test-mail-server ()
+  "Stop the python test mailserver."
+  (interactive)
+  (kill-process "python-test-mail-server"))
+
 (defun oni:term-mode-func ()
   "Function for `term-mode-hook'."
   (setq truncate-lines nil))
@@ -676,6 +681,14 @@ for easy selection."
   "Initialization function for yasnippet."
   (diminish 'yas-minor-mode))
 
+(defvar oni:auto-save-name-transforms
+  `((".*" ,temporary-file-directory t))
+  "Place all auto-save files in `temporary-file-directory'.")
+
+(defvar oni:backup-directory-alist
+  `((".*" . ,temporary-file-directory))
+  "Palce all backup files in `temporary-file-directory'.")
+
 (defvar oni:mailbox-map
   '("top" ("menu"
            ("ryulash.org" . "ryuslash")
@@ -684,11 +697,5 @@ for easy selection."
            ("aethon"      . "aethon")))
   "A mailbox map for use with `tmm-prompt'.")
 
-(defvar oni:required-packages
-  '(graphviz-dot-mode htmlize magit rainbow-delimiters rainbow-mode
-    yasnippet markdown-mode flymake flymake-cursor sauron expand-region
-    git-auto-commit-mode idomenu magit smex)
-  "List of all the packages I have (want) installed.")
-
 (provide 'oni)
 ;;; oni.el ends here