emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master c5fba70: [counsel-ebdb] Delete package


From: Eric Abrahamsen
Subject: [elpa] master c5fba70: [counsel-ebdb] Delete package
Date: Tue, 15 Jan 2019 11:21:18 -0500 (EST)

branch: master
commit c5fba70acc84afd3c0ce59b4fc37fc27234589a1
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    [counsel-ebdb] Delete package
    
    This is now part of the main EBDB package again.
---
 packages/counsel-ebdb/counsel-ebdb.el | 66 -----------------------------------
 1 file changed, 66 deletions(-)

diff --git a/packages/counsel-ebdb/counsel-ebdb.el 
b/packages/counsel-ebdb/counsel-ebdb.el
deleted file mode 100644
index a27229a..0000000
--- a/packages/counsel-ebdb/counsel-ebdb.el
+++ /dev/null
@@ -1,66 +0,0 @@
-;;; counsel-ebdb.el --- Counsel integration for EBDB  -*- lexical-binding: t; 
-*-
-
-;; Copyright (C) 2017  Free Software Foundation, Inc.
-
-;; Author: Eric Abrahamsen <address@hidden>
-;; Maintainer: Eric Abrahamsen <address@hidden>
-;; Version: 1
-;; Package-Requires: ((ivy "0.8.0") (ebdb "0.2"))
-
-;; 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
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Counsel/ivy integration for EBDB.
-
-;;; Code:
-
-(require 'ebdb)
-(when t (require 'ivy))
-
-;;;###autoload
-(defun counsel-ebdb ()
-  "Select EBDB contacts using the ivy/counsel interface."
-  (interactive)
-  (ivy-read
-   "Records: "
-   (mapcar
-    ;; This same lambda is used in helm-ebdb, refactor or maybe even
-    ;; make customizable.  Presumably we could use the :matcher
-    ;; argument to provide a function that matched the name and mail
-    ;; strings, but then you wouldn't actually see the mail strings in
-    ;; the completion window, would you?
-    (lambda (rec)
-      (let* ((rec-string (ebdb-string rec))
-            (mails (ebdb-record-mail-canon rec))
-            (mail-list (when mails
-                         (mapconcat #'identity
-                                    mails
-                                    " "))))
-       (cons (if mail-list
-                 (concat rec-string
-                         " => "
-                         mail-list)
-               rec-string)
-             rec)))
-    (ebdb-records))
-   :action
-   '(1
-     ("o" (lambda (r)
-           (ebdb-display-records (list (cdr r)) nil t)) "display")
-     ("m" (lambda (r) (ebdb-mail (cdr r))) "send mail")
-     ("i" (lambda (r) (ebdb-cite-records-mail (cdr r))) "insert"))))
-
-(provide 'counsel-ebdb)
-;;; counsel-ebdb.el ends here



reply via email to

[Prev in Thread] Current Thread [Next in Thread]