 (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)


(setq full-colors-supported (> (length (defined-colors)) 8))

(defun colorize (text weight sharability bold)
    (let (
        (i (- (ceiling (* sharability 4)) 1))
        (j (- (ceiling (* weight 4)) 1)))

                    (elt full-colors (+ j (* i 4)))
                    (elt reduced-colors i))))
	    (if bold
            (propertize text 'face (list 'bold 'italic  :foreground color :background background))
            (propertize text 'face (list :foreground color :background background))))))

(defun unescape-link-value (value)
    (replace-regexp-in-string "[ ]" "\\\\ "
        (replace-regexp-in-string "[)]" "\\\\)"
            (replace-regexp-in-string "[(]" "\\\\(" value))))

(defun light-gray (text background)
    (propertize text
	    'face (if full-colors-supported
		    (list :foreground "grey80" :background background)
			(list :foreground "black"))))

(defun dark-gray (text background)
    (propertize text
	    'face (if full-colors-supported
		    (list :foreground "grey50" :background background)
			(list :foreground "black"))))

(defun longest-key (json)
    (let ((max 0))
