Re: [External] : Emacs website, Lisp, and other

[Emanuel Berg <incal@dataswamp.org>]

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