Re: Generating a listing of all symbols (16K+) and labeling subsets

[Thorsten Jolitz <tjolitz@gmail.com>]

Thien-Thi Nguyen <ttn@gnu.org> writes:

> () hansbkk@gmail.com
> () Thu, 17 Apr 2014 22:09:35 -0400
>
>    I'd specifically like to ask about the logic of the
>    categorizing breakdown and for better taxonomy terms.
>
> It is a category error to categorize Emacs Lisp symbols into
> (single) buckets, unless you wish to defer understanding.  :-D

I wrote something similar (but much simpler) recently for getting a list
of all mode commands with keybindings, and detecting keybinding
conflicts between two modes:

* Compare Keymaps

#+begin_src emacs-lisp
(defun omm-get-cmd-symbols-with-keys (rgxp mode &optional req)
  "Return alist of (key . sym) pairs where sym matches RGXP.

Require REQ and load MODE in temp buffer before doing the real
work. Push the intermediary results of `mapatoms' to
`omm-tmp-storage'.

Usage example:
 (pp (omm-get-cmd-symbols-with-keys
   \"\\(^org-\\|^orgtbl-\\)\" 'org-mode 'org))"
  (setq omm-tmp-storage nil)
  (mapatoms
   (lambda (--sym)
     (eval
      `(and (commandp --sym)
	    (string-match ,rgxp (symbol-name --sym))
	    (with-temp-buffer
	      (when ,req
		(require (quote ,req)))
	      (funcall (quote ,mode))
	      (let ((cmd-key (substitute-command-keys
			      (concat
			       "\\[" (symbol-name --sym) "]"))))
		(push
		 (cons
		  (if (string-match "^M-x " cmd-key)
		      nil cmd-key)
		  --sym)
		 omm-tmp-storage)))))))
  (delq nil
	(mapcar
	 (lambda (--pair) (if (car --pair) --pair nil))
	 (delq nil omm-tmp-storage))))
#+end_src

#+begin_src emacs-lisp
(defun omm-get-keybinding-conflicts (cmd-syms1 cmd-syms2)
  "Return alist with common keys of CMD-SYMS1 and CMD-SYMS2.

The return-list consists of sublists of this form

  (event definition-map1 definition-map2)

Usage example:

  (pp (omm-get-keybinding-conflicts
     (omm-get-cmd-symbols-with-keys \"^magit-\" 'magit-mode)
     (omm-get-cmd-symbols-with-keys \"^dired-\" 'dired-mode)))"
  (let ((keys2 (map 'car cmd-syms2))) ; FIXME with org-mode-map
     (delq nil
	   (mapcar
	    (lambda (--pair)
	      (when (member (car --pair) keys2)
		 (list (car --pair)
		       (cdr --pair)
		       (cdr (assoc (car --pair) cmd-syms2)))))
	    cmd-syms1))))
#+end_src


-- 
cheers,
Thorsten