aliens/org-contacts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Adding org-contacts to GNU ELPA

Browse source 
Hi Miles,

AFAICT the copyright status of org-contacts is now cleared (Michael
Strey's paperwork is done), so we could add it to GNU ELPA.

The only thing missing AFAIK is to change the `copyright` line as in the
patch below which also fixes the output of `git status` after installing
the package.

        Stefan
This commit is contained in:
Stefan Monnier 2022-08-26 17:25:50 -04:00 committed by stardiviner
parent dba21b4895
commit 919511eb86
2 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
.gitignore vendored Normal file
View file

@ -0,0 +1,3 @@
*.elc
/org-contacts-autoloads.el
/org-contacts-pkg.el

12
org-contacts.el
View file

@ -1,6 +1,6 @@
;;; org-contacts.el --- Contacts management system for Org Mode -*- lexical-binding: t; -*-
;; Copyright (C) 2010-2014, 2021 Julien Danjou <julien@danjou.info>
;; Copyright (C) 2010-2022 Free Software Foundation, Inc.
;; Author: Julien Danjou <julien@danjou.info>
;; Maintainer: stardiviner <numbchild@gmail.com>
@ -563,9 +563,9 @@ description."
(goto-char marker)
;; FIXME: AFAIK, `org-make-tags-matcher' returns
;; a cons whose cdr is a function, so why do we
;; pass it to `eval' rather than to (say)
;; `funcall'?
(eval (cdr (org-make-tags-matcher (cl-subseq string 1))))))
;; pass it to `eval'?
(eval (cdr (org-make-tags-matcher (cl-subseq string 1)))
t)))
collect (org-contacts-format-email contact-name email))
",")))
(when (not (string= "" result))
@ -634,7 +634,7 @@ description."
(defun org-contacts-org-complete--annotation-function (candidate)
"Return org-contacts tags of contact candidate."
;; TODO
"Tags: "
"Tags: " ;; FIXME: Ignored!
(ignore candidate))
(defun org-contacts-org-complete--doc-function (candidate)
@ -692,7 +692,7 @@ description."
;;;###autoload
(defun org-contacts-org-complete-function ()
"Function used in `completion-at-point-functions' in `org-mode' to complete @name.
Usage: (add-hook 'completion-at-point-functions 'org-contacts-org-complete-function nil 'local)"
Usage: (add-hook \\='completion-at-point-functions #\\='org-contacts-org-complete-function nil \\='local)"
(when-let* ((end (point))
(begin (save-excursion (skip-chars-backward "[:alnum:]@") (point)))
(symbol (buffer-substring-no-properties begin end))