[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Basic font-lock without font-locking double-quoted strings
From: |
Joe Riel |
Subject: |
Re: Basic font-lock without font-locking double-quoted strings |
Date: |
Thu, 19 Dec 2013 21:00:15 -0800 |
On Fri, 20 Dec 2013 01:26:26 +0100
Emanuel Berg <embe8573@student.uu.se> wrote:
> Joe Riel <joer@san.rr.com> writes:
>
> > Why would the following minimal mode
> >
> > (define-derived-mode msdbg-mode fundamental-mode (setq
> > font-lock-keywords '(("EA"
> > . font-lock-warning-face))))
>
> Does that work at all?
Yes. One solution was to set font-lock-keywords-only to t.
That can be done when assigning to font-lock-defaults.
My solution was different; I don't need font-lock mode,
so called (font-lock-mode -1) to turn it off, then coded a
loop to fontify what I needed (the mode is just for viewing).
>
> According to the help, it should look like this:
>
> (define-derived-mode article-mode sgml-mode "Article"
> "Major mode for editing technical articles."
> (setq case-fold-search nil))
>
> But strings are highlighted in fundamental-mode
> (font-look-face-face) so at least that makes sense.
>
> You'll have to wait for a better answer, but the below
> code (the only mode I did) might interest you. When I
> did it, I was told on this list not to make it a
> generic mode but to derive from fundamental-mode,
> however, I didn't do that - first the keywords, then
> create the mode.
>
> (defvar fpscalc-keywords
> '(("\\(!.*$\\)" . 'fpscalc-comment)
> ("\\(semaphore\\)\\((\\)\\([[:word:]]+\\)\\(\\, \\)\\([[:word:]]+\\)"
> (1 'fpscalc-semaphore-keyword)
> (3 'fpscalc-semaphore-name)
> (5 'fpscalc-task-name-and-index) )
> ("declarations\\|initialise\\|semaphores\\|formulas" .
> 'fpscalc-program-parts)
> ("sigma\\|floor\\|ceiling\\|min\\|max" . 'fpscalc-math-functions)
> ("lp\\|ep\\|hp\\|all" . 'fpscalc-task-priority-sets)
> ("\\([[:word:]]\\)\\(\\[\\)\\(i\\)\\(\\]\\)"
> (1 'fpscalc-variable-name)
> (3 'fpscalc-i-task) )
> ("\\([[:word:]]\\)\\(\\[\\)\\(j\\)\\(\\]\\)"
> (1 'fpscalc-variable-name)
> (3 'fpscalc-j-task))
> ("\\([[:word:]]\\)\\(\\[\\)\\(.*\\)\\(\\]\\)"
> (1 'fpscalc-variable-name)
> (3 'fpscalc-task-name-and-index))
> ("\\(system \\)\\(.* \\)"
> (1 'fpscalc-system-keyword)
> (2 'fpscalc-system-name))
> ("\\(scalar\\|indexed\\|priority\\|blocking\\)\\(
> \\)+\\(\\(\\([[:word:]]\\( *\\, *\\)?\\)\\)*\\)"
> (1 'fpscalc-variable-type)
> (3 'fpscalc-variable-name))
> ("\\(tasks +\\)\\(\\(\\([[:word:]]\\( *\\, *\\)?\\)\\)*\\)"
> (1 'fpscalc-tasks-keyword)
> (2 'fpscalc-task-name-and-index))
> ))
>
> (define-generic-mode
> 'fpscalc-mode
> '("!")
> nil
> fpscalc-keywords
> '("\\.fps\\'")
> '((lambda ()
> (progn
> (setq indent-line-function 'fpscalc-indent-line)
> (local-set-key "\C-c\C-c" 'compute) )))
> "Major mode for .fps files and the fpscalc tool.")
>
--
Joe Riel