From mboxrd@z Thu Jan 1 00:00:00 1970 From: Christian Thaeter Subject: Re: sip: links Date: Sun, 21 Jun 2015 02:39:48 +0200 Message-ID: <20150621023948.17969934@jupiter.pipapo.org> References: <20150620172345.5ec7bd92@jupiter.pipapo.org> Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:55801) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z6TIm-0004pm-0K for emacs-orgmode@gnu.org; Sat, 20 Jun 2015 20:40:00 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Z6TIh-00030h-0M for emacs-orgmode@gnu.org; Sat, 20 Jun 2015 20:39:59 -0400 Received: from pipapo.org ([217.8.59.205]:46502 helo=mail.pipapo.org) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z6TIg-0002zO-P2 for emacs-orgmode@gnu.org; Sat, 20 Jun 2015 20:39:54 -0400 Received: from jupiter.pipapo.org (unknown [10.10.100.20]) by mail.pipapo.org (Postfix) with ESMTPSA id CE6F39E0199C for ; Sun, 21 Jun 2015 00:39:50 +0000 (UTC) In-Reply-To: <20150620172345.5ec7bd92@jupiter.pipapo.org> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org On 2015-06-20 17:23, Christian Thaeter wrote: > anyone of you happen to have a url handler for 'sip:' links invoking a > telephony app (eg. linphone) when clicked? Otherwise I may give a > try on my own nonexistent elisp skills :D > > Christian > Note to self: The code below works for me, maybe someone finds it useful or wants to improve it. Cheers Christian --------------------8<--------------------------------------- ;;; org-sip.el - Support for telepone calls using sip links (require 'org) (org-add-link-type "sip" 'org-sip-open) (defcustom org-sip-command "linphone -c" "The Emacs command to be used to make a telephone call." :group 'org-link :type '(string)) (defun org-sip-open (destination) "make a call to DESTINATION" (start-process-shell-command "sip" nil (concat org-sip-command " " (shell-quote-argument destination)))) (provide 'org-sip) ;;; org-sip.el ends here -------------------->8-------------------------------------