Skip to content

Commit

Permalink
Merge pull request #1 from nicferrier/master
Browse files Browse the repository at this point in the history
simple changes for packageness.
  • Loading branch information
yonkeltron committed Jul 22, 2012
2 parents 84de103 + 7f51057 commit 614d51e
Showing 1 changed file with 4 additions and 0 deletions.
4 changes: 4 additions & 0 deletions terrible-template.el
Expand Up @@ -5,6 +5,7 @@
;; Author: Jonathan E. Magen <yonkeltron@gmail.com>
;; Maintainer: Jonathan E. Magen <yonkeltron@gmail.com>
;; Created: 2012-07-22
;; Version: 20120722001
;; Keywords: lisp, template

;; This file is NOT part of GNU Emacs.
Expand Down Expand Up @@ -86,6 +87,7 @@
(cadr key-value-pair)
template-string))

;;;###autoload
(defun terrible-template-apply-template (template-string &rest key-value-pairs)
"Apply a terrible template by interpolating all variables according to provided values"
(terrible-template-log (concat "Key value pairs: " (prin1-to-string key-value-pairs t)))
Expand All @@ -102,6 +104,7 @@
(terrible-template-error "Wrong number of key-value pairs provided for template")
(terrible-template-apply-template template-string key-value-pairs))))

;;;###autoload
(defun terrible-template-insert (template-name)
(interactive
(list (completing-read "Template name: " (terrible-template-get-template-names))))
Expand All @@ -127,6 +130,7 @@
*terrible-template-global-template-list*)
names))

;;;###autoload
(defmacro defterrible (template-name &rest template-body)
(let ((contents nil)
(tags nil))
Expand Down

0 comments on commit 614d51e

Please sign in to comment.