From mboxrd@z Thu Jan  1 00:00:00 1970
From: Richard Riley <rileyrgdev@googlemail.com>
Subject: OSD alerts for appointment reminders (+ erc hook to use OSD)
Date: Thu, 25 Sep 2008 02:43:56 +0200
Message-ID: <iqk5d19hrn.fsf@googlemail.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1Kieww-0006uI-D5
	for emacs-orgmode@gnu.org; Wed, 24 Sep 2008 20:43:18 -0400
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1Kiewv-0006tr-1S
	for emacs-orgmode@gnu.org; Wed, 24 Sep 2008 20:43:18 -0400
Received: from [199.232.76.173] (port=47037 helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1Kiewu-0006to-Og
	for emacs-orgmode@gnu.org; Wed, 24 Sep 2008 20:43:16 -0400
Received: from mu-out-0910.google.com ([209.85.134.186]:59055)
	by monty-python.gnu.org with esmtp (Exim 4.60)
	(envelope-from <rileyrgdev@googlemail.com>) id 1Kiewu-0000Q4-Cd
	for emacs-orgmode@gnu.org; Wed, 24 Sep 2008 20:43:16 -0400
Received: by mu-out-0910.google.com with SMTP id i2so132207mue.6
	for <emacs-orgmode@gnu.org>; Wed, 24 Sep 2008 17:43:14 -0700 (PDT)
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: org-mode <emacs-orgmode@gnu.org>


I thought some of you linux users might like this - use gnome-osd-client
to put an on screen reminder of your looming appointments. I include a
screenshot link below. I'm sure the code can be improved as I'm not much
of an elisp programmer. I have also included an erc hook to use OSD to
display messages in your subscribed irc channels directed at you. Hope
you like it. I dont know if the gnome-osd stuff will work on kde, but
try it and see.

http://www.imagebucket.in/images/layopataa1r203lmuwp3.png


org stuff:

,----
| ; Update appt each time agenda opened.
| (add-hook 'org-finalize-agenda-hook 'org-agenda-to-appt)
| 
| (setq appt-display-format 'window)
| 
| (require 'my-osd)
| 
| (defun org-osd-display (min-to-app new-time msg)
|   (osd-display msg msg -1 "center" "center" "Verdana 20")
| )
| 
| (setq appt-disp-window-function (function org-osd-display))
| 
| ;; see my-osd for plugins
| 
| (require 'diary-lib)
| (add-hook 'diary-display-hook 'fancy-diary-display)
| 
| ;; Run once, activate and schedule refresh
| (run-at-time nil 3600 'org-agenda-to-appt)
| (appt-activate t)
`----

osd stuff:

,----
| (defun osd-display (id msg &optional delay vattrib hattrib font)
| 
|   "Display a message with an id of ID for delay seconds with message msg"
| 
|   (unless vattrib (setq vattrib "top"))
|   (unless hattrib (setq hattrib "right"))
|   (unless delay (setq delay 5000))
|   (unless font (setq font "Serif Bold Italic 32"))
| 
|   (save-window-excursion
|     (shell-command
|      (format
|       "gnome-osd-client -f \"<message id='%s' osd_fake_translucent_bg='off' osd_font='%s' animations='on' hide_timeout='%d' osd_vposition='%s' osd_halignment='%s'>%s</message>\""    
|       id
|       font
|       delay
|       vattrib
|       hattrib
|       msg)
|      nil nil)
|     ))
| 
| ;(osd-display "i2" "and OSD..." 500)
| ;(osd-display "id" "Welcome to Emacs" 1000 "top" "center" "Verdana 20")
| 
`----

Finally the erc hook stuff:

,----
| (defun erc-notify-osd (matched-type nick msg)
|   (when (string= matched-type "current-nick")
|     (message msg)
|     (string-match ".*:\\(.*\\)$" msg)
|     (setq msg (match-string 1 msg))
|     (osd-display (concat "erc-msg : " (erc-extract-nick nick)) (concat (erc-extract-nick nick) " : " msg) 10000 "bottom" "center" "Verdana 23")
|  ))
| 
| (add-hook 'erc-text-matched-hook 'erc-notify-osd)
`----