Zettelstore Contrib

module zettelstore.de/contrib/social

go 1.22

require zettelstore.de/sx.fossil v0.0.0-20240322172300-7f216ac38787

zettelstore.de/sx.fossil v0.0.0-20240322172300-7f216ac38787 h1:/0Bke+SqabK9tWy9tBykiCsOGr4Cwshp3Gc9WL3aMjA=
zettelstore.de/sx.fossil v0.0.0-20240322172300-7f216ac38787/go.mod h1:/iGHxFXoo6GSV04PUkwaLuFrrCa5LMorxD73iLMAruI=

	return root, nil
}

var (
	specials = []*sxeval.Special{
		&sxbuiltins.QuoteS, &sxbuiltins.QuasiquoteS, // quote, quasiquote
		&sxbuiltins.UnquoteS, &sxbuiltins.UnquoteSplicingS, // unquote, unquote-splicing
		&sxbuiltins.DefunS, &sxbuiltins.DefDynS, // defun, defdyn
		&sxbuiltins.LetS,      // let
		&sxbuiltins.IfS,       // if
		&sxbuiltins.DefMacroS, // defmacro
		&sxbuiltins.BeginS,    // begin
	}
	builtins = []*sxeval.Builtin{
		&sxbuiltins.Equal,                // =
		&sxbuiltins.NullP,                // null?
		&sxbuiltins.Car, &sxbuiltins.Cdr, // car, cdr
		&sxbuiltins.Caar, &sxbuiltins.Cadr, // caar, cadr
		&sxbuiltins.Cadar,  // cadar
		&sxbuiltins.List,   // list
		&sxbuiltins.Map,    // map
		&sxbuiltins.BoundP, // bound?
	}
)

func (wui *WebUI) bindExtra(root *sxeval.Binding) error {
	err := root.BindBuiltin(&sxeval.Builtin{
		Name:     "make-url",

	lb.Add(symUL)
	lb.Add(makeNavItem(st, root, nil))
	buildNavLevel(st, &lb, ancestors[1:], root.Children())
	return lb.List()
}

func buildNavLevel(st *site.Site, lb *sx.ListBuilder, ancestors, children []*site.Node) {
	var root *site.Node
	if len(ancestors) > 0 {
		root = ancestors[0]
	}
	for _, child := range children {
		if !child.IsVisible() {
			continue
		}
		lb.Add(makeNavItem(st, child, root))
		if child != root {
			continue

}

var (
	symA     = sx.MakeSymbol("a")
	symClass = sx.MakeSymbol("class")
	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)
}

  (title ,TITLE)
)
(body
  (header
    (h1 ,TITLE)
  )
  (main
    (div ,@CONTENT)
  )
)))
)

	"net/http"

	"zettelstore.de/sx.fossil"
	"zettelstore.de/sx.fossil/sxeval"
	"zettelstore.de/sx.fossil/sxhtml"
)

func (wui *WebUI) renderTemplateStatus(w http.ResponseWriter, code int, templateSym *sx.Symbol, rb *renderBinding) error {
	if err := rb.err; err != nil {
		return err
	}
	binding := rb.bind
	wui.logger.Debug("Render", "binding", binding.Bindings())
	env := sxeval.MakeExecutionEnvironment(binding)
	if _, bound := env.Resolve(templateSym); bound {
		obj, err := env.Eval(sx.MakeList(sx.MakeSymbol("render-template"), templateSym))
		if err != nil {
			return err
		}
		wui.logger.Debug("Render", "content", obj)
		rb.bindObject("CONTENT", obj)
	} else if templateSym != nil {
		rb.bindObject("CONTENT", sx.MakeList(symP, sx.String(templateSym.GoString())))
	}
	obj, err := env.Eval(sx.MakeList(sx.MakeSymbol("render-template"), sx.MakeSymbol(nameLayout)))
	if err != nil {
		return err
	}
	wui.logger.Debug("Render", "sxhtml", obj)
	gen := sxhtml.NewGenerator().SetNewline()
	var sb bytes.Buffer
	_, err = gen.WriteHTML(&sb, obj)
	if err != nil {
		return err
	}
	h := w.Header()
	h.Set("Content-Type", "text/html; charset=utf-8")
	w.WriteHeader(code)
	if _, err = w.Write(sb.Bytes()); err != nil {
		wui.logger.Error("Unable to write HTML", "error", err)
	}
	return nil
}

func (wui *WebUI) MakeTestHandler() http.HandlerFunc {
	return func(w http.ResponseWriter, r *http.Request) {
		rb := wui.makeRenderBinding("test", r)
		rb.bindObject("CONTENT", sx.MakeList(sx.String(fmt.Sprintf("Some content, url is: %q", r.URL))))
		if err := wui.renderTemplateStatus(w, 200, nil, rb); err != nil {
			wui.handleError(w, "Render", err)
			return
		}
	}
}

func (wui *WebUI) handleError(w http.ResponseWriter, subsystem string, err error) {

import (
	"bytes"
	"fmt"
	"net/http"

	"zettelstore.de/contrib/social/usecase"
	"zettelstore.de/sx.fossil"
)

// MakeGetAllUAHandler creates a new HTTP handler to display the list of found
// user agents.
func (wui *WebUI) MakeGetAllUAHandler(ucAllUA usecase.GetAllUserAgents) http.HandlerFunc {
	symUserAgents := sx.MakeSymbol("user-agents")
	return func(w http.ResponseWriter, r *http.Request) {
		uasT, uasF := ucAllUA.Run(r.Context())

		if len(r.URL.Query()) == 0 {
			rb := wui.makeRenderBinding("user-agent", r)
			rb.bindObject("ALLOWED-AGENTS", stringsTosxList(uasT))
			rb.bindObject("BLOCKED-AGENTS", stringsTosxList(uasF))
			if err := wui.renderTemplateStatus(w, 200, symUserAgents, rb); err != nil {
				wui.handleError(w, "Render", err)
			}
			return
		}

		var buf bytes.Buffer
		for _, ua := range uasT {
			fmt.Fprintln(&buf, ua)
		}
		if len(uasF) > 0 && len(uasT) > 0 {
			fmt.Fprintln(&buf, "---")
		}
		for _, ua := range uasF {
			fmt.Fprintln(&buf, ua)
		}
		w.WriteHeader(http.StatusOK)
		_, _ = w.Write(buf.Bytes())
	}
}

func stringsTosxList(sl []string) *sx.Pair {
	var lb sx.ListBuilder
	for _, s := range sl {
		lb.Add(sx.String(s))
	}
	return lb.List()
}

}

type renderBinding struct {
	err  error
	bind *sxeval.Binding
}

func (rb *renderBinding) bindObject(key string, obj sx.Object) {
	if rb.err == nil {
		rb.err = rb.bind.Bind(sx.MakeSymbol(key), obj)
	}
}
func (rb *renderBinding) bindString(key, val string) {
	if rb.err == nil {
		rb.err = rb.bind.Bind(sx.MakeSymbol(key), sx.String(val))
	}
}

func (wui *WebUI) evalCode(env *sxeval.Environment) error {

// Template names
const (
	nameLayout = "layout"
)

// compileAllTemplates compiles (parses, reworks) all needed templates.
func (wui *WebUI) compileAllTemplates(env *sxeval.Environment, dir string) error {
	for _, name := range []string{nameLayout, "useragent"} {
		if err := wui.evalTemplate(env, dir, name); err != nil {
			return err
		}
	}
	return nil
}