 		            (let ((line "") (key (concat link-key ":" target-key ":")))
 		                (setq line (concat
 		                    line
-		                    (light-gray key)))
-					    (loop for i from 0 to (- indent (length key)) do (setq line (concat line " ")))
-					    (if meta (setq line (concat line (dark-gray "("))))
+		                    (light-gray key "grey95")))
+		                (let ((space ""))
+                            (loop for i from 1 to (- indent (length key)) do (setq space (concat space " ")))
+                            (setq line (concat line (light-gray space "grey95") " ")))
+					    (if meta (setq line (concat line (dark-gray "(" "white"))))
 					    (setq line (concat line
-					        (colorize (unescape-link-value link-value) link-weight link-sharability t)))
-					    (if meta (setq line (concat line (dark-gray ")"))))
+					        (colorize (unescape-link-value link-value) link-weight link-sharability t "white")))
+					    (if meta (setq line (concat line (dark-gray ")" "white"))))
                         (setq line (concat line
-                            "  "
-                            (colorize target-value target-weight target-sharability nil)
-                            "\n"))
+                            (colorize (concat "  " target-value "\n") target-weight target-sharability nil "white")))
                         (insert (propertize line
                             ;;'invisible t
 			                    'link-key link-key

(set-selection-coding-system 'utf-8)
(prefer-coding-system 'utf-8)

;;(setq syntax-keywords
;; '(
;;   ("^\([0-9A-Za-z+/]*:[0-9A-Za-z+/]*\)" . font-lock-doc-face)
;;  ))
;;
;;(define-derived-mode tinkernotes-mode fundamental-mode
;;  (setq font-lock-defaults '(syntax-keywords))
;;  (setq mode-name "tinkernotes")
;;)


;; Uncomment only when debugging
(add-hook 'after-init-hook '(lambda () (setq debug-on-error t)))

(global-set-key (kbd "C-c C-w C-] ,") 'decrease-max-weight)
(global-set-key (kbd "C-c C-w C-] .") 'increase-max-weight)


;; Note: these should perhaps be local settings
(global-set-key (kbd "C-c C-v ;") 'toggle-truncate-lines)
(setq-default truncate-lines t)
