From: Robert Goldman <rpgoldman@sift.net>
To: emacs-orgmode@gnu.org, Robert Goldman <rpgoldman@sift.info>
Subject: Re: phone links...
Date: Wed, 03 Apr 2013 10:05:57 -0500 [thread overview]
Message-ID: <515C4555.8010309@sift.net> (raw)
In-Reply-To: <20130403145208.GC3245@strey.biz>
On 4/3/13 Apr 3 -9:52 AM, Michael Strey wrote:
> This gives me the opportunitie to publish my own attempt to implement
> telephone functionality into org. I'm using Linphone
> (http://www.linphone.org/) instead of Skype.
Thanks! I am folding the linphone code in to make org-phone more generic.
Question: why the removal of "(0)"? For international calls? Why "(0)" only,
instead of any 0 prefix?
Also, do you ever want to remove it anywhere but as a prefix?
If so, maybe DELETE is the wrong function call.
Current draft:
;;;---------------------------------------------------------------------------
;;; org-phone.el
;;; Add support for "phone:" links to phone numbers.
;;; Optional support for calling them with skype
;;;---------------------------------------------------------------------------
;;; Copyright (C) 2013 Free Software Foundation, Inc.
;; Author: Robert P. Goldman <rpgoldman at sift dot net>
;; Homepage: http://orgmode.org
;; Version: 0.02
;; This file is not yet part of GNU Emacs.
(require 'org)
(org-add-link-type "phone" 'org-phone-open)
;; not sure whether we need/want this yet...
;;(add-hook 'org-store-link-functions 'org-phone-store-link)
(defcustom org-phone-function 'org-phone-call
"The Emacs function to be used to call a phone number.
By default, a simple function that uses shell-command to
apply org-phone-call-command (qv.) to the phone number."
:group 'org-link
:type 'symbol)
(defcustom org-phone-call-command "skype-call"
"The executable command to be used to call a phone number.
This should be a script that starts the call and returns: it
should not block."
:group 'org-link
:type 'string)
(defun org-phone-open (phone-number)
"Phone the number PHONE-NUMBER.
PHONE-NUMBER should be a string for a PSTN phone number."
(funcall org-phone-function phone-number))
(defun org-phone-call (phone-number)
(shell-command (format "%s %s"
org-phone-call-command
phone-number)))
(defun trim-phone-number (phone-number)
"Remove whitespaces from a telephone number"
(mapconcat 'identity
(delete "(0)" (split-string phone-number "[ /-]")) ""))
;; (defun org-phone-store-link ()
;; "Store a link to a phone number."
;; ;; This is a man page, we do make this link
;; (let* ((page (org-man-get-page-name))
;; (link (concat "man:" page))
;; (description (format "Manpage for %s" page)))
;; (org-store-link-props
;; :type "man"
;; :link link
;; :description description))))
(provide 'org-phone)
next prev parent reply other threads:[~2013-04-03 15:06 UTC|newest]
Thread overview: 44+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-03-29 23:23 phone links Robert Goldman
2013-03-30 9:12 ` Karl Voit
2013-04-01 13:30 ` Robert Goldman
2013-04-03 14:52 ` Michael Strey
2013-04-03 15:05 ` Robert Goldman [this message]
2013-04-04 8:26 ` Michael Strey
2013-04-04 13:55 ` Michael Strey
2013-04-04 12:15 ` Bastien
2013-04-04 20:38 ` Simon Thum
2013-04-05 3:04 ` Robert P. Goldman
2013-04-05 6:42 ` Bastien
2013-04-06 12:05 ` Simon Thum
2013-04-06 12:10 ` Simon Thum
2013-04-06 20:58 ` Bastien
2013-04-05 2:38 ` Robert P. Goldman
2013-04-08 10:38 ` Michael Strey
2013-04-08 12:47 ` Robert Goldman
2013-04-08 14:07 ` Michael Strey
2013-04-08 14:44 ` Robert Goldman
2013-04-09 7:31 ` Michael Strey
2013-04-09 12:19 ` Robert Goldman
2013-04-09 14:40 ` Michael Strey
2013-04-13 14:12 ` Feng Shu
2013-04-13 14:43 ` Feng Shu
2013-04-14 8:38 ` Bastien
2013-04-14 14:31 ` Feng Shu
2013-04-15 15:39 ` Bastien
2013-04-15 23:37 ` Feng Shu
2013-04-16 21:11 ` Daimrod
2013-04-17 3:55 ` Feng Shu
2013-04-17 6:10 ` Daimrod
2013-04-14 20:49 ` Michael Strey
2013-04-16 22:22 ` Daimrod
2013-04-17 10:28 ` Michael Strey
2013-04-20 15:59 ` Daimrod
2013-04-26 12:48 ` [Patch] " Michael Strey
2013-04-30 9:09 ` Daimrod
2013-05-31 0:04 ` Daimrod
2013-04-09 9:57 ` Feng Shu
2013-04-10 14:17 ` Michael Strey
2013-04-11 10:27 ` Michael Strey
2013-04-16 7:57 ` Eric S Fraga
2013-04-16 12:25 ` Robert P. Goldman
2013-04-17 8:14 ` Michael Strey
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=515C4555.8010309@sift.net \
--to=rpgoldman@sift.net \
--cc=emacs-orgmode@gnu.org \
--cc=rpgoldman@sift.info \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).