[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master fbcf9fc 16/34: Drop cl-lib dep
From: |
Artur Malabarba |
Subject: |
[elpa] master fbcf9fc 16/34: Drop cl-lib dep |
Date: |
Fri, 16 Oct 2015 09:56:54 +0000 |
branch: master
commit fbcf9fca51b52cc848164c0dd072b2aec77a165f
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>
Drop cl-lib dep
---
beacon.el | 23 +++++++++++------------
1 files changed, 11 insertions(+), 12 deletions(-)
diff --git a/beacon.el b/beacon.el
index 1ec0f72..8a997a1 100644
--- a/beacon.el
+++ b/beacon.el
@@ -6,7 +6,7 @@
;; URL: https://github.com/Malabarba/beacon
;; Keywords: convenience
;; Version: 0.1
-;; Package-Requires: ((cl-lib "0.5") (seq "1.9"))
+;; Package-Requires: ((seq "1.9"))
;; 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
@@ -28,7 +28,6 @@
;;; Code:
-(require 'cl-lib)
(require 'seq)
(defgroup beacon nil
@@ -105,7 +104,7 @@ COLORS applied to each one."
(overlay-put overlay 'after-string
(propertize
(mapconcat (lambda (c) (propertize " " 'face (list
:background c)))
- colors
+ colors
"")
'cursor 1000))))
@@ -114,20 +113,20 @@ COLORS applied to each one."
The property's value is a string of spaces with background
COLORS applied to each one."
(let ((ov (make-overlay (point) (point)))
- ;; The after-string must not be longer than the remaining columns from
- ;; point to right window-end else it will be wrapped around (assuming
- ;; truncate-lines is nil) introducing an ugly wrap-around for a
- ;; fraction of a second.
- (colors (seq-take colors (- (window-width) (current-column)))))
+ ;; The after-string must not be longer than the remaining columns from
+ ;; point to right window-end else it will be wrapped around (assuming
+ ;; truncate-lines is nil) introducing an ugly wrap-around for a
+ ;; fraction of a second.
+ (colors (seq-take colors (- (window-width) (current-column)))))
(beacon--ov-put-after-string ov colors)
(overlay-put ov 'beacon t)
(push ov beacon--ovs)))
(defun beacon--ov-at-point ()
- (car (or (cl-member-if (lambda (o) (overlay-get o 'beacon))
- (overlays-in (point) (point)))
- (cl-member-if (lambda (o) (overlay-get o 'beacon))
- (overlays-at (point))))))
+ (car (or (seq-filter (lambda (o) (overlay-get o 'beacon))
+ (overlays-in (point) (point)))
+ (seq-filter (lambda (o) (overlay-get o 'beacon))
+ (overlays-at (point))))))
(defun beacon--vanish ()
"Turn off the beacon."
- [elpa] master updated (6578236 -> 2eb4c54), Artur Malabarba, 2015/10/16
- [elpa] master b509d63 04/34: [Fix #1], Artur Malabarba, 2015/10/16
- [elpa] master 3022997 02/34: Rename to beacon, Artur Malabarba, 2015/10/16
- [elpa] master 36be965 09/34: Make beacon color customizable, Artur Malabarba, 2015/10/16
- [elpa] master 43cbfd4 15/34: Merge pull request #3 from tsdh/master, Artur Malabarba, 2015/10/16
- [elpa] master 8abbedc 05/34: Default to blinking on window scroll instead of point movement, Artur Malabarba, 2015/10/16
- [elpa] master fbcf9fc 16/34: Drop cl-lib dep,
Artur Malabarba <=
- [elpa] master 19096a6 10/34: Initial (failed) impl for beacon at end of line, Artur Malabarba, 2015/10/16
- [elpa] master e533e04 11/34: Fix an error, Artur Malabarba, 2015/10/16
- [elpa] master 03d12b4 03/34: Rename file, Artur Malabarba, 2015/10/16
- [elpa] master 8941740 07/34: Fix docs, Artur Malabarba, 2015/10/16
- [elpa] master c82095a 06/34: Add url, Artur Malabarba, 2015/10/16
- [elpa] master 9152a09 08/34: Separate mark-pushing from blinking, Artur Malabarba, 2015/10/16
- [elpa] master b60416c 01/34: First commit, Artur Malabarba, 2015/10/16
- [elpa] master ca3ec24 14/34: Fix temporary line breaks due to too long after-strings, Artur Malabarba, 2015/10/16
- [elpa] master c507480 13/34: Fix after-string overlays, Artur Malabarba, 2015/10/16
- [elpa] master 02112fa 12/34: Fix lighter, Artur Malabarba, 2015/10/16