melrōse musical expression player

package core import ( "bytes" "fmt" "sort" "github.com/emicklei/melrose/notify" ) type Inspection struct { Context Context Type string Text string VariableName string Properties map[string]any flat string } const maxTextLength = 40 func NewInspect(ctx Context, varname string, value any) Inspection { i := Inspection{ Context: ctx, VariableName: varname, Type: fmt.Sprintf("%T", value), Properties: map[string]any{}, } if s, ok := value.(Storable); ok { i.Text = s.Storex() } if p, ok := value.(Inspectable); ok { p.Inspect(i) } else { if s, ok := value.(Sequenceable); ok { s.S().Inspect(i) // show props as sequence } } if s, ok := value.(Sequenceable); ok { i.flat = s.S().Storex() } // default if len(i.Text) == 0 { i.Text = fmt.Sprintf("%v", value) } return i } // Markdown returns a markdown formatted string with inspection details func (i Inspection) Markdown() string { var b bytes.Buffer title := i.Text // chop to reasonable size if len(title) > maxTextLength { title = title[:maxTextLength] + "..." } fmt.Fprintf(&b, "`%s`\n", title) // sort keys keys := []string{} for k := range i.Properties { keys = append(keys, k) } sort.Strings(keys) for _, k := range keys { v := i.Properties[k] if b, ok := v.(bool); ok { // humanize it if b { v = "is" } else { v = "is not" } } fmt.Fprintf(&b, "- %v %s\n", v, k) } // only if we know the variable and have a http service listening if len(i.VariableName) > 0 && i.Context.Capabilities().HTTPService { fmt.Fprintln(&b) fmt.Fprintf(&b, `[more...](http://localhost:8118/v1/notes?var=%s)`, i.VariableName) // TODO get port from flag } return b.String() } func (i Inspection) String() string { var b bytes.Buffer // title := i.Text // fmt.Fprintf(&b, "%s ", title) // sort keys keys := []string{} for k := range i.Properties { keys = append(keys, k) } sort.Strings(keys) // last minute prop keys = append(keys, "type") i.Properties["type"] = i.Type // last minute prop, flatten sequence if avail seq := i.flat if seq != "" { keys = append(keys, "flat") // chop to reasonable size if len(seq) > maxTextLength*4 { seq = seq[:maxTextLength*4] + "..." } i.Properties["flat"] = seq } for _, k := range keys { v := i.Properties[k] notify.PrintKeyValue(&b, k, v) } return b.String() }