fiddlerwoaroof/dotfiles - Change DMVROIKLOEHSWE4XDJ66XZH3RSHJ3KL3ORDIYI5D36N6BZ2QJK4QC

refactor: add earmuffs to color-alist symbol

Created by Edward Langley on June 15, 2023

DMVROIKLOEHSWE4XDJ66XZH3RSHJ3KL3ORDIYI5D36N6BZ2QJK4QC

Dependencies

In channels

main

Change contents

File deletion: dependencies, dependencies
BFD:BFD[3.1] → [4.129:152]
BFD:BFD[3.1] → [4.129:152]
BFD:BFD[4.152] → [4.128:128]
Replacement in tools/zenburn.lisp at line 24 [5.84]
B:BD[5.1280] → [5.1280:1306]
```
(defparameter color-alist
```
[5.1280]
[5.1306]
```
(defparameter *color-alist*
```

Insertion in tools/zenburn.lisp at line 73 [5.84]

[5.2940]


(defun theme-color (name)
  (cdr (assoc name *color-alist*)))

Insertion in tools/zenburn.lisp at line 77 [5.84]

[5.2941]

(defun html-color (name &optional (s t))
  (let ((values (theme-color name)))
    (prog1 (format s "#~{~2,'0x~}" values)
      (unless (null s)
        (format s "~%")))))

Replacement in tools/zenburn.lisp at line 83 [5.84]

B:BD[5.2992] → [5.2992:3133]

  (let ((fgcolor (when fg (cdr (assoc fg color-alist :test 'equal))))
        (bgcolor (when bg (cdr (assoc bg color-alist :test 'equal)))))

[5.2992]

[5.3133]

  (let ((fgcolor (when fg (cdr (assoc fg *color-alist* :test 'equal))))
        (bgcolor (when bg (cdr (assoc bg *color-alist* :test 'equal)))))

Replacement in tools/zenburn.lisp at line 88 [5.84]
B:BD[5.3216] → [5.3216:3260]
```
  (loop for (color . values) in color-alist
```
[5.3216]
[5.3260]
```
  (loop for (color . values) in *color-alist*
```

Replacement in tools/zenburn.lisp at line 96 [5.84]

B:BD[5.3573] → [5.3573:3647]

    (enum :short-name "f" :long-name "fg" :enum (mapcar 'car color-alist)

[5.3573]

[5.3647]

    (enum :short-name "f" :long-name "fg" :enum (mapcar 'car *color-alist*)

Replacement in tools/zenburn.lisp at line 98 [5.84]

B:BD[5.3705] → [5.3705:3779]

    (enum :short-name "b" :long-name "bg" :enum (mapcar 'car color-alist)

[5.3705]

[5.3779]

    (enum :short-name "b" :long-name "bg" :enum (mapcar 'car *color-alist*)

Replacement in tools/zenburn.lisp at line 100 [5.84]

B:BD[5.3837] → [5.3837:3898]

    (enum :long-name "html"  :enum (mapcar 'car color-alist)

[5.3837]

[5.3898]

    (enum :long-name "html"  :enum (mapcar 'car *color-alist*)

Replacement in tools/zenburn.lisp at line 102 [5.84]

B:BD[5.3958] → [5.3958:4018]

    (enum :long-name "css"  :enum (mapcar 'car color-alist)

[5.3958]

[5.4018]

    (enum :long-name "css"  :enum (mapcar 'car *color-alist*)

Replacement in tools/zenburn.lisp at line 124 [5.84]

B:BD[5.5126] → [5.5126:5183]

           (let ((values (cdr (assoc css color-alist))))

[5.5126]

[5.5183]

           (let ((values (cdr (assoc css *color-alist*))))

Replacement in tools/zenburn.lisp at line 127 [5.84]

B:BD[5.5252] → [5.5252:5359]

           (let ((values (cdr (assoc html color-alist))))
             (format t "#~{~2,'0x~}~%" values)))

[5.5252]

[5.5359]

           (html-color html t))