Problem with keywords in custom Haskell scheme

(6 posts) (2 voices)

Started 3 years ago by FalconNL
Latest reply from FalconNL

Tags:

FalconNL
Member

Hi,

I discovered this text editor an hour or so ago via a LifeHacker post. Since I'm still looking for an editor with half-decent Haskell syntax highlighting and because this is one of the few (if not the only) editors that let you define your own scheme, I had a go at it by modifying the Powershell schemedef file. I've almost got it working, except for two issues:

1) The keywords won't work. As far as I can tell I've used the exact same structure as the Powershell file, but the keywords stay black.

2) In a block comment the closing -} is black instead of the comment color.

Could anyone more experienced in making schemes help me fix these errors?

Thanks in advance.

Below are the contents of my haskell.schemedef:

<?xml version="1.0" ?>
<Scheme>
	<keyword-classes>
		<keyword-class name="keywords">
			as case of class data default deriving do forall foreign hiding if then else import infix infixl infixr instance let in mdo module newtype qualified type where
		</keyword-class>
		<keyword-class name="keychars">
      | @ ! :: _ ~
		</keyword-class>
	</keyword-classes>

	<schemedef name="haskell" title="Haskell" author="Remco Niemeijer" folding="true" casesensitive="true" braces="{[()]}">

		<strings>
			<stringtype id="0" start="&quot;" end="&quot;" multiline="false" />
			<stringtype id="1" start="'" end="'" multiline="false" />
		</strings>

		<identifiers start="[A-Z]" content="[a-zA-Z0-9]" />

		<comments>
			<line start="--" />
			<block start="{-" end="-}" />
		</comments>

		<numbers start="[0-9]" content="[0-9.]" />

		<lexer name="haskell" />

		<use-keywords>
			<keyword key="0" name="Keywords" class="keywords"/>
			<keyword key="1" name="Keywords 2" class="keychars"/>
		</use-keywords>

		<use-styles>
			<style name="Default" key="32" fore="000000"/>
			<style name="Line Comment" key="1" class="comment" fore="008800"/>
			<style name="Block Comment" key="2" class="comment" fore="008800"/>
			<style name="Identifier" key="3" class="identifier" fore="ff8800"/>
			<style name="Number" key="4" class="number" fore="008888"/>
			<style name="Keywords" key="5" class="keyword" fore="ff0000"/>
			<style name="Keywords 2" key="6" class="keyword" fore="f80000" />
			<style name="String" key="10" class="string" fore="ff00ff"/>
			<style name="String 2" key="11" class="string" fore="ff00ff"/>
			<!-- <style name="Special Identifier" key="13" /> -->
		</use-styles>
	</schemedef>
</Scheme>

Posted 3 years ago #

simon
PN Developer

Here's a fixed version:

<?xml version="1.0" ?>
<Scheme>
	<keyword-classes>
		<keyword-class name="haskellkeywords">
			as case of class data default deriving do forall foreign hiding if then else import infix infixl infixr instance let in mdo module newtype qualified type where
		</keyword-class>
		<keyword-class name="haskellkeychars">
      | @ ! :: _ ~
		</keyword-class>
	</keyword-classes>

	<schemedef name="userhaskell" title="Haskell" author="Remco Niemeijer" folding="true" casesensitive="true" braces="{[()]}">

		<strings>
			<stringtype id="0" start="&quot;" end="&quot;" multiline="false" />
			<stringtype id="1" start="'" end="'" multiline="false" />
		</strings>

		<identifiers start="[a-zA-Z]" content="[a-zA-Z0-9]" />

		<comments>
			<line start="--" />
			<block start="{-" end="-}" />
		</comments>

		<numbers start="[0-9]" content="[0-9\.]" />

		<lexer name="userhaskell" />

		<use-keywords>
			<keyword key="0" name="Keywords" class="haskellkeywords"/>
			<keyword key="1" name="Keywords 2" class="haskellkeychars"/>
		</use-keywords>

		<use-styles>
			<style name="Default" key="32" fore="000000"/>
			<style name="Line Comment" key="1" class="comment" fore="008800"/>
			<style name="Block Comment" key="2" class="comment" fore="008800"/>
			<style name="Identifier" key="3" class="identifier" fore="ff8800"/>
			<style name="Number" key="4" class="number" fore="008888"/>
			<style name="Keywords" key="5" class="keyword" fore="ff0000"/>
			<style name="Keywords 2" key="6" class="keyword" fore="f80000" />
			<style name="String" key="10" class="string" fore="ff00ff"/>
			<style name="String 2" key="11" class="string" fore="ff00ff"/>
			<!-- <style name="Special Identifier" key="13" /> -->
		</use-styles>
	</schemedef>
</Scheme>

Changes:

Change the name from haskell to userhaskell - PN has a built-in lexer for haskell and this schemedef clashes with it, that's causing some of the problems
Your numbers content definition looks like this: content="[0-9.]", and it should be content="[0-9\.]". The dot character "." is a special character matching any character. Changing this to "\." means the real dot character.
PN expects the identifiers start and content pattern to also be used for keywords (currently) so if you change the identifiers start to [a-zA-Z] then your main keywords will start working. If you include the other characters then the others will start working. I realise this isn't ideal as your identifiers will then work with lots of odd characters. I added a bug for this: http://code.google.com/p/pnotepad/issues/detail?id=36
The end pattern for the block comments not being styled correctly looks like another bug, filed here: http://code.google.com/p/pnotepad/issues/detail?id=37

Posted 3 years ago #

FalconNL
Member

Excellent, thanks mate. You wouldn't happen to know how to define with < or > signs would you? Adding <- as a keyword causes an error on loading and using the html encoded <- that the C++ scheme seems to suggest doesn't result in any coloring (I've added the requisite start and content identifier chars).

Posted 3 years ago #
FalconNL
Member

Bump since I'm still curious: is it possible to use < and > signs in keywords?

Posted 3 years ago #
simon
PN Developer

It's certainly possible in the editing component, and I've just made some changes for the next development release (not the one out today) that allow you to configure the word characters for each scheme which will make this even better. Can you post your scheme and I'll give it a go and see if I can work out what's going on?

Posted 3 years ago #
FalconNL
Member

Notes on the scheme below:
- I've html-encoded the < and > signs under keyword-class since PN crashes at startup if I dont.
- I haven't added the < sign under the start characters of identifiers since doing so crashes PN at startup, even if I escape it with \<
- The <- arrow will obviously not work due to the missing start token. The -> arrow doesn't work either (i.e. it isn't highlighted like other keywords).

<?xml version="1.0" ?>
<Scheme>
<keyword-classes>
<keyword-class name="haskellkeywords">
as case of class data default deriving do forall foreign hiding if then else import infix infixl infixr instance let in mdo module newtype qualified type where
</keyword-class>
<keyword-class name="haskellkeychars">
| @ :: _ ~ -gt; <-
</keyword-class>
</keyword-classes>

<schemedef name="userhaskell" title="Haskell" author="FalconNL" casesensitive="true" braces="{[()]}">

<strings>
<stringtype id="0" start=""" end=""" multiline="false" />
<stringtype id="1" start="'" end="'" multiline="false" />
</strings>

<identifiers start="[a-z0-9|@!:_~]" content="[a-zA-Z0-9:>]" />
<identifiers2 start="[A-Z]" content="[a-zA-Z0-9'_]" />

<comments>
<line start="--" />
<block start="{-" end="-}" />
</comments>

<numbers start="[0-9]" content="[0-9\.]" />

<lexer name="userhaskell" />

<use-keywords>
<keyword key="0" name="Keywords" class="haskellkeywords"/>
<keyword key="1" name="Keywords 2" class="haskellkeychars"/>
</use-keywords>

<use-styles>
<style name="Default" key="32" fore="000000"/>
<style name="Line Comment" key="1" class="comment" fore="008800"/>
<style name="Block Comment" key="2" class="comment" fore="008800"/>
<style name="Identifier" key="3" class="identifier" fore="000000"/>
<style name="Number" key="4" class="number" fore="008888"/>
<style name="Keywords" key="5" class="keyword" fore="0000ff"/>
<style name="Keywords 2" key="6" class="keyword" fore="ff0000" />
<style name="String" key="10" class="string" fore="880000"/>
<style name="String 2" key="11" class="string" fore="880000"/>
<style name="Special Identifier" key="13" fore="ff8800"/>
</use-styles>
</schemedef>
</Scheme>

Posted 3 years ago #

RSS feed for this topic

Reply

You must log in to post.