From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Marcin Borkowski Newsgroups: gmane.emacs.help Subject: Re: Size of startup files Date: Tue, 22 Nov 2022 11:44:10 +0100 Message-ID: <87pmdfclqd.fsf@mbork.pl> References: <875yf9xvja.phibqa@vnoxvs.kbxpyjyhg.info> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="35953"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: mu4e 1.1.0; emacs 29.0.50 Cc: help-gnu-emacs@gnu.org To: Bob Newell Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Tue Nov 22 11:44:54 2022 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1oxQlq-0009Ak-60 for geh-help-gnu-emacs@m.gmane-mx.org; Tue, 22 Nov 2022 11:44:54 +0100 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1oxQlP-0000n1-Au; Tue, 22 Nov 2022 05:44:27 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oxQlN-0000mq-RZ for help-gnu-emacs@gnu.org; Tue, 22 Nov 2022 05:44:25 -0500 Original-Received: from mail.mojserwer.eu ([195.110.48.8]) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1oxQlL-0005Ut-Ku for help-gnu-emacs@gnu.org; Tue, 22 Nov 2022 05:44:25 -0500 Original-Received: from localhost (localhost [127.0.0.1]) by mail.mojserwer.eu (Postfix) with ESMTP id 5237A7BCB27; Tue, 22 Nov 2022 11:44:18 +0100 (CET) X-Virus-Scanned: Debian amavisd-new at mail.mojserwer.eu Original-Received: from mail.mojserwer.eu ([127.0.0.1]) by localhost (mail.mojserwer.eu [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id gYCkyJ8ZmWRn; Tue, 22 Nov 2022 11:44:14 +0100 (CET) Original-Received: from localhost (83.21.58.31.ipv4.supernova.orange.pl [83.21.58.31]) by mail.mojserwer.eu (Postfix) with ESMTPSA id 516817E38E8; Tue, 22 Nov 2022 11:44:14 +0100 (CET) In-reply-to: <875yf9xvja.phibqa@vnoxvs.kbxpyjyhg.info> Received-SPF: pass client-ip=195.110.48.8; envelope-from=mbork@mbork.pl; helo=mail.mojserwer.eu X-Spam_score_int: -25 X-Spam_score: -2.6 X-Spam_bar: -- X-Spam_report: (-2.6 / 5.0 requ) BAYES_00=-1.9, RCVD_IN_DNSWL_LOW=-0.7, RCVD_IN_MSPIKE_H3=0.001, RCVD_IN_MSPIKE_WL=0.001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.help:141102 Archived-At: On 2022-11-20, at 20:42, Bob Newell wrote: > Aloha, > > This is just a 'curiosity' question as I wonder if I am off > the deep end even for an Emacs user, which would be really > saying something. > > I just took a quick look and found that my startup files > (called from .emacs and so on) amount to about 5,000 lines of > elisp. Of course I comment extensively but at least half of > this or more is actual code. (shameless-plug In the Elisp book I wrote last year I included a fairly simple code to count SLOC, excluding blank lines and comment-only lines. Why not try this on your init file? --8<---------------cut here---------------start------------->8--- ; -*- lexical-binding: t; -*- (defun count-sloc--count-lines-if (predicate begin end) "Count lines satisfying PREDICATE from BEGIN to END. PREDICATE should accept no arguments." (save-excursion (save-restriction (narrow-to-region begin end) (goto-char begin) (let ((count 0)) (while (not (eobp)) (when (funcall predicate) (setq count (1+ count))) (forward-line)) count)))) (defun count-sloc--act-on-region-or-buffer (func message) "Perform FUNC on region or buffer and print MESSAGE. FUNC should accept two arguments, the beginning and end of the range it operates on. If MESSAGE contains a placeholder (e.g. \"%s\"), the return value of FUNC is substituted for it." (let (begin end) (if (use-region-p) (setq begin (region-beginning) end (region-end)) (setq begin (point-min) end (point-max))) (message message (funcall func begin end)))) (defun count-sloc--comment-or-blank-line-p () "Return t if the point is at a comment line. Assume that the point is at the beginning of line." (unless (nth 3 (syntax-ppss)) (save-excursion (let ((orig-line-number (line-number-at-pos))) (forward-comment 1000) (or (not (eq orig-line-number (line-number-at-pos))) (eobp)))))) (defun count-sloc--negate (fun) "Return a function returning the logical opposite of FUN." (lambda (&rest args) (not (apply fun args)))) (defun count-sloc () "Count non-blank lines in the region or buffer." (interactive) (count-sloc--act-on-region-or-buffer (apply-partially #'count-sloc--count-lines-if (count-sloc--negate #'count-sloc--comment-or-blank-line-p)) "Non-blank lines: %s")) --8<---------------cut here---------------end--------------->8--- My init.el is 1591 lines long (excluding comment/blank lines) and 2317 lines including them. (But it includes a few other files.) Also, my init.el is /very/ messy (I will make it better Some Day=E2=84=A2.) ) Best, --=20 Marcin Borkowski http://mbork.pl