brand,lua - color API (module, shortcodes)

Author: cscheid

src/resources/filters/modules/brand/brand.lua

@@ -0,0 +1,11 @@
+-- brand.lua
+-- Copyright (C) 2020-2024 Posit Software, PBC
+
+local function get_color(name)
+  local brand = param("brand").processedData -- from src/core/brand/brand.ts
+  return brand.color[name]
+end
+
+return {
+  get_color = get_color
+}

src/resources/filters/quarto-pre/shortcodes-handlers.lua

@@ -59,6 +59,20 @@ end
 
 local handlers = {}
 
+local function read_arg(args, n)
+  local arg = args[n or 1]
+  local varName
+  if arg == nil then
+    return nil
+  end
+  if type(arg) ~= "string" then
+    varName = inlinesToString(arg)
+  else
+    varName = arg
+  end
+  return varName
+end
+
 function initShortcodeHandlers()
 
   -- user provided handlers
@@ -90,32 +104,35 @@ function initShortcodeHandlers()
     end)
   end
 
+  local function handle_brand(args)
+    local brand = require("modules/brand/brand")
+    local brandCommand = read_arg(args, 1)
+    if brandCommand ~= "color" then 
+      warn("Unknown brand command " .. brandCommand .. " specified in a brand shortcode.")
+      return { pandoc.Strong({pandoc.Str("?brand:" .. brandCommand)}) } 
+    end
+    local brandName = read_arg(args, 2)
+    local brandValue = brand.get_color(brandName)
+    if brandValue ~= nil then
+      return { pandoc.Str(brandValue) }
+    else 
+      warn("Unknown brand " .. brandName .. " specified in a brand shortcode.")
+      return { pandoc.Strong({pandoc.Str("?brand:" .. brandName)}) } 
+    end
+  end
 
   -- built in handlers (these override any user handlers)
   handlers['meta'] = { handle = handleMeta }
   handlers['var'] = { handle = handleVars }
   handlers['env'] = { handle = handleEnv }
   handlers['pagebreak'] = { handle = handlePagebreak }
+  handlers['brand'] = { handle = handle_brand }
 end
 
 function handlerForShortcode(shortCode)
   return handlers[shortCode.name]
 end
 
-local function read_arg(args, n)
-  local arg = args[n or 1]
-  local varName
-  if arg == nil then
-    return nil
-  end
-  if type(arg) ~= "string" then
-    varName = inlinesToString(arg)
-  else
-    varName = arg
-  end
-  return varName
-end
-
 -- Implements reading values from envrionment variables
 function handleEnv(args)
   if #args > 0 then