sqs-browse: new tool

Started working on a new tool to poll and browse an SQS queue.  This is built using a TUI framework

internal/sqs-browse/ui/events.go

@@ -0,0 +1,5 @@
+package ui
+
+import "github.com/lmika/awstools/internal/sqs-browse/models"
+
+type NewMessagesEvent []*models.Message

internal/sqs-browse/ui/model.go

@@ -0,0 +1,80 @@
+package ui
+
+import (
+	table "github.com/calyptia/go-bubble-table"
+	"github.com/charmbracelet/bubbles/viewport"
+	tea "github.com/charmbracelet/bubbletea"
+	"github.com/charmbracelet/lipgloss"
+)
+
+type uiModel struct {
+	table    table.Model
+	viewport viewport.Model
+
+	tableRows []table.Row
+}
+
+func NewModel() tea.Model {
+	tbl := table.New([]string{"seq", "message"}, 100, 20)
+	rows := make([]table.Row, 0)
+	tbl.SetRows(rows)
+
+	vprt := viewport.New(100, 15)
+
+	model := uiModel{
+		table:     tbl,
+		viewport:  vprt,
+		tableRows: rows,
+	}
+
+	return model
+}
+
+func (m uiModel) Init() tea.Cmd {
+	return nil
+}
+
+func (m *uiModel) updateViewportToSelectedMessage() {
+	if message, ok := m.table.SelectedRow().(messageTableRow); ok {
+		m.viewport.SetContent(message.Data)
+	} else {
+		m.viewport.SetContent("(no message selected)")
+	}
+}
+
+func (m uiModel) Update(msg tea.Msg) (tea.Model, tea.Cmd) {
+	switch msg := msg.(type) {
+	case NewMessagesEvent:
+		for _, newMsg := range msg {
+			m.tableRows = append(m.tableRows, messageTableRow(*newMsg))
+		}
+		m.table.SetRows(m.tableRows)
+		m.updateViewportToSelectedMessage()
+
+	case tea.KeyMsg:
+
+		switch msg.String() {
+
+		case "ctrl+c", "q":
+			return m, tea.Quit
+		case "up", "i":
+			m.table.GoUp()
+			m.updateViewportToSelectedMessage()
+		case "down", "k":
+			m.table.GoDown()
+			m.updateViewportToSelectedMessage()
+		}
+	}
+
+	updatedTable, tableMsgs := m.table.Update(nil)
+	updatedViewport, viewportMsgs := m.viewport.Update(msg)
+
+	m.table = updatedTable
+	m.viewport = updatedViewport
+
+	return m, tea.Batch(tableMsgs, viewportMsgs)
+}
+
+func (m uiModel) View() string {
+	return lipgloss.JoinVertical(lipgloss.Top, m.table.View(), m.viewport.View())
+}

internal/sqs-browse/ui/tblmodel.go

@@ -0,0 +1,26 @@
+package ui
+
+import (
+	"fmt"
+	"github.com/lmika/awstools/internal/sqs-browse/models"
+	table "github.com/calyptia/go-bubble-table"
+	"io"
+	"strings"
+)
+
+type messageTableRow models.Message
+
+func (mtr messageTableRow) Render(w io.Writer, model table.Model, index int) {
+	firstLine := strings.SplitN(string(mtr.Data), "\n", 2)[0]
+
+	sb := strings.Builder{}
+	sb.WriteString(fmt.Sprintf("%d", mtr.ID))
+	sb.WriteString("\t")
+	sb.WriteString(firstLine)
+
+	if index == model.Cursor() {
+		fmt.Fprintln(w, model.Styles.SelectedRow.Render(sb.String()))
+	} else {
+		fmt.Fprintln(w, sb.String())
+	}
+}