From da3d7bc8b46d304cdbca631dab2098c51af94b62 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Fri, 30 Oct 2015 10:49:24 +0000 Subject: [PATCH] Ditch cl-lib again in lieu of seq-mapn --- beacon.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/beacon.el b/beacon.el index fa1e603b6..18f2dc266 100644 --- a/beacon.el +++ b/beacon.el @@ -5,8 +5,8 @@ ;; Author: Artur Malabarba ;; URL: https://github.com/Malabarba/beacon ;; Keywords: convenience -;; Version: 0.3 -;; Package-Requires: ((seq "1.9") (cl-lib "0.5")) +;; Version: 0.4 +;; Package-Requires: ((seq "1.11")) ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by @@ -38,7 +38,6 @@ ;;; Code: (require 'seq) -(require 'cl-lib) (defgroup beacon nil "Customization group for beacon." @@ -246,7 +245,7 @@ Only returns `beacon-size' elements." (color-distance "white" bg)) (make-list 3 (* beacon-color 65535))) (t (make-list 3 (* (- 1 beacon-color) 65535)))))) - (apply #'cl-mapcar (lambda (r g b) (format "#%04x%04x%04x" r g b)) + (apply #'seq-mapn (lambda (r g b) (format "#%04x%04x%04x" r g b)) (mapcar (lambda (n) (butlast (beacon--int-range (elt fg n) (elt bg n)))) [0 1 2])))) -- 2.39.2