Reading major-mode name via completion?

Reading major-mode name via completion?

[raman]

Is there a completion table that already exists in emacs that one
could pass to completing-read for reading in a major-mode name?

--raman 
-- 

-- 

Re: Reading major-mode name via completion?

[Stefan Monnier]

> Is there a completion table that already exists in emacs that one
> could pass to completing-read for reading in a major-mode name?

You might like to look at `customize-mode' which seems to provide
that completion.


        Stefan

Re: Reading major-mode name via completion?

[Stephen Leake]

raman@google.com writes:

> Is there a completion table that already exists in emacs that one
> could pass to completing-read for reading in a major-mode name?

I use this:

   (completing-read
    "mode: "
    (apply-partially
     #'completion-table-with-predicate
     obarray
     (lambda (sym) ;; predicate
       (or (get sym 'derived-mode-parent) ;; most modes
	   (get sym 'custom-mode-group) ;; ada-mode
	   ;; FIXME: leaves out fundamental-mode, maybe others
	   ))
     'strict)
    nil ;; predicate
    t ;; require-match
    (symbol-name major-mode) ;; initial
    history)

as the FIXME: says, it leaves out some.

-- 
-- Stephe

Re: Reading major-mode name via completion?

[Stephen Leake]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

>> Is there a completion table that already exists in emacs that one
>> could pass to completing-read for reading in a major-mode name?
>
> You might like to look at `customize-mode' which seems to provide
> that completion.

That essentially does:

(completing-read "prompt" obarray 'custom-group-of-mode ...)

`custom-group-of-mode' is used as the predicate in the completion; it
returns non-nil if the symbol has a custom group.

So this assumes all major modes have custom groups, which is only
approximately true.


-- 
-- Stephe

Re: Reading major-mode name via completion?

[raman]

Stephen Leake <stephen_leake@stephe-leake.org> writes:

Thanks! I cloned a small function out of customize-mode -- will attach
it.

I suspect my  code lets through  more cases,  
and  that your  predicate may also be tighter.
(defsubst soundscape-read-major-mode-name ()
  "Helper to read major-mode name with completion."
  (let ((completion-regexp-list '("-mode\\'")))
	(intern
	 (completing-read "Major mode: "
			  obarray
			  nil t nil nil nil))))

> raman@google.com writes:
>
>> Is there a completion table that already exists in emacs that one
>> could pass to completing-read for reading in a major-mode name?
>
> I use this:
>
>    (completing-read
>     "mode: "
>     (apply-partially
>      #'completion-table-with-predicate
>      obarray
>      (lambda (sym) ;; predicate
>        (or (get sym 'derived-mode-parent) ;; most modes
> 	   (get sym 'custom-mode-group) ;; ada-mode
> 	   ;; FIXME: leaves out fundamental-mode, maybe others
> 	   ))
>      'strict)
>     nil ;; predicate
>     t ;; require-match
>     (symbol-name major-mode) ;; initial
>     history)
>
> as the FIXME: says, it leaves out some.

--