(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") '())))