totp.el

totp.el

(defun call-function-on-region (cmd args &optional b e)
  (let ((buf (buffer-substring b e)))
    (with-temp-buffer
      (apply #'call-process cmd nil t nil (append args (list buf))) ;;(split-string buf)))
      (let ((bufstr (buffer-string)))
	(x-select-text bufstr)
	(kill-new bufstr)
	(princ bufstr)))
	(deactivate-mark)))

(defun totp (&optional b e)
  (interactive "r")
  (call-function-on-region "oathtool" '("--totp" "-b" "-d 6") b e))