paste-dry.el

(setq paste-dry-v "")
(setq paste-dry-txt "")
(defun paste-dry-setup (v txt)
  "Setup a paste-dry"
  (interactive
   (list
    (read-string
     (format "Variable [%s]: " paste-dry-v)
     nil nil
     paste-dry-v-def)
    (read-string "Template [%s]: " paste-dry-txt)))
  (setq paste-dry-v v)
  (setq paste-dry-txt txt))

(defun paste-dry (val)
  (interactive
   (list
    (read-string (format "%s = ? " paste-dry-v))))
  (insert (string-replace (concat ":" paste-dry-v) val paste-dry-txt)))