davidam.el: add davidam-org-envolve-check-list
authorDavid Arroyo Menendez <davidam9@riseup.net>
Tue, 18 Mar 2014 22:40:40 +0000 (23:40 +0100)
committerDavid Arroyo Menendez <davidam9@riseup.net>
Tue, 18 Mar 2014 22:40:40 +0000 (23:40 +0100)
code/elisp/davidam.el

index b886b8e..4d6b90e 100644 (file)
     (setq num (+ 1 num))
     (forward-line)))
 
+(defun davidam-org-envolve-check-list()
+  "Itemize some lines as a checked list"
+  (interactive)
+  (setq num 1)
+  (setq max (+ 1 (count-lines (point) (mark))))
+  (if (> (point) (mark))
+      (goto-line (+ 1 (count-lines 1 (mark))))
+    (goto-line (+ 1 (count-lines 1 (point)))))
+  (while (< num max)
+    (move-beginning-of-line nil)
+    (insert (concat "+ [ ] "))
+    (setq num (+ 1 num))
+    (forward-line)))
+
 (defun davidam-org-envolve-src(msg)
   "Envolve source between org tags"
   (interactive "sChoose your programming language: " msg)