Re: Counting SLOC in Emacs

[Marcin Borkowski]

On 2014-11-28, at 12:23, Marcin Borkowski wrote:

> Hello,
>
> there is count-lines-region, but I'd like to exclude empty lines and
> lines with only comments.  Is there anything like that?  (If not, I'll
> try to hack it myself and share.)

OK, so replyaing to myself: what do you think of this?

(defun count-sloc-region (beg end)
  "Count source lines of code in region (or (narrowed part of)
the buffer when no region is active).  SLOC means that empty
lines and comment-only lines are not taken into consideration."
  (interactive
   (if (use-region-p)
       (list (region-beginning) (region-end))
     (list (point-min) (point-max))))
  (save-excursion
    (save-restriction
      (narrow-to-region beg end)
      (goto-char (point-min))
      (let ((count 0))
        (while (not (eobp))
          (if (not (comment-only-p (line-beginning-position) 
(line-end-position)))
              (setq count (1+ count)))
          (forward-line))
        (message "SLOC in %s: %s."
                 (if (use-region-p) "region" "buffer")
                 count)))))

Regards,

-- 
Marcin Borkowski
http://octd.wmi.amu.edu.pl/en/Marcin_Borkowski
Faculty of Mathematics and Computer Science
Adam Mickiewicz University