Minor tweaks to Monokai code view theme
This commit changes few things:
* changes highlighting of unknown identifiers and/or unknown
selectors by using more common way of red underline.
* changes `Red` color to something more aggresive
* and shows control flow selectors in `Orange` rather than `Red`
(since red signals some kind of error)
"
COPYRIGHT (c) 1988 by Claus Gittinger / eXept Software AG
COPYRIGHT (c) 2015-2016 Jan Vrany
COPYRIGHT (c) 2021 LabWare
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
"{ Package: 'stx:libtool' }"
"{ NameSpace: Smalltalk }"
CodeViewTheme subclass:#Solarized
instanceVariableNames:''
classVariableNames:'Base03 Base02 Base01 Base00 Base0 Base1 Base2 Base3 Yellow Orange
Red Magenta Violet Blue Cyan Green'
poolDictionaries:''
category:'Views-Text-Theme'
!
!Solarized class methodsFor:'documentation'!
copyright
"
COPYRIGHT (c) 1988 by Claus Gittinger / eXept Software AG
COPYRIGHT (c) 2015-2016 Jan Vrany
COPYRIGHT (c) 2021 LabWare
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
! !
!Solarized class methodsFor:'initialization'!
initialize
"Invoked at system start or when the class is dynamically loaded."
"/ please change as required (and remove this comment)
Base03 := Color rgbValue: 16r002b36.
Base02 := Color rgbValue: 16r073642.
Base01 := Color rgbValue: 16r586e75.
Base00 := Color rgbValue: 16r657b83.
Base0 := Color rgbValue: 16r839496.
Base1 := Color rgbValue: 16r93a1a1.
Base2 := Color rgbValue: 16reee8d5.
Base3 := Color rgbValue: 16rfdf6e3.
Yellow :=Color rgbValue: 16rb58900.
Orange := Color rgbValue: 16rcb4b16.
Red := Color rgbValue: 16rdc322f.
Magenta := Color rgbValue: 16rd33682.
Violet := Color rgbValue: 16r6c71c4.
Blue := Color rgbValue: 16r268bd2.
Cyan := Color rgbValue: 16r2aa198.
Green := Color rgbValue: 16r859900.
"Modified: / 11-12-2017 / 16:23:59 / jv"
! !
!Solarized methodsFor:'styles'!
badIdentifierEmphasis
"the emphasis used for illegal identifiers;
If syntaxColoring is turned on."
^ self errorEmphasis
"Created: / 20-12-2017 / 22:50:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
commentColor
"the color used for comments;
If syntaxColoring is turned on."
^ Base01
"Created: / 15-12-2017 / 22:55:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 16-12-2017 / 20:09:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
constantColor
"the color used for constants;
If syntaxColoring is turned on."
^ Cyan
"Created: / 15-12-2017 / 22:56:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 16-01-2019 / 19:12:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
debugSelectorColor
"the color used for some selected debug
selectors (such as halt etc.);
If syntaxColoring is turned on.
If left nil, the normal selector color is used."
^ Red
"Created: / 16-12-2017 / 21:40:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
defaultSyntaxBackground
"Return a background color for the code editor. If nil is returned,
a TextView's default background is used instread."
^ Base3
"Created: / 11-12-2017 / 17:39:33 / jv"
"Modified: / 16-12-2017 / 20:08:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
defaultSyntaxColor
"the color used for anything else;
If syntaxColoring is turned on."
^ Color black
"Created: / 11-12-2017 / 17:39:45 / jv"
"Modified: / 16-12-2017 / 21:39:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
errorColor
"the color used for the thisContext pseudoVariable;
If syntaxColoring is turned on."
^ Red
"Created: / 20-12-2017 / 22:48:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
errorEmphasis
^ (Array with:#underwave with:(#underlineColor->Red))
"Created: / 20-12-2017 / 22:51:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
globalIdentifierEmphasis
"the color used for global identifiers;
If syntaxColoring is turned on."
^ #bold
"Created: / 16-12-2017 / 21:39:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
identifierColor
"the color used for other identifiers;
If syntaxColoring is turned on."
^ Blue
"
UserPreferences current at:#identifierColor put:Color green darkened darkened.
UserPreferences current at:#identifierColor put:Color black.
"
"Created: / 16-12-2017 / 21:41:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
methodSelectorEmphasis
"the emphasis used for a methods selector pattern;
If syntaxColoring is turned on."
^ #bold
"Created: / 16-12-2017 / 21:40:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
numberConstantColor
"the color used for number constants;
If syntaxColoring is turned on."
^ Magenta
"Created: / 16-12-2017 / 20:10:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
selfColor
"the color used for the self pseudoVariable;
If syntaxColoring is turned on."
^ Green
"Created: / 16-12-2017 / 20:11:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 16-01-2019 / 19:13:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
selfEmphasis
"the emphasis used for the self pseudoVariable;
If syntaxColoring is turned on."
^ #bold
"Created: / 16-01-2019 / 19:14:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
thisContextColor
"the color used for the thisContext pseudoVariable;
If syntaxColoring is turned on."
^ Green
"Created: / 15-12-2017 / 22:58:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!Solarized methodsFor:'styles - navigation'!
assignmentHighlightBackround
^ Red lighter
"Created: / 15-09-2021 / 21:25:08 / Jan Vrany <jan.vrany@labware.com>"
!
selectorHighlightBackground
^ Blue lighter
"Created: / 15-09-2021 / 21:28:56 / Jan Vrany <jan.vrany@labware.com>"
!
variableHighlightBackground
^ Yellow lighter
"Created: / 15-09-2021 / 21:29:10 / Jan Vrany <jan.vrany@labware.com>"
! !
!Solarized class methodsFor:'documentation'!
version_HG
^ '$Changeset: <not expanded> $'
! !
Solarized initialize!