anchor.diff:    (:dark :foreground "sky blue"))
   
   (define-attribute link-attribute
  -  (:light :foreground "dark green")
  +  (:light :foreground "cyan")
     (:dark :foreground "green"))
   
   (define-major-mode directory-mode ()
  
positive.code:   (alexandria:when-let (pathname (get-pathname (current-point)))
      (funcall function pathname)))
  
  (defun get-file-attribute (pathname)
    (cond ((uiop:directory-pathname-p pathname)
           'directory-attribute)
          (t
           'file-attribute)))
  
negative.code:                              year month day hour minute second
                               (if week (aref #("Mon" "Tue" "Wed" "Thr" "Fri" "Sat" "Sun") week)
                                   "   "))))
      (insert-string point
                     name
                     :attribute (get-file-attribute pathname))
      (when (symbolic-link-p pathname)
        (insert-string point (format nil "-> ~A" (probe-file pathname))))
      (insert-character point #\newline)))
  
  (defun update (buffer)
  