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 18:03:18 +0200 Message-ID: <87ttfl4vuh.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> <871q2qb0ft.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="21362"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) To: emacs-devel@gnu.org Cancel-Lock: sha1:9jNLNtJEPQ6YDVdC9S/uReTPUeQ= Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Thu Aug 15 18:23:59 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 1sedGZ-0005OK-5a for ged-emacs-devel@m.gmane-mx.org; Thu, 15 Aug 2024 18:23:59 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1sedFd-0006T6-Kp; Thu, 15 Aug 2024 12:23:01 -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 1secwj-0000Uf-RJ for emacs-devel@gnu.org; Thu, 15 Aug 2024 12:03:29 -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 1secwh-0003J3-TO for emacs-devel@gnu.org; Thu, 15 Aug 2024 12:03:29 -0400 Original-Received: from list by ciao.gmane.io with local (Exim 4.92) (envelope-from ) id 1secwf-00053H-J9 for emacs-devel@gnu.org; Thu, 15 Aug 2024 18:03:25 +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 12:23:00 -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:322785 Archived-At: source: https://dataswamp.org/~incal/emacs-init/meta.el [also yanked last] data: https://dataswamp.org/~incal/emacs-data/meta-funs.txt cool feature: note the aligned tables for arbitrary data - that are also minimized Fun Emacs! ;; (meta--funs 10) 1. gnus 2364 2. erc 1302 3. slime 1092 4. w3m 663 5. comp 622 6. c 592 7. tramp 482 8. cl 442 9. markdown 438 10. eshell 340 ;; (meta--funs 100) 1. gnus 2364 2. erc 1302 3. slime 1092 4. w3m 663 5. comp 622 6. c 592 7. tramp 482 8. cl 442 9. markdown 438 10. eshell 340 11. dired 327 12. epg 321 13. message 291 14. byte 277 15. url 240 16. make 225 17. package 224 18. widget 220 19. window 219 20. custom 211 21. mm 202 22. set 195 23. bibtex 179 24. xref 172 25. mail 168 26. x 161 27. isearch 160 28. tab 157 29. image 154 30. Info 147 31. shr 147 32. comint 145 33. js 139 34. help 137 35. file 132 36. archive 131 37. eww 129 38. mml 125 39. nnimap 125 40. ad 110 41. find 107 42. doc 102 43. completion 101 44. treesit 99 45. vc 98 46. copy 98 47. diff 95 48. mouse 93 49. sldb 92 50. sh 91 51. eieio 90 52. ffap 88 53. display 87 54. ispell 85 55. read 82 56. project 81 57. minibuffer 80 58. dbus 80 59. frame 79 60. compilation 79 61. lisp 78 62. smie 77 63. checkdoc 76 64. tex 74 65. font 73 66. nntp 70 67. auth 70 68. makefile 69 69. backtrace 69 70. sgml 68 71. rx 67 72. shell 66 73. browse 64 74. outline 62 75. pcomplete 62 76. epa 62 77. menu 61 78. pr 61 79. article 60 80. json 59 81. common 59 82. nnheader 58 83. describe 58 84. elisp 58 85. kmacro 57 86. seq 57 87. string 57 88. internal 55 89. nnmail 54 90. nnml 52 91. Man 51 92. delete 50 93. face 50 94. get 47 95. global 47 96. nnfolder 46 97. css 46 98. insert 45 99. kill 45 100. org 44 ;; (meta--funs 1000) [see URL for this] ;;; -*- lexical-binding: t -*- ;; ;; this file: ;; https://dataswamp.org/~incal/emacs-init/meta.el (require 'cl-lib) (defun meta--count-list (l) (cl-loop with res with done for e in l do (unless (member e done) (push (list (cl-count e l :test #'equal) e) res) (push e done)) finally return (cl-sort res #'>= :key #'car))) (defun meta--result-list (l) (cl-loop with biggest = (length (number-to-string (caar l))) with num-len = (length (number-to-string (length l))) with longest = (apply #'max (cl-mapcar (lambda (e) (length (cadr e))) l)) for (n lib) in l for i from 1 for str = (concat str (format (concat (format "%%%dd. " num-len) (format "%%-%ds " longest) (format "%%%dd" biggest) "\n") i lib n)) finally (insert "\n" str))) (defun meta--funs (&optional n) (or n (setq n 20)) (let ((num 0) (libs) (str) (dash) (par)) (mapatoms (lambda (e) (when (functionp e) (setq str (symbol-name e)) (setq dash (string-match "-" str)) (setq par (string-match "(" str)) (unless par (cl-incf num) (when dash (push (substring str 0 dash) libs)))))) (with-help-window "*meta*" (insert (format "functions: %d\n" num)) (meta--result-list (cl-subseq (meta--count-list libs) 0 n))))) ;; (meta--funs 10) ;; (meta--funs 100) ;; (meta--funs 1000) (provide 'meta) -- underground experts united https://dataswamp.org/~incal