Create create-license-hook

1 files changed, 11 insertions, 2 deletions

diff --git a/create-license.el b/create-license.el
index cd7bf11..ba108ba 100644
--- a/create-license.el
+++ b/create-license.el
@@ -48,6 +48,13 @@ dot."
   :group 'create-license
   :type 'string)
 
+(defcustom create-license-hook nil
+  "Hook run after `create-license'.
+
+Functions in this hook are called with no arguments."
+  :group 'create-license
+  :type 'hook)
+
 (defvar create-license--hist nil
   "History for `create-license'.")
 
@@ -67,8 +74,10 @@ The destination file name under DIR is given by
 	nil))))
 
   (if name
-      (copy-file (expand-file-name name create-license-directory)
-		 (expand-file-name create-license-file-name dir))
+      (progn
+	(copy-file (expand-file-name name create-license-directory)
+		   (expand-file-name create-license-file-name dir))
+	(run-hooks 'create-license-hook))
     (message "No license found in \"%s\", you may want to run \
 `create-license-download-common'"
 	     create-license-directory)))