;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/time-incal.el

(require 'subr-x)

(defun insert-shell-command (cmd)
  (interactive "s Command: ")
  (let ((pos (point))
        (end (point-max)) )
    (shell-command cmd 1)
    (goto-char (+ pos (- (point-max) end 1))) )
  (delete-char 1) )

(defun message-shell-command-output (cmd)
  (interactive "s$ ")
  (with-temp-buffer
    (shell-command cmd 1)
    (message (buffer-substring (point-min) (1- (point-max)))) ))

(provide 'time-incal)