   (let* ((myWord (thing-at-point 'symbol))
          (myUrl (concat "dict://" myWord)))
     (browse-url myUrl)))
-
+(defun mjhoy/lookup-dash ()
+  "Query Dash.app for the current word."
+  (interactive)
+  (let* ((myWord (thing-at-point 'symbol))
+         (myUrl (concat "dash://" myWord)))
+    (browse-url myUrl)))
 
 ;; global bindings
 ;; ===============

; apple dictionary search of current word
; (replaces 'describe-no-warranty)
(global-set-key (kbd "C-h C-w") 'mjhoy/lookup-apple-dictionary)

;; begone, crazy command
(global-unset-key (kbd "C-x C-u"))

;; org agenda
(global-set-key (kbd "C-c a") 'org-agenda)

;; magit stuff

;; magit-blame-mode
(global-set-key (kbd "C-x g b") 'magit-blame-mode)

;; haskell
;; =======
