Add some helper functions for blog entries

1 files changed, 17 insertions, 0 deletions

diff --git a/blog.el b/blog.el
new file mode 100644
index 0000000..a8827ad
--- /dev/null
+++ b/blog.el
@@ -0,0 +1,17 @@
+;Markdown mode doesn't provide anything
+;(require 'markdown)
+
+(defun blog-insert-cve-markdown-link ()
+  "Read DSA number and create link to security tracker"
+  (interactive)
+  (let* (
+         (bounds (or (and (markdown-use-region-p)
+                          (cons (region-beginning) (region-end)))
+                     (markdown-bounds-of-thing-at-point 'symbol)))
+         (text (if bounds
+                   (buffer-substring (car bounds) (cdr bounds))
+                 (read-string "CVE Number: ")))
+         (url (concat "http://security-tracker.debian.org/tracker/" text))
+	 )
+    (when bounds (delete-region (car bounds) (cdr bounds)))
+    (markdown-insert-reference-link text "" url "")))