From: Hans BKK <hansbkk@gmail.com>
To: help-gnu-emacs@gnu.org
Subject: Re: Generating a listing of all symbols (16K+) and labeling subsets
Date: Fri, 18 Apr 2014 19:50:27 -0700 (PDT) [thread overview]
Message-ID: <a8a48b5e-e0dd-4bce-b5af-ed22b9b3cf5a@googlegroups.com> (raw)
In-Reply-To: <6753f7ae-da6d-4065-9c53-a6f1e59b7ef5@googlegroups.com>
> > The currently-in-development Emacs 24.4 includes `macrop'[1]. I can't
> > vouch for what (if any) other versions it's appropriate for, but it did
> > succeed in a couple very basic experiments on 24.3.1.
> > [1]
> > http://git.savannah.gnu.org/cgit/emacs.git/tree/lisp/subr.el?h=emacs-24#n2664
OK, just dropped that snippet at the top of my listing.el file and macrop works a treat, thanks!
Here's a shortened listing of the cond-tree for each symbol type and my taxonomy if anyone cares to comment further on my terminology:
((fboundp sym) ; ALL functions
((commandp sym)
((keymapp sym)
(princ "command - keymap:\t\t\t\t\t")
((subrp (symbol-function sym))
(princ "command - built-in primitive:\t\t")
((byte-code-function-p (symbol-function sym))
(princ "command - byte-code:\t\t\t")
((functionp sym)
(princ "command - elisp:\t\t\t")
(t ; (non-command) functions
((macrop sym)
(princ "function - macro:\t\t\t")
((keymapp sym)
(princ "function - keymap:\t\t\t\t")
((subrp (symbol-function sym))
(princ "function - built-in primitive:\t\t")
((byte-code-function-p (symbol-function sym))
(princ "function - byte-code:\t\t\t")
((functionp sym)
(princ "function - elisp:\t\t\t")
(t
(princ "other ~function (aliases??):\t")))
)
((boundp sym) ; ALL variables
((custom-variable-p sym)
(princ "user (custom) option:\t\t\t")
((keywordp sym)
(princ "keyword:\t\t\t\t\t")
(t
(princ "non-user (setq) variable:\t\t"))
)
((facep sym)
(princ "face:\t\t\t\t\t")
(t
(princ "other (misc) symbol:\t\t\t")
)
----------------------
And current counts - note will probably drop outputting the first category to the list unless someone suggests another meaningful symbol type to track
other (misc): 8734
keyword: 323
faces: 50
variables: 2542
user (custom) option: 659
non-user (setq) variable: 1183
functions
(non-command): 4277
keymap: 34
built-in primitive: 1022
byte-code: 2342
other (bound?) function: 335
command: 2373
keymap:3
built-in primitive: 88
byte-code: 762
other command: 1561
macro:298
===================
and finally the code itself if anyone wants to suggest other improvements or to give it a whirl on their setup.
-------------------
(defun macrop (object)
"Non-nil if and only if OBJECT is a macro."
(let ((def (indirect-function object t)))
(when (consp def)
(or (eq 'macro (car def))
(and (autoloadp def) (memq (nth 4 def) '(macro t)))))))
(defun list-hh-symbols ()
"Display a list of Emacs symbols - names only"
(interactive)
(message "Looking up all symbols...")
(with-output-to-temp-buffer "*List Symbols*"
(let (vars)
(mapatoms (function (lambda (sym)
(setq vars (cons sym vars)))))
(setq vars (sort vars 'string-lessp))
(while vars
(let ((sym (car vars)))
(cond
((fboundp sym) ; ALL functions
(cond
((commandp sym)
(cond
((keymapp sym)
(princ "=======\n")
(princ "\n")
(princ "command - keymap:\t\t\t\t\t")
(prin1 sym)
(princ "\n\n"))
((subrp (symbol-function sym))
(princ "=============================\n")
(princ "command - built-in primitive:\t\t")
(prin1 sym)
(princ "\n\n"))
((byte-code-function-p (symbol-function sym))
(princ "====================\n")
(princ "command - byte-code:\t\t\t")
(prin1 sym)
(princ "\n\n"))
((functionp sym)
(princ "================\n")
(princ "command - elisp:\t\t\t")
(prin1 sym)
(princ "\n\n"))
(t
(princ "===============\n")
(princ "other command:\t\t\t\t")
(prin1 sym)
(princ "\n\n"))
)
)
(t ; (non-command) functions
(cond
((macrop sym)
(princ "================\n")
(princ "function - macro:\t\t\t")
(prin1 sym)
(princ "\n\n"))
((keymapp sym)
(princ "==================\n")
(princ "\n")
(princ "function - keymap:\t\t\t\t")
(prin1 sym)
(princ "\n\n"))
((subrp (symbol-function sym))
(princ "==============================\n")
(princ "function - built-in primitive:\t\t")
(prin1 sym)
(princ "\n\n"))
((byte-code-function-p (symbol-function sym))
(princ "=====================\n")
(princ "function - byte-code:\t\t\t")
(prin1 sym)
(princ "\n\n"))
((functionp sym)
(princ "=================\n")
(princ "function - elisp:\t\t\t")
(prin1 sym)
(princ "\n\n"))
(t
(princ "============================\n")
(princ "other ~function (aliases??):\t")
(prin1 sym)
(princ "\n\n"))
)
)
)
)
((boundp sym) ; ALL variables
(cond
((custom-variable-p sym)
(princ "=====================\n")
(princ "user (custom) option:\t\t\t")
(prin1 sym)
(princ "\n\n"))
((keywordp sym)
(princ "========\n")
(princ "\n")
(princ "keyword:\t\t\t\t\t")
(prin1 sym)
(princ "\n\n"))
(t
(princ "=========================\n")
(princ "non-user (setq) variable:\t\t")
(prin1 sym)
(princ "\n\n"))
)
)
((facep sym)
(princ "=====\n")
(princ "\n")
(princ "face:\t\t\t\t\t")
(prin1 sym)
(princ "\n\n"))
(t
(princ "====================\n")
(princ "other (misc) symbol:\t\t\t")
(prin1 sym)
(princ "\n\n"))
)
(setq vars (cdr vars))))
(message "Looking up all symbols...done")
(with-current-buffer "*List Symbols*"
(setq buffer-read-only t)))))
;;;;;;;;;;;;;;;;;;;;;;;
(provide 'hh-list-symbols)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; hh-list-symbols.el ends here
next prev parent reply other threads:[~2014-04-19 2:50 UTC|newest]
Thread overview: 22+ messages / expand[flat|nested] mbox.gz Atom feed top
2014-04-18 5:15 Generating a listing of all symbols (16K+) and labeling subsets Hans BKK
2014-04-18 19:01 ` Hans BKK
2014-04-18 20:47 ` Nicolas Richard
2014-04-19 1:23 ` Hans BKK
2014-04-19 2:16 ` John Mastro
2014-04-19 2:25 ` Hans BKK
2014-04-19 2:50 ` Hans BKK [this message]
2014-04-19 4:24 ` Drew Adams
2014-04-19 20:15 ` Hans BKK
2014-04-23 4:11 ` Hans BKK
2014-04-23 7:40 ` Florian v. Savigny
[not found] ` <<874n1klchv.fsf@bertrandrussell.Speedport_W_723V_1_32_000>
2014-04-23 15:07 ` Drew Adams
2014-04-23 13:22 ` Hans BKK
2014-04-24 2:30 ` Hans BKK
-- strict thread matches above, loose matches on Subject: below --
2014-04-18 2:34 hansbkk
2014-04-18 2:09 hansbkk
2014-04-18 7:19 ` Thien-Thi Nguyen
2014-04-18 10:09 ` Thorsten Jolitz
[not found] ` <mailman.19825.1397815734.10748.help-gnu-emacs@gnu.org>
2014-04-18 15:00 ` Hans BKK
[not found] ` <mailman.19813.1397805348.10748.help-gnu-emacs@gnu.org>
2014-04-18 14:55 ` Hans BKK
2014-04-18 15:27 ` Nicolas Richard
2014-04-19 16:34 ` Robert Thorpe
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=a8a48b5e-e0dd-4bce-b5af-ed22b9b3cf5a@googlegroups.com \
--to=hansbkk@gmail.com \
--cc=help-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.