diff options
| -rw-r--r-- | blog.el | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/blog.el b/blog.el index 0b4c2c333f..102aa37914 100644 --- a/blog.el +++ b/blog.el @@ -32,6 +32,11 @@ :group 'elblog :type 'string) +(defcustom elblog-additional-routes '() + "Additional Elnode routes to register in the Elblog instance" + :group 'elblog + :type '(alist :key-type regexp :value-type function)) + ;; Declare user-configurable variables needed at runtime. (defvar elblog-articles (ht-create) @@ -94,11 +99,15 @@ ;; Web server implementation -(defvar-local elblog-routes - '(("^.*//en/\\(.*\\)" . blog-post-handler))) +(defvar elblog-routes + '(("^.*//\\(.*\\)" . blog-post-handler)) + "The default routes available in elblog. They can be extended by the user +by setting the elblog-additional-routes customize option.") (defun elblog-handler (httpcon) - (elnode-hostpath-dispatcher httpcon elblog-routes)) + (elnode-hostpath-dispatcher + httpcon + (-concat elblog-additional-routes elblog-routes))) (defun start-elblog () (interactive) |