desolate.nvim/lua/lush_theme/monotone.lua
2021-03-20 19:16:37 +01:00

286 lines
17 KiB
Lua

--
-- m o n o t o n e
--
--
-- Copyright 2021 Kim Silkebækken
--
-- Permission is hereby granted, free of charge, to any person obtaining a copy
-- of this software and associated documentation files (the "Software"), to
-- deal in the Software without restriction, including without limitation the
-- rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
-- sell copies of the Software, and to permit persons to whom the Software is
-- furnished to do so, subject to the following conditions:
--
-- The above copyright notice and this permission notice shall be included in
-- all copies or substantial portions of the Software.
--
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-- IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-- FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-- AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-- LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
-- FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
-- IN THE SOFTWARE.
--
--
-- Lua configuration example:
--
-- vim.g.monotone_h = 85
-- vim.g.monotone_s = 0
-- vim.g.monotone_l = 50
-- vim.g.monotone_contrast = 100
-- vim.g.monotone_true_monotone = true
-- vim.o.background = 'light'
--
local lush = require('lush')
local hsl = lush.hsl
-- Config options
local opt = {
bg = vim.o.background,
color = hsl(
tonumber(vim.g.monotone_h) or 15,
tonumber(vim.g.monotone_s) or 5,
(tonumber(vim.g.monotone_l) or 50) + 35
),
contrast = (tonumber(vim.g.monotone_contrast) or 105) / 100,
true_monotone = vim.g.monotone_true_monotone or false,
}
-- Handle dark/light background color
local offset_fn = 'lighten'
if opt.bg == 'light' then
opt.color = opt.color.darken(50)
offset_fn = 'darken'
end
-- Monochrome shades
local shade = function(color, offset)
return color[offset_fn](offset * opt.contrast)
end
local s = { -22, -32, -46, -55, -69, -75, -88, normal = 0, inv = 100 }
for k, v in pairs(s) do
s[k] = shade(opt.color, v)
end
-- Highlight colors
local red = shade(hsl(5, 90, s.normal.l), -25)
local yellow = shade(hsl(32, 100, s.normal.l), -25)
local blue = shade(hsl(205, 85, s.normal.l), -20)
local green = shade(hsl(90, 40, s.normal.l), -40)
local eob = shade(hsl(240, 30, s.normal.l), -40)
local nt = shade(hsl(330, 30, s.normal.l), -50)
if opt.true_monotone then
-- Disable all colors
red = s[3]
yellow = s[2]
blue = s[1]
green = s[4]
eob = s[4]
nt = s[4]
end
local hl1 = red
local hl2 = yellow
local hl3 = blue
return lush(function()
return {
Normal { fg = s.normal, bg = s[7] }, -- Normal text
SyntaxError { sp = red, gui = 'undercurl' },
SyntaxWarning { sp = yellow, gui = 'undercurl' },
SyntaxInfo { sp = blue, gui = 'undercurl' },
SyntaxHint { sp = green, gui = 'undercurl' },
Comment { fg = s[4], gui = 'italic' }, -- any comment
ColorColumn { bg = s[6] }, -- used for the columns set with 'colorcolumn'
Conceal { }, -- placeholder characters substituted for concealed text (see 'conceallevel')
Cursor { bg = hl1 }, -- character under the cursor
CursorI { bg = s.inv }, -- insert cursor TODO make this based on other colors
CursorR { bg = hl2 }, -- replace cursor
CursorO { bg = hl3 }, -- operator-pending cursor
-- lCursor { }, -- the character under the cursor when |language-mapping| is used (see 'guicursor')
-- CursorIM { }, -- like Cursor, but used when in IME mode |CursorIM|
-- CursorColumn { }, -- Screen-column at the cursor, when 'cursorcolumn' is set.
CursorLine { bg = Normal.bg[offset_fn](5) }, -- Screen-line at the cursor, when 'cursorline' is set. Low-priority if foreground (ctermfg OR guifg) is not set.
Directory { }, -- directory names (and other special names in listings)
DiffAdd { fg = green }, -- diff mode: Added line |diff.txt|
DiffChange { fg = yellow }, -- diff mode: Changed line |diff.txt|
DiffDelete { fg = red }, -- diff mode: Deleted line |diff.txt|
DiffText { fg = s[6], bg = red }, -- diff mode: Changed text within a changed line |diff.txt|
EndOfBuffer { fg = eob }, -- filler lines (~) after the end of the buffer. By default, this is highlighted like |hl-NonText|.
-- TermCursor { }, -- cursor in a focused terminal
-- TermCursorNC { }, -- cursor in an unfocused terminal
Error { fg = hl1, gui = 'bold' }, -- (preferred) any erroneous construct
ErrorMsg { Error }, -- error messages on the command line
VertSplit { fg = s[1] }, -- the column separating vertically split windows
Folded { fg = s.normal, bg = s[5], gui = 'italic' }, -- line used for closed folds
FoldColumn { }, -- 'foldcolumn'
SignColumn { }, -- column where |signs| are displayed
IncSearch { fg = s[7], bg = hl3 }, -- 'incsearch' highlighting; also used for the text replaced with ":s///c"
Substitute { }, -- |:substitute| replacement text highlighting
LineNr { fg = s[1] }, -- Line number for ":number" and ":#" commands, and when 'number' or 'relativenumber' option is set.
CursorLineNr { fg = s[1] }, -- Like LineNr when 'cursorline' or 'relativenumber' is set for the cursor line.
MatchParen { fg = s[7], bg = hl2 }, -- The character under the cursor or just before it, if it is a paired bracket, and its match. |pi_paren.txt|
ParenMatch { MatchParen },
ModeMsg { }, -- 'showmode' message (e.g., "-- INSERT -- ")
MsgArea { }, -- Area for messages and cmdline
MsgSeparator { }, -- Separator for scrolled messages, `msgsep` flag of 'display'
MoreMsg { fg = hl3, gui = 'bold' }, -- |more-prompt|
NonText { fg = nt }, -- '@' at the end of the window, characters from 'showbreak' and other characters that do not really exist in the text (e.g., ">" displayed when a double-wide character doesn't fit at the end of the line). See also |hl-EndOfBuffer|.
NormalFloat { }, -- Normal text in floating windows.
NormalNC { }, -- Normal text in non-current windows
Pmenu { fg = s[1], bg = s[6] }, -- Popup menu: Normal item.
PmenuSel { fg = s[6], bg = s[1] }, -- Popup menu: selected item.
PmenuSbar { bg = s[6] }, -- Popup menu: scrollbar.
PmenuThumb { bg = s[6] }, -- Popup menu: Thumb of the scrollbar.
Question { }, -- |hit-enter| prompt and yes/no questions
QuickFixLine { }, -- Current |quickfix| item in the quickfix window. Combined with |hl-CursorLine| when the cursor is there.
Search { fg = s[7], bg = hl2 }, -- Last search pattern highlighting (see 'hlsearch'). Also used for similar items that need to stand out.
SpecialKey { gui = 'bold' }, -- Unprintable characters: text displayed differently from what it really is. But not 'listchars' whitespace. |hl-Whitespace|
SpellBad { SyntaxError }, -- Word that is not recognized by the spellchecker. |spell| Combined with the highlighting used otherwise.
SpellCap { SyntaxInfo }, -- Word that should start with a capital. |spell| Combined with the highlighting used otherwise.
SpellLocal { SyntaxHint }, -- Word that is recognized by the spellchecker as one that is used in another region. |spell| Combined with the highlighting used otherwise.
SpellRare { SyntaxWarning }, -- Word that is recognized by the spellchecker as one that is hardly ever used. |spell| Combined with the highlighting used otherwise.
StatusLine { fg = s[1], gui = 'underline' }, -- status line of current window
StatusLineNC { fg = s[3], gui = 'underline' }, -- status lines of not-current windows Note: if this is equal to "StatusLine" Vim will use "^^^" in the status line of the current window.
TabLine { fg = s[3] }, -- tab pages line, not active tab page label
TabLineFill { fg = s[3] }, -- tab pages line, where there are no labels
TabLineSel { fg = s[1], gui = 'bold' }, -- tab pages line, active tab page label
Title { gui = 'bold' }, -- titles for output from ":set all", ":autocmd" etc.
Visual { fg = s[7], bg = s.normal }, -- Visual mode selection
VisualNOS { }, -- Visual mode selection when vim is "Not Owning the Selection".
Warning { fg = hl2, gui = 'bold' }, -- warning messages
WarningMsg { Warning }, -- warning messages
Whitespace { fg = s[6] }, -- "nbsp", "space", "tab" and "trail" in 'listchars'
WildMenu { fg = s[6], fg = s.normal }, -- current match in 'wildmenu' completion
Constant { }, -- (preferred) any constant
String { fg = s[2] }, -- a string constant: "this is a string"
Character { }, -- a character constant: 'c', '\n'
Number { }, -- a number constant: 234, 0xff
Boolean { gui = 'italic' }, -- a boolean constant: TRUE, false
Float { }, -- a floating point constant: 2.3e10
Identifier { gui = 'italic' }, -- (preferred) any variable name
Function { gui = 'bold' }, -- function name (also: methods for classes)
Statement { gui = 'bold,italic' }, -- (preferred) any statement
Conditional { }, -- if, then, else, endif, switch, etc.
Repeat { }, -- for, do, while, etc.
Label { }, -- case, default, etc.
Operator { }, -- "sizeof", "+", "*", etc.
Keyword { gui = 'italic' }, -- any other keyword
Exception { }, -- try, catch, throw
PreProc { }, -- (preferred) generic Preprocessor
Include { gui = 'italic' }, -- preprocessor #include
Define { }, -- preprocessor #define
Macro { }, -- same as Define
PreCondit { }, -- preprocessor #if, #else, #endif, etc.
Type { gui = 'bold' }, -- (preferred) int, long, char, etc.
StorageClass { }, -- static, register, volatile, etc.
Structure { }, -- struct, union, enum, etc.
Typedef { }, -- A typedef
Special { }, -- (preferred) any special symbol
SpecialChar { }, -- special character in a constant
Tag { }, -- you can use CTRL-] on this
Delimiter { fg = s[1] }, -- character that needs attention
SpecialComment { }, -- special things inside a comment
Debug { }, -- debugging statements
Underlined { gui = 'underline' }, -- (preferred) text that stands out, HTML links
Bold { gui = 'bold' },
Italic { gui = 'italic' },
-- Ignore { }, -- (preferred) left blank, hidden |hl-Ignore|
Todo { fg = hl2, gui = 'bold,italic' }, -- (preferred) anything that needs extra attention; mostly the keywords TODO FIXME and XXX
-- LspReferenceText { }, -- used for highlighting "text" references
-- LspReferenceRead { }, -- used for highlighting "read" references
-- LspReferenceWrite { }, -- used for highlighting "write" references
LspDiagnosticsDefaultError { fg = red }, -- Used as the base highlight group. Other LspDiagnostic highlights link to this by default (except Underline)
LspDiagnosticsDefaultWarning { fg = yellow }, -- Used as the base highlight group. Other LspDiagnostic highlights link to this by default (except Underline)
LspDiagnosticsDefaultInformation { fg = blue }, -- Used as the base highlight group. Other LspDiagnostic highlights link to this by default (except Underline)
LspDiagnosticsDefaultHint { fg = green }, -- Used as the base highlight group. Other LspDiagnostic highlights link to this by default (except Underline)
-- LspDiagnosticsVirtualTextError { }, -- Used for "Error" diagnostic virtual text
-- LspDiagnosticsVirtualTextWarning { }, -- Used for "Warning" diagnostic virtual text
-- LspDiagnosticsVirtualTextInformation { }, -- Used for "Information" diagnostic virtual text
-- LspDiagnosticsVirtualTextHint { }, -- Used for "Hint" diagnostic virtual text
LspDiagnosticsUnderlineError { SyntaxError }, -- Used to underline "Error" diagnostics
LspDiagnosticsUnderlineWarning { SyntaxWarning }, -- Used to underline "Warning" diagnostics
LspDiagnosticsUnderlineInformation { SyntaxInfo }, -- Used to underline "Information" diagnostics
LspDiagnosticsUnderlineHint { SyntaxHint }, -- Used to underline "Hint" diagnostics
-- LspDiagnosticsFloatingError { }, -- Used to color "Error" diagnostic messages in diagnostics float
-- LspDiagnosticsFloatingWarning { }, -- Used to color "Warning" diagnostic messages in diagnostics float
-- LspDiagnosticsFloatingInformation { }, -- Used to color "Information" diagnostic messages in diagnostics float
-- LspDiagnosticsFloatingHint { }, -- Used to color "Hint" diagnostic messages in diagnostics float
-- LspDiagnosticsSignError { }, -- Used for "Error" signs in sign column
-- LspDiagnosticsSignWarning { }, -- Used for "Warning" signs in sign column
-- LspDiagnosticsSignInformation { }, -- Used for "Information" signs in sign column
-- LspDiagnosticsSignHint { }, -- Used for "Hint" signs in sign column
-- TSAnnotation { }; -- For C++/Dart attributes, annotations that can be attached to the code to denote some kind of meta information.
-- TSAttribute { }; -- (unstable) TODO: docs
-- TSBoolean { }; -- For booleans.
-- TSCharacter { }; -- For characters.
-- TSComment { }; -- For comment blocks.
-- TSConstructor { }; -- For constructor calls and definitions: ` { }` in Lua, and Java constructors.
-- TSConditional { }; -- For keywords related to conditionnals.
TSConstant { gui = 'underline' }; -- For constants
-- TSConstBuiltin { }; -- For constant that are built in the language: `nil` in Lua.
-- TSConstMacro { }; -- For constants that are defined by macros: `NULL` in C.
-- TSError { }; -- For syntax/parser errors.
-- TSException { }; -- For exception related keywords.
-- TSField { }; -- For fields.
-- TSFloat { }; -- For floats.
-- TSFunction { }; -- For function (calls and definitions).
-- TSFuncBuiltin { }; -- For builtin functions: `table.insert` in Lua.
-- TSFuncMacro { }; -- For macro defined fuctions (calls and definitions): each `macro_rules` in Rust.
-- TSInclude { }; -- For includes: `#include` in C, `use` or `extern crate` in Rust, or `require` in Lua.
-- TSKeyword { }; -- For keywords that don't fall in previous categories.
-- TSKeywordFunction { }; -- For keywords used to define a fuction.
-- TSLabel { }; -- For labels: `label:` in C and `:label:` in Lua.
-- TSMethod { }; -- For method calls and definitions.
-- TSNamespace { }; -- For identifiers referring to modules and namespaces.
-- TSNone { }; -- TODO: docs
-- TSNumber { }; -- For all numbers
-- TSOperator { }; -- For any operator: `+`, but also `->` and `*` in C.
-- TSParameter { }; -- For parameters of a function.
-- TSParameterReference { }; -- For references to parameters of a function.
TSProperty { gui = 'italic' }; -- Same as `TSField`.
-- TSPunctDelimiter { }; -- For delimiters ie: `.`
-- TSPunctBracket { }; -- For brackets and parens.
-- TSPunctSpecial { }; -- For special punctutation that does not fall in the catagories before.
-- TSRepeat { }; -- For keywords related to loops.
-- TSString { }; -- For strings.
TSStringRegex { fg = s[1], gui = 'italic' }; -- For regexes.
TSStringEscape { fg = s.normal, gui = 'bold' }; -- For escape characters within a string.
-- TSSymbol { }; -- For identifiers referring to symbols or atoms.
-- TSType { }; -- For types.
-- TSTypeBuiltin { }; -- For builtin types.
-- TSVariable { }; -- Any variable name that does not have another highlight.
-- TSVariableBuiltin { }; -- Variable names that are defined by the languages, like `this` or `self`.
-- TSTag { }; -- Tags like html tag names.
-- TSTagDelimiter { }; -- Tag delimiter like `<` `>` `/`
-- TSText { }; -- For strings considered text in a markup language.
-- TSEmphasis { }; -- For text to be represented with emphasis.
-- TSUnderline { }; -- For text to be represented with an underline.
-- TSStrike { }; -- For strikethrough text.
-- TSTitle { }; -- Text that is part of a title.
-- TSLiteral { }; -- Literal text.
-- TSURI { }; -- Any URI like a link or email.
}
end)