| 1234567891011121314151617181920212223242526272829303132333435363738394041 |
- (in-package #:nyxt-user)
- (defun custom-dashboard ()
- ""
- )
- (define-configuration browser
- ((startup-function (make-startup-function :buffer-fn #'custom-dashboard))))
- (defun format-status (window)
- "Final status function that control the entire bar"
- (let*
- (
- (buffer (current-buffer window))
- (vi-class (cond ; Find vi mode mode
- ((find-submode buffer 'vi-normal-mode) "command")
- ((find-submode buffer 'vi-insert-mode) "insert")))
- )
-
- (spinneret:with-html-string
- (:div :id (if vi-class "container-vi" "container")
- (:td
-
- (:tr
- (:div :id "tabs"
- (:raw (format-status-tabs))))
-
- (:tr
- (:div :id "url" :class "rounded"
- (:raw (format-status-load-status buffer) (format-status-url buffer)))) ; <load status> <current url>
-
- (:tr
- (:div :id "buttons" :class "rounded-right" ; Try to make status bar sections rounded
- (:raw (format-status-buttons)))
- (when vi-class
- (:div :id "vi-mode" :class "rounded-right"
- (:raw (format-status-vi-mode buffer)))) ; <current vi mode>
- (:div :id "modes" :class "rounded-left"
- ; :title (list-modes buffer) ; why does this have this?
- (:raw (format-status-modes buffer window)))))))))
|
