Shows haredoc for the current word under cursor in the GNU/Emacs bufer.

haredoc.el

(require 'ansi-color)

;; Shows haredoc for the selected or word.
(defun haredoc ()
  "Run the haredoc with the current word under the cursor and display
the results in a new buffer."
  (interactive)
  (let* ((current-word
	  (if (use-region-p) ;; Use region or the current word
	      (setq current-word (buffer-substring-no-properties (region-beginning) (region-end)))
	    (setq current-word (thing-at-point 'word t))))   ;; Get the current word
	 (command (concat "haredoc -a -F tty " current-word)) ;; Create the command string
	 (output (shell-command-to-string command)) ;; Run the command and capture the output
	 (buffer-name (concat "*haredoc: " current-word "*")))  ;; Name for the output buffer
    (with-output-to-temp-buffer buffer-name         ;; Create and display the buffer
      (with-current-buffer buffer-name (insert output)
      (ansi-color-apply-on-region (point-min) (point-max))))))