Add strip-comment-lines command

1 files changed, 20 insertions, 0 deletions

diff --git a/lisp/km-editing.el b/lisp/km-editing.el
index 34f7130..c4ec954 100644
--- a/lisp/km-editing.el
+++ b/lisp/km-editing.el
@@ -104,6 +104,26 @@ XSELECT is non-nil, copy the region with `x-select-text'."
          (buffer-substring-no-properties (point-min) (point-max)))))
     (pop-to-buffer wrapped-buffer)))
 
+;;;###autoload
+(defun km/strip-comment-lines (beg end)
+  "Export text to a new buffer, removing commented lines.
+Any line starting with `comment-start' is considered a commented
+line.  Text is limited to BEG and END, as defined by the active
+region.  If there is no region, the whole buffer is used."
+  (interactive (if (use-region-p)
+                   (list (region-beginning) (region-end))
+                 (list (point-min) (point-max))))
+  (let ((comment-char (or comment-start
+                          (user-error "No comment character is defined")))
+        (text (buffer-substring-no-properties beg end)))
+    (with-current-buffer (get-buffer-create
+                          (concat "*" (buffer-name) " - no comments*"))
+      (erase-buffer)
+      (insert text)
+      (goto-char (point-min))
+      (flush-lines (concat "^" (regexp-quote comment-char) ".*$"))
+      (pop-to-buffer (current-buffer)))))
+
 (defun km/delete-comment-lines (orig-buf)
   (let ((comment-char (with-current-buffer orig-buf
                         comment-start)))