Zettelstore Contrib

	webui, err := wui.NewWebUI(cfg.MakeLogger("WebUI"), cfg.TemplateRoot, cfg.Site)
	if err != nil {
		return err
	}

	userAgentsHandler := webui.MakeGetAllUAHandler(usecase.NewGetAllUserAgents(uaColl))
	var handlerMap = map[string]http.HandlerFunc{
		"header":      webui.MakeHeaderHandler(),
		"html":        webui.MakeGetPageHandler(cfg.PageRoot),
		"test":        webui.MakeTestHandler(),
		"user-agents": userAgentsHandler,
	}

	h.HandleFunc("GET /", webui.MakeDocumentHandler(cfg.DocumentRoot))
	if site := cfg.Site; site != nil {

		&sxbuiltins.BeginS,    // begin
	}
	builtins = []*sxeval.Builtin{
		&sxbuiltins.Equal,                // =
		&sxbuiltins.NullP,                // null?
		&sxbuiltins.Car, &sxbuiltins.Cdr, // car, cdr
		&sxbuiltins.Caar, &sxbuiltins.Cadr, // caar, cadr
		&sxbuiltins.Cdar,          // cdar
		&sxbuiltins.Cadar,         // cadar
		&sxbuiltins.LengthGreater, // length>
		&sxbuiltins.List,          // list
		&sxbuiltins.Map,           // map
		&sxbuiltins.BoundP,        // bound?
	}
)

	lb.Add(makeSimpleLink(sx.String(st.Path(node)), sx.String(node.Title())))
	return lb.List()
}

var (
	symA     = sx.MakeSymbol("a")
	symClass = sx.MakeSymbol("class")
	symDD    = sx.MakeSymbol("dd")
	symDL    = sx.MakeSymbol("dl")
	symDT    = sx.MakeSymbol("dt")
	symHref  = sx.MakeSymbol("href")
	symLI    = sx.MakeSymbol("li")
	symP     = sx.MakeSymbol("p")
	symUL    = sx.MakeSymbol("ul")
)

func makeSimpleLink(href, text sx.String) *sx.Pair {
	return sx.MakeList(
		symA,
		sx.MakeList(sxhtml.SymAttr, sx.Cons(symHref, href)),
		text)
}

//-----------------------------------------------------------------------------
// Copyright (c) 2024-present Detlef Stern
//
// This file is part of Zettel Social
//
// Zettel Social is licensed under the latest version of the EUPL (European
// Union Public License). Please see file LICENSE.txt for your rights and
// obligations under this license.
//
// SPDX-License-Identifier: EUPL-1.2
// SPDX-FileCopyrightText: 2024-present Detlef Stern
//-----------------------------------------------------------------------------

package wui

import (
	"net/http"
	"slices"

	"zettelstore.de/sx.fossil"
)

// MakeHeaderHandler returns a HTTP handler that shows all HTTP header.
func (wui *WebUI) MakeHeaderHandler() http.HandlerFunc {
	symHTTPHeader := sx.MakeSymbol("http-header")
	return func(w http.ResponseWriter, r *http.Request) {
		keys := make([]string, 0, len(r.Header))
		for key := range r.Header {
			keys = append(keys, key)
		}
		slices.Sort(keys)

		var headerList sx.ListBuilder
		headerList.Add(symDL)
		for _, key := range keys {
			headerList.Add(sx.MakeList(symDT, sx.String(key)))
			for _, val := range r.Header[key] {
				headerList.Add(sx.MakeList(symDD, sx.String(val)))
			}
		}

		rb := wui.makeRenderBinding("user-agent", r)
		rb.bindObject("HEADER-DL", headerList.List())
		wui.renderTemplate(w, symHTTPHeader, rb)
	}
}

;;;----------------------------------------------------------------------------
;;; Copyright (c) 2024-present Detlef Stern
;;;
;;; This file is part of Zettel Social.
;;;
;;; Zettel Social is licensed under the latest version of the EUPL (European
;;; Union Public License). Please see file LICENSE.txt for your rights and
;;; obligations under this license.
;;;
;;; SPDX-License-Identifier: EUPL-1.2
;;; SPDX-FileCopyrightText: 2024-present Detlef Stern
;;;----------------------------------------------------------------------------

;;; SXC code for social nodes.

;;; Node "User Agents"

(defun string->item (s) `(li ,s))

(define-template user-agents
`(
  (h1 ,TITLE)
  (ul ,@(map string->item ALLOWED-AGENTS))
  ,@(if (length> BLOCKED-AGENTS 0)
        `((h2 "Blockiert")
          (ul ,@(map string->item BLOCKED-AGENTS))))
  (a (@ (href "?plain")) "plain")
 )
)

;;; Node "HTTP Header"

(define-template http-header
    `((h1 ,TITLE) ,HEADER-DL)
)

//go:embed layout.sxc
var contentLayoutSxc []byte

//go:embed page.sxc
var contentPageSec []byte

//go:embed social.sxc
var contentSocialSxc []byte

var staticSxc = [][]byte{
	contentPreludeSxc,
	contentTemplateSxc,
	contentLayoutSxc,
	contentPageSec,
	contentSocialSxc,
}

func (wui *WebUI) evalReader(env *sxeval.Environment, rdr *sxreader.Reader) error {
	for {
		obj, err := rdr.Read()
		if err != nil {
			if err == io.EOF {