Re: How do I setup an extremely simple font-lock mode?

Re: How do I setup an extremely simple font-lock mode?

[Alex Schroeder]

Matt Noel <mgn000@mac.com> writes:

> I want to setup a very simple mode for colorizing a log file.  All I
> need to do is highlight any lines with the string ERROR on them.  I've
> tried reading the documentation for font-lock but it's not clear how
> to do this.
>
> Could someone point me to a simple example, or send one?

See http://www.emacswiki.org/cgi-bin/wiki.pl?CategoryCode -- it has
the following section:

How to start writing a new major mode:

  * GenericMode -- for very simple modes including font-locking and comments
  * DerivedMode -- for new modes very similar to existing modes
  * SampleMode -- complete elisp example for a real major mode
  * ModeTutorial -- a tutorial for mode writers

Alex.
-- 
http://www.emacswiki.org/cgi-bin/alex.pl

Re: How do I setup an extremely simple font-lock mode?

[Barman Brakjoller]

> I want to setup a very simple mode for colorizing a log file.  All I 
> need to do is highlight any lines with the string ERROR on them.  I've 
> tried reading the documentation for font-lock but it's not clear how to 
> do this.

Maybe this is not exacly what you asked for,  but to me it seems as if
it will solve your problem. From the NEWS file, section Emacs 21.1
changes:

  *** The new package hi-lock.el provides commands to highlight
matches
  of interactively entered regexps.  For example,

   M-x highlight-regexp RET clearly RET RET

  will highlight all occurrences of `clearly' using a yellow
background
  face.  New occurrences of `clearly' will be highlighted as they are
  typed.  `M-x unhighlight-regexp RET' will remove the highlighting.
  Any existing face can be used for highlighting and a set of
  appropriate faces is provided.  The regexps can be written into the
  current buffer in a form that will be recognized the next time the
  corresponding file is read.  There are commands to highlight matches
  to phrases and to highlight entire lines containing a match.

Hope it works for you!

Re: How do I setup an extremely simple font-lock mode?

[kgold]

Matt Noel <mgn000@mac.com> writes:
> I want to setup a very simple mode for colorizing a log file.  All I 
> need to do is highlight any lines with the string ERROR on them.  I've 
> tried reading the documentation for font-lock but it's not clear how to 
> do this.

Related question.  I use log4j as a Java logger.  It prefixes each line with
	DEBUG:
	INFO:
	ERROR:
	WARN:
	FATAL:
Is there a "log4j" mode which colorizes these.

-- 
-- 
Ken Goldman   kgold@watson.ibm.com   914-784-7646

Re: How do I setup an extremely simple font-lock mode?

[Bryan W. Lepore]

i took some lisp from a former lab member and added in particular things -
you can see an example on http://people.brandeis.edu/~lepore/dotemacs

-bryan

___________________________________________________________________________

Bryan Lepore
Brandeis University
Petsko/Ringe Laboratory
Rosenstiel Basic Medical Sciences Research Center
Floor Six
MS029
Waltham, MA 02454
http://people.brandeis.edu/~lepore
___________________________________________________________________________

On 23 May 2003, kgold wrote:

>
> Matt Noel <mgn000@mac.com> writes:
> > I want to setup a very simple mode for colorizing a log file.  All I
> > need to do is highlight any lines with the string ERROR on them.  I've
> > tried reading the documentation for font-lock but it's not clear how to
> > do this.
>
> Related question.  I use log4j as a Java logger.  It prefixes each line with
> 	DEBUG:
> 	INFO:
> 	ERROR:
> 	WARN:
> 	FATAL:
> Is there a "log4j" mode which colorizes these.
>
> --
> --
> Ken Goldman   kgold@watson.ibm.com   914-784-7646
> _______________________________________________
> Help-gnu-emacs mailing list
> Help-gnu-emacs@gnu.org
> http://mail.gnu.org/mailman/listinfo/help-gnu-emacs
>

Re: How do I setup an extremely simple font-lock mode?

[Stefan Monnier]

>>>>> "Matt" == Matt Noel <mgn000@mac.com> writes:
> (defun pta-mode ()
>   (setq font-lock-defaults '(pta-font-lock-keywords))
> )

Please make it

  (define-derived-mode pta-mode "PTA"
    "Major mode to edit PTA logs."
    (set (make-local-variable 'font-lock-defaults)
         '(pta-font-lock-keywords)))

otherwise, global-font-lock-mode might not work as expected.


        Stefan

Re: How do I setup an extremely simple font-lock mode?

[Stefan Monnier]

Oops...

>   (define-derived-mode pta-mode "PTA"
                                 ^
                             fundamental-mode

>     "Major mode to edit PTA logs."
>     (set (make-local-variable 'font-lock-defaults)
>          '(pta-font-lock-keywords)))

Sorry about this missing argument.


        Stefan

How do I setup an extremely simple font-lock mode?

[Matt Noel]

I want to setup a very simple mode for colorizing a log file.  All I 
need to do is highlight any lines with the string ERROR on them.  I've 
tried reading the documentation for font-lock but it's not clear how to 
do this.

Could someone point me to a simple example, or send one?

Thanks.

Matt Noel				mgn000@yahoo.com
				or	mgn000@mac.com

How do I setup an extremely simple font-lock mode?

[myrkraverk]

Hi,

Matt Noel writes:
 > I want to setup a very simple mode for colorizing a log file.  All I 
 > need to do is highlight any lines with the string ERROR on them.  I've 
 > tried reading the documentation for font-lock but it's not clear how to 
 > do this.
 > 
 > Could someone point me to a simple example, or send one?

Here is an example, it doesn't though specify how you use the mode on
the log file.  Maybe you can edit it to suit your need.

;; This is basically a list of lists with a regular expression and
;; then the font name (or face name).  The numbers below refer to \\(
;; ... \\) constructs that mark what part of the re you want
;; highlighted 
(defconst masp-font-lock-keywords
 '(("^\\(\\(\\sw\\|\\s_\\)+\\)\\>:?[ \t]*\\(\\sw+\\(\\.[lLwWbBsS]\\)?\\)?"
    (1 font-lock-function-name-face) (3 font-lock-keyword-face nil t))
   ("^\\s +\\(\\(\\sw\\|\\s_\\)+\\(\\.[lLwWbBsS]\\)?\\)" 1 font-lock-keyword-face)
   ("^\\(\\s-+\\|\\sw+:\\s-+\\)\\(\\\\[a-zA-Z0-9]+\\)"
    (2 font-lock-constant-face))
   ("\\(\\\\\\sw+\\)"
    (1 font-lock-variable-name-face)))
 "Additional expressions to highlight in Assembler mode.")

(defun masp-mode ()
;;...
  (setq font-lock-defaults '(masp-font-lock-keywords))
;;...
)


Hope this helps,

Johann

-- 
This line is left blank intentionally

Re: How do I setup an extremely simple font-lock mode?

[Matt Noel]

[-- Attachment #1.1: Type: text/plain, Size: 2424 bytes --]

Thanks Johann, if it's of any help to others, here's what I settled on:

I made a file named pta-mode.py in my emacs directory, where I keep 
other lisp files, and put this in it:

;; This is basically a list of lists with a regular expression and
;; then the font name (or face name).  The numbers below refer to \\(
;; ... \\) constructs that mark what part of the re you want
;; highlighted
(defconst pta-font-lock-keywords
  '(
    ("- \\(ERROR\\) - \\w*\\(.*\\)" (1 font-lock-warning-face)
     (2 font-lock-comment-face))
    ("- \\(WARN\\)  - \\w*\\(.*\\)" (1 font-lock-type-face)
     (2 font-lock-comment-face))
    )
  "Expressions to highlight in PTA mode.")

(defun pta-mode ()
   (setq font-lock-defaults '(pta-font-lock-keywords))
)

Then I added this to my .emacs file to load this, and select it for use 
on all my *.log files (which suits my needs):

(autoload 'pta-mode "pta-mode" "PTA log mode." t)
(add-to-list 'auto-mode-alist '("\\.log$" . pta-mode))

On Thursday, May 22, 2003, at 02:11  PM, 
myrkraverk@users.sourceforge.net wrote:

> Hi,
>
> Matt Noel writes:
>> I want to setup a very simple mode for colorizing a log file.  All I
>> need to do is highlight any lines with the string ERROR on them.  I've
>> tried reading the documentation for font-lock but it's not clear how 
>> to
>> do this.
>>
>> Could someone point me to a simple example, or send one?
>
> Here is an example, it doesn't though specify how you use the mode on
> the log file.  Maybe you can edit it to suit your need.
>
> ;; This is basically a list of lists with a regular expression and
> ;; then the font name (or face name).  The numbers below refer to \\(
> ;; ... \\) constructs that mark what part of the re you want
> ;; highlighted
> (defconst masp-font-lock-keywords
>  '(("^\\(\\(\\sw\\|\\s_\\)+\\)\\>:?[ 
> \t]*\\(\\sw+\\(\\.[lLwWbBsS]\\)?\\)?"
>     (1 font-lock-function-name-face) (3 font-lock-keyword-face nil t))
>    ("^\\s +\\(\\(\\sw\\|\\s_\\)+\\(\\.[lLwWbBsS]\\)?\\)" 1 
> font-lock-keyword-face)
>    ("^\\(\\s-+\\|\\sw+:\\s-+\\)\\(\\\\[a-zA-Z0-9]+\\)"
>     (2 font-lock-constant-face))
>    ("\\(\\\\\\sw+\\)"
>     (1 font-lock-variable-name-face)))
>  "Additional expressions to highlight in Assembler mode.")
>
> (defun masp-mode ()
> ;;...
>   (setq font-lock-defaults '(masp-font-lock-keywords))
> ;;...
> )
>
>
> Hope this helps,
>
> Johann
>
> -- 
> This line is left blank intentionally
>
>



[-- Attachment #1.2: Type: text/enriched, Size: 2555 bytes --]

Thanks Johann, if it's of any help to others, here's what I settled on:


I made a file named pta-mode.py in my emacs directory, where I keep
other lisp files, and put this in it:


<fixed><fontfamily><param>Courier New</param>;; This is basically a
list of lists with a regular expression and

;; then the font name (or face name).  The numbers below refer to \\(

;; ... \\) constructs that mark what part of the re you want

;; highlighted 

(defconst pta-font-lock-keywords

 '(

   ("- \\(ERROR\\) - \\w*\\(.*\\)" (1 font-lock-warning-face) 

    (2 font-lock-comment-face))

   ("- \\(WARN\\)  - \\w*\\(.*\\)" (1 font-lock-type-face) 

    (2 font-lock-comment-face))

   )

 "Expressions to highlight in PTA mode.")


(defun pta-mode ()

  (setq font-lock-defaults '(pta-font-lock-keywords))

)</fontfamily></fixed>


Then I added this to my .emacs file to load this, and select it for
use on all my *.log files (which suits my needs):


<fixed><fontfamily><param>Courier New</param>(autoload 'pta-mode
"pta-mode" "PTA log mode." t)

(add-to-list 'auto-mode-alist '("\\.log$" . pta-mode))</fontfamily></fixed>


On Thursday, May 22, 2003, at 02:11  PM,
myrkraverk@users.sourceforge.net wrote:


<excerpt>Hi,


Matt Noel writes:

<excerpt>I want to setup a very simple mode for colorizing a log file. 
All I 

need to do is highlight any lines with the string ERROR on them.  I've 

tried reading the documentation for font-lock but it's not clear how
to 

do this.


Could someone point me to a simple example, or send one?

</excerpt>

Here is an example, it doesn't though specify how you use the mode on

the log file.  Maybe you can edit it to suit your need.


;; This is basically a list of lists with a regular expression and

;; then the font name (or face name).  The numbers below refer to \\(

;; ... \\) constructs that mark what part of the re you want

;; highlighted 

(defconst masp-font-lock-keywords

 '(("^\\(\\(\\sw\\|\\s_\\)+\\)\\>:?[
\t]*\\(\\sw+\\(\\.[lLwWbBsS]\\)?\\)?"

    (1 font-lock-function-name-face) (3 font-lock-keyword-face nil t))

   ("^\\s +\\(\\(\\sw\\|\\s_\\)+\\(\\.[lLwWbBsS]\\)?\\)" 1
font-lock-keyword-face)

   ("^\\(\\s-+\\|\\sw+:\\s-+\\)\\(\\\\[a-zA-Z0-9]+\\)"

    (2 font-lock-constant-face))

   ("\\(\\\\\\sw+\\)"

    (1 font-lock-variable-name-face)))

 "Additional expressions to highlight in Assembler mode.")


(defun masp-mode ()

;;...

  (setq font-lock-defaults '(masp-font-lock-keywords))

;;...

)



Hope this helps,


Johann


-- 

This line is left blank intentionally



</excerpt>



[-- Attachment #2: Type: text/plain, Size: 151 bytes --]

_______________________________________________
Help-gnu-emacs mailing list
Help-gnu-emacs@gnu.org
http://mail.gnu.org/mailman/listinfo/help-gnu-emacs