  SPDX - FileCopyrightText : Atlas Engineer LLC
  SPDX - License - Identifier : BSD-3 - Clause

(nyxt:define-package :nyxt/history-tree-mode
    (:documentation "Mode for history-trees."))
(in-package :nyxt/history-tree-mode)

(define-mode history-tree-mode ()
  "Mode for history-tree listing."
  ((visible-in-status-p nil)
   (style (theme:themed-css (theme *browser*)
            `(* :margin 0
                :padding 0
                :list-style "none")
            `(body
              :background ,theme:background
              :color ,theme:on-background
              :line-height "initial")
            `(".current-buffer a"
              :color ,theme:on-background)
            `(".current-buffer a:hover"
              :opacity 0.5)
            `(".other-buffer a"
              :color ,theme:primary)
            `(".other-buffer a:hover"
              :opacity 0.5)
            `(li
              :white-space "nowrap")
            `("ul li"
              :margin-left "15px"
              :position "relative"
              :padding-left "5px")
            `("ul li::before"
              :content "' '"
              :position "absolute"
              :width "1px"
              :background-color ,theme:on-background ; is this right??
              :color ,theme:background
              :top "5px"
              :bottom "-12px"
              :left "-10px")
            `("body > ul > li:first-child::before"
              :top "12px")
            `("ul li:not(:first-child):last-child::before"
              :display "none")
            `("ul li:only-child::before"
              :display "list-item"
              :content "' '"
              :position "absolute"
              :width "1px"
              :background-color ,theme:on-background ; is this right??
              :color ,theme:background
              :top "5px"
              :bottom "7px"
              :height "7px"
              :left "-10px")
            `("ul li::after"
              :content "' '"
              :position "absolute"
              :left "-10px"
              :width "10px"
              :height "1px"
              :background-color ,theme:on-background ; is this right
              :color ,theme:background
              :top "12px"))))
  (:toggler-command-p nil))

 is this right??
 is this right??
 is this right
  SPDX - FileCopyrightText : Atlas Engineer LLC
  SPDX - License - Identifier : BSD-3 - Clause

(nyxt:define-package :nyxt/history-tree-mode
    (:documentation "Mode for history-trees."))
(in-package :nyxt/history-tree-mode)

(define-mode history-tree-mode ()
  "Mode for history-tree listing."
  ((visible-in-status-p nil)
   (style (theme:themed-css (theme *browser*)
            `(* :margin 0
                :padding 0
                :list-style "none")
            `(body
              :background ,theme:background
              :color ,theme:on-background
              :line-height "initial")
            `(".current-buffer a"
              :color ,theme:on-background)
            `(".current-buffer a:hover"
              :opacity 0.5)
            `(".other-buffer a"
              :color ,theme:primary)
            `(".other-buffer a:hover"
              :opacity 0.5)
            `(li
              :white-space "nowrap")
            `("ul li"
              :margin-left "15px"
              :position "relative"
              :padding-left "5px")
            `("ul li::before"
              :content "' '"
              :position "absolute"
              :width "1px"
              :color ,theme:background
              :top "5px"
              :bottom "-12px"
              :left "-10px")
            `("body > ul > li:first-child::before"
              :top "12px")
            `("ul li:not(:first-child):last-child::before"
              :display "none")
            `("ul li:only-child::before"
              :display "list-item"
              :content "' '"
              :position "absolute"
              :width "1px"
              :color ,theme:background
              :top "5px"
              :bottom "7px"
              :height "7px"
              :left "-10px")
            `("ul li::after"
              :content "' '"
              :position "absolute"
              :left "-10px"
              :width "10px"
              :height "1px"
              :color ,theme:background
              :top "12px"))))
  (:toggler-command-p nil))
