diff --git a/modules/ui/modeline/+light.el b/modules/ui/modeline/+light.el index f49ce1c74..951a26c48 100644 --- a/modules/ui/modeline/+light.el +++ b/modules/ui/modeline/+light.el @@ -485,6 +485,24 @@ lines are selected, or the NxM dimensions of a block selection.") (add-hook 'deactivate-mark-hook #'+modeline-remove-selection-segment-h)) +;;; `+modeline-repl' +(progn + (def-modeline-var! +modeline-repl nil + "Display REPL connection status icon." + :local t) + + (add-hook! '(cider-connected-hook + cider-disconnected-hook + cider-mode-hook) + (defun +modeline-repl-cider-update () + "Update repl connection to cider connection state." + (let* ((connected (cider-connected-p)) + (face (if connected 'success 'warning)) + (label (if connected "Cider connected" "Cider disconnected"))) + (setq +modeline-repl + (+modeline-format-icon 'faicon "terminal" "" face label -0.0575)))))) + + ;;; `+modeline-lsp' (progn (def-modeline-var! +modeline-lsp nil @@ -538,6 +556,8 @@ lines are selected, or the NxM dimensions of a block selection.") `("" mode-line-misc-info " " + +modeline-repl + " " +modeline-lsp " " +modeline-modes