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; -*- ;;; 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> ;; Author: Julien Danjou <julien@danjou.info>
;; Maintainer: stardiviner <numbchild@gmail.com> ;; Maintainer: stardiviner <numbchild@gmail.com>
@ -563,9 +563,9 @@ description."
(goto-char marker) (goto-char marker)
;; FIXME: AFAIK, `org-make-tags-matcher' returns ;; FIXME: AFAIK, `org-make-tags-matcher' returns
;; a cons whose cdr is a function, so why do we ;; a cons whose cdr is a function, so why do we
;; pass it to `eval' rather than to (say) ;; pass it to `eval'?
;; `funcall'? (eval (cdr (org-make-tags-matcher (cl-subseq string 1)))
(eval (cdr (org-make-tags-matcher (cl-subseq string 1)))))) t)))
collect (org-contacts-format-email contact-name email)) collect (org-contacts-format-email contact-name email))
","))) ",")))
(when (not (string= "" result)) (when (not (string= "" result))
@ -634,7 +634,7 @@ description."
(defun org-contacts-org-complete--annotation-function (candidate) (defun org-contacts-org-complete--annotation-function (candidate)
"Return org-contacts tags of contact candidate." "Return org-contacts tags of contact candidate."
;; TODO ;; TODO
"Tags: " "Tags: " ;; FIXME: Ignored!
(ignore candidate)) (ignore candidate))
(defun org-contacts-org-complete--doc-function (candidate) (defun org-contacts-org-complete--doc-function (candidate)
@ -692,7 +692,7 @@ description."
;;;###autoload ;;;###autoload
(defun org-contacts-org-complete-function () (defun org-contacts-org-complete-function ()
"Function used in `completion-at-point-functions' in `org-mode' to complete @name. "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)) (when-let* ((end (point))
(begin (save-excursion (skip-chars-backward "[:alnum:]@") (point))) (begin (save-excursion (skip-chars-backward "[:alnum:]@") (point)))
(symbol (buffer-substring-no-properties begin end)) (symbol (buffer-substring-no-properties begin end))