larstvei/Focus
1
0
Fork 0
mirror of https://github.com/larstvei/Focus.git synced 2024-11-26 11:38:32 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Cleaned up doc in `focus-average-colors'

Browse Source
This commit is contained in:
Lars Tveito 2015-05-24 01:59:28 +02:00
parent 497d13d758
commit 284a1240ce
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
focus.el
View File

@ -96,7 +96,10 @@ Things that are defined include `symbol', `list', `sexp',
(bounds-of-thing-at-point thing))) (bounds-of-thing-at-point thing)))
(defun focus-average-colors (color &rest colors) (defun focus-average-colors (color &rest colors)
"Takes one or more COLORS and returns the average of the RGB-values." "Takes an average of the colors given by argument.
Argument COLOR is a color name, and so are the COLORS; COLOR is
there to ensure that the the function receives at least one
argument."
(let* ((colors (cons color colors)) (let* ((colors (cons color colors))
(colors (mapcar 'color-name-to-rgb colors)) (colors (mapcar 'color-name-to-rgb colors))
(len (length colors)) (len (length colors))