Solarized.st
branchjv
changeset 18822 07d66af18f0d
child 19608 98f7cba0ce8c
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Solarized.st	Thu Oct 11 14:19:28 2018 +0200
@@ -0,0 +1,261 @@
+"
+ COPYRIGHT (c) 1988 by Claus Gittinger / eXept Software AG
+ COPYRIGHT (c) 2015-2016 Jan Vrany
+              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
+              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>"
+!
+
+unimplementedSelectorColor
+    "the color used for bad message selectors;
+     If syntaxColoring is turned on."
+
+    ^ self selectorColor
+
+    "Created: / 20-12-2017 / 22:48:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+unimplementedSelectorEmphasis
+    "the emphasis used for bad message selectors;
+     If syntaxColoring is turned on."
+
+    ^ self errorEmphasis
+
+    "Created: / 20-12-2017 / 22:49:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!Solarized methodsFor:'styles - navigation'!
+
+assignmentHighlightEmphasis
+    ^ Array with:(#backgroundColor -> Red lighter)
+
+    "Created: / 15-12-2017 / 22:49:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+selectorHighlightEmphasis
+    ^ Array with:(#backgroundColor -> Blue lighter)
+
+    "Created: / 15-12-2017 / 22:49:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+variableHighlightEmphasis
+    ^ Array with:(#backgroundColor -> Yellow lighter)
+
+    "Created: / 15-12-2017 / 22:49:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!Solarized class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+
+
+Solarized initialize!