From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Emanuel Berg Newsgroups: gmane.emacs.devel Subject: Re: [External] : Emacs website, Lisp, and other Date: Thu, 15 Aug 2024 11:27:34 +0200 Message-ID: <871q2qb0ft.fsf@dataswamp.org> References: <87sevj9b50.fsf@jeremybryant.net> <86h6bzqj2v.fsf@gnu.org> <87ed718o45.fsf@jeremybryant.net> <87le186g3f.fsf@dataswamp.org> <87bk1ub98z.fsf@dataswamp.org> <875xs2b470.fsf@dataswamp.org> Mime-Version: 1.0 Content-Type: text/plain Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="7471"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) To: emacs-devel@gnu.org Cancel-Lock: sha1:xgsNsf3MT2/+BFb6AxjDSN3ulmg= Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Thu Aug 15 11:33:13 2024 Return-path: Envelope-to: ged-emacs-devel@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 1seWr2-0001gE-UI for ged-emacs-devel@m.gmane-mx.org; Thu, 15 Aug 2024 11:33:12 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1seWqh-0006cu-Eg; Thu, 15 Aug 2024 05:32:51 -0400 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 1seWlo-0000TE-DR for emacs-devel@gnu.org; Thu, 15 Aug 2024 05:27:48 -0400 Original-Received: from ciao.gmane.io ([116.202.254.214]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1seWll-0005CL-0t for emacs-devel@gnu.org; Thu, 15 Aug 2024 05:27:47 -0400 Original-Received: from list by ciao.gmane.io with local (Exim 4.92) (envelope-from ) id 1seWlh-00068D-HJ for emacs-devel@gnu.org; Thu, 15 Aug 2024 11:27:41 +0200 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: emacs-devel@gnu.org Mail-Copies-To: never Received-SPF: pass client-ip=116.202.254.214; envelope-from=ged-emacs-devel@m.gmane-mx.org; helo=ciao.gmane.io X-Spam_score_int: -16 X-Spam_score: -1.7 X-Spam_bar: - X-Spam_report: (-1.7 / 5.0 requ) BAYES_00=-1.9, HEADER_FROM_DIFFERENT_DOMAINS=0.25, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=no autolearn_force=no X-Spam_action: no action X-Mailman-Approved-At: Thu, 15 Aug 2024 05:32:50 -0400 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.devel:322777 Archived-At: Here are the "worst 25" according to the Elisp below: 1. gnus 2630 2. org 1727 3. erc 1283 4. slime 1074 5. mh 714 6. w3m 710 7. c 606 8. comp 603 9. tramp 475 10. vc 474 11. eshell 462 12. subed 438 13. cl 423 14. markdown 420 15. dired 308 16. epg 302 17. url 292 18. message 273 19. byte 258 20. rmail 250 21. make 218 22. package 206 23. widget 202 24. window 201 25. custom 192 (require 'cl-lib) (defun count-list (l) (cl-loop with res with done for e in l while l do (unless (member e done) (push (list e (cl-count e l :test #'equal)) res) (push e done)) finally return (cl-sort res #'>= :key #'cadr))) (defun result-list (l) (cl-loop with str = "" for (e o) in l for i from 1 do (setq str (format "%s\n%3d. %-8s %5d" str i e o)) finally return str)) (defvar funs) (setq funs nil) (mapatoms (lambda (e) (when (and (fboundp e) (functionp e) (not (listp e))) (cl-pushnew e funs)))) (length funs) ; 30 443 (setq libs (mapcar (lambda (e) (let* ((str (symbol-name e)) (dash (string-match "-" str))) (when dash (substring str 0 dash)))) funs)) (length libs) ; 30 443 (setq libs (cl-remove-if (lambda (e) (or (not e) (string-match "(" e))) libs)) (length libs) ; 29 761 (-1203) (setq libs (cl-sort libs #'string<)) (length libs) ; 29 761 (insert "\n" (result-list (seq-take (count-list libs) 25))) -- underground experts united https://dataswamp.org/~incal