initial emacs

emacs/configurations.el

@@ -0,0 +1,22 @@
+;; M-o rocca
+(global-unset-key (kbd "M-o"))
+(global-set-key (kbd "M-o") 'other-window)
+
+;; moris day mode
+(display-time-mode 1)
+
+;; not ur mother's emacs
+(setq sentence-end-double-space nil)
+
+;; lazy
+(fset 'yes-or-no-p 'y-or-n-p)
+
+;; what file am i editing?
+(global-set-key (kbd "C-c f")
+		(lambda ()
+		  (interactive)
+		  (message "%s" buffer-file-name)))
+
+;; handy for sexps
+(global-set-key (kbd "C-M-<backspace>")
+		'backward-kill-sexp)

emacs/functions.el

@@ -0,0 +1,15 @@
+(defun define-word ()
+  ;; TODO: needs refinement
+  (interactive)
+  (let ((myword (word-at-point)))
+    ;;    (message (shell-command-to-string (concat "mw " myword)))))
+    (with-current-buffer (current-buffer)
+      (save-excursion
+	(set-buffer "worddef")
+	(erase-buffer)))
+    (call-process "mw" nil "worddef" nil myword)
+    (with-current-buffer (current-buffer)
+      (save-excursion
+	(set-buffer "worddef")
+	(ansi-color-apply-on-region (point-min) (point-max))))
+    (display-buffer-pop-up-window (get-buffer "worddef") '())))