Pure Hiccup UI components for workflow admin visualization.
All functions are pure — they receive data and return Hiccup structures. No side effects, no I/O, no logging.
Components: state-badge — colored state pill state-machine-vis — read-only workflow state diagram audit-log-table — chronological audit trail table instances-filter-form — search/filter form for instance list instances-table — paginated instance list table instances-page — full page: instance list instance-detail-page — full page: instance detail with state viz + audit trail
Pure Hiccup UI components for workflow admin visualization. All functions are pure — they receive data and return Hiccup structures. No side effects, no I/O, no logging. Components: state-badge — colored state pill state-machine-vis — read-only workflow state diagram audit-log-table — chronological audit trail table instances-filter-form — search/filter form for instance list instances-table — paginated instance list table instances-page — full page: instance list instance-detail-page — full page: instance detail with state viz + audit trail
(audit-log-table entries)Render a chronological audit log table for a workflow instance.
Args: entries - vector of AuditEntry maps (oldest first)
Returns: Hiccup table or empty-state structure
Render a chronological audit log table for a workflow instance. Args: entries - vector of AuditEntry maps (oldest first) Returns: Hiccup table or empty-state structure
(instance-detail-page instance definition audit-entries opts)Render the workflow instance detail page.
Displays instance metadata, a state machine visualization with the current state highlighted, and the full chronological audit trail.
Args: instance - WorkflowInstance map definition - WorkflowDefinition map or nil audit-log - vector of AuditEntry maps (oldest first) opts - map with :user, :flash
Returns: Complete HTML page structure
Render the workflow instance detail page. Displays instance metadata, a state machine visualization with the current state highlighted, and the full chronological audit trail. Args: instance - WorkflowInstance map definition - WorkflowDefinition map or nil audit-log - vector of AuditEntry maps (oldest first) opts - map with :user, :flash Returns: Complete HTML page structure
(instances-filter-form params)Render the search/filter form for the workflow instances list.
Args: params - current query-params map (string keys)
Returns: Hiccup form structure
Render the search/filter form for the workflow instances list. Args: params - current query-params map (string keys) Returns: Hiccup form structure
(instances-page instances params opts)Render the full workflow instances list page.
Args: instances - vector of WorkflowInstance maps params - query-params map (string keys from ring request) opts - map with :user, :flash
Returns: Complete HTML page structure (doctype + html)
Render the full workflow instances list page. Args: instances - vector of WorkflowInstance maps params - query-params map (string keys from ring request) opts - map with :user, :flash Returns: Complete HTML page structure (doctype + html)
(instances-table instances)Render a paginated table of workflow instances.
Args: instances - vector of WorkflowInstance maps
Returns: Hiccup table or empty-state structure
Render a paginated table of workflow instances. Args: instances - vector of WorkflowInstance maps Returns: Hiccup table or empty-state structure
(state-badge state-kw)(state-badge state-kw variant)Render a state keyword as a colored badge.
Args: state-kw - keyword (e.g. :pending, :paid) variant - :current | :reachable | :visited | :default
CSS classes map: :current → status-badge success (green — active state) :reachable → status-badge info (blue — reachable from current) :visited → status-badge (grey — previously visited) :default → status-badge (grey — all other states)
Returns: Hiccup span element
Render a state keyword as a colored badge. Args: state-kw - keyword (e.g. :pending, :paid) variant - :current | :reachable | :visited | :default CSS classes map: :current → status-badge success (green — active state) :reachable → status-badge info (blue — reachable from current) :visited → status-badge (grey — previously visited) :default → status-badge (grey — all other states) Returns: Hiccup span element
(state-machine-vis definition current-state visited-states)Render a read-only visualization of a workflow state machine.
Displays all states as colored badges (current highlighted in green, reachable states in blue) and a collapsible transition reference table.
Args: definition - WorkflowDefinition map or nil if not registered current-state - keyword (e.g. :paid) visited-states - collection of state keywords already visited (from audit log)
Returns: Hiccup structure
Render a read-only visualization of a workflow state machine. Displays all states as colored badges (current highlighted in green, reachable states in blue) and a collapsible transition reference table. Args: definition - WorkflowDefinition map or nil if not registered current-state - keyword (e.g. :paid) visited-states - collection of state keywords already visited (from audit log) Returns: Hiccup structure
cljdoc builds & hosts documentation for Clojure/Script libraries
| Ctrl+k | Jump to recent docs |
| ← | Move to previous article |
| → | Move to next article |
| Ctrl+/ | Jump to the search field |