README: Add GitHub link using an org dynamic block.

* README.org (Contributing): Add github-link dynamic block.
* build-aux/build-home-page.el (org-dblock-write:github-link): New
function.
(build-website): Update all org dynamic blocks. Do not insert GitHub
link using `search-forward' and `insert'.

2 files changed, 9 insertions, 4 deletions

diff --git a/README.org b/README.org
index 51c410d..450553f 100644
--- a/README.org
+++ b/README.org
@@ -20,6 +20,9 @@ introduction to ccwl.
 
 * Contributing
 
+#+BEGIN: github-link
+#+END:
+
 Feedback, suggestions, feature requests, bug reports and pull requests
 are all welcome. Unclear and unspecific error messages are considered
 a bug. Do report them!
diff --git a/build-aux/build-home-page.el b/build-aux/build-home-page.el
index 6ff4cd3..caad516 100644
--- a/build-aux/build-home-page.el
+++ b/build-aux/build-home-page.el
@@ -34,9 +34,11 @@
       org-html-head-include-scripts nil
       org-html-postamble nil)
 
+(defun org-dblock-write:github-link (params)
+  "Dynamically write github-link block."
+  (insert "ccwl is developed on [[https://github.com/arunisaac/ccwl][GitHub]]."))
+
 (defun build-website ()
-  (with-temp-buffer
-    (insert-file-contents "README.org")
-    (search-forward "* Contributing\n\n")
-    (insert "ccwl is developed on [[https://github.com/arunisaac/ccwl][GitHub]]. ")
+  (with-current-buffer (find-file "README.org")
+    (org-update-all-dblocks)
     (org-export-to-file 'html "website/index.html")))