[PATCH 1/2] Add an X11 equivalent to org-mac-idle-seconds.

[James TD Smith <ahktenzero@mohorovi.cc>]

This needs a small C program (in UTILITIES/x11idle.c) to work.
---
 .gitignore          |    1 +
 ChangeLog           |    6 +++++-
 UTILITIES/x11idle.c |   21 +++++++++++++++++++++
 lisp/ChangeLog      |    8 +++++++-
 lisp/org-clock.el   |   10 ++++++++--
 5 files changed, 42 insertions(+), 4 deletions(-)
 create mode 100644 UTILITIES/x11idle.c

diff --git a/.gitignore b/.gitignore
index ab68b2a..c21fc91 100644
--- a/.gitignore
+++ b/.gitignore
@@ -58,3 +58,4 @@ TODO
 # fill-column: 72
 # mode: conf
 # End:
+/UTILITIES/x11idle
diff --git a/ChangeLog b/ChangeLog
index 95387ea..77cca37 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2009-10-21  James TD Smith  <ahktenzero@mohorovi.cc>
+
+	* UTILITIES/x11idle.c: Add a small C program which outputs the X11
+	idle time
+
 2009-09-16  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* Makefile: Add dependencies for org-crypt.el.
@@ -65,4 +70,3 @@
 2008-04-25  Carsten Dominik  <dominik@science.uva.nl>
 
 	* Makefile (BATCH): Fix the path to the local lisp files.
-
diff --git a/UTILITIES/x11idle.c b/UTILITIES/x11idle.c
new file mode 100644
index 0000000..33d0035
--- /dev/null
+++ b/UTILITIES/x11idle.c
@@ -0,0 +1,21 @@
+#include <X11/extensions/scrnsaver.h>
+#include <stdio.h>
+
+/* Based on code from
+ * http://coderrr.wordpress.com/2008/04/20/getting-idle-time-in-unix/
+ *
+ * compile with 'gcc -l Xss x11idle.c -o x11idle' and copy x11idle into your
+ * path
+ */
+main() {
+    XScreenSaverInfo *info = XScreenSaverAllocInfo();
+    Display *display = XOpenDisplay(0);
+
+    //check that X11 is running or else you get a segafult/coredump
+    if (display != NULL) {
+	XScreenSaverQueryInfo(display, DefaultRootWindow(display), info);
+    }
+    XScreenSaverQueryInfo(display, DefaultRootWindow(display), info);
+    printf("%u\n", info->idle);
+    return 0;
+}
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bcd6a8a..75bdc38 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -37,6 +37,12 @@
 	modeline when habits are being displayed (if that module is being
 	loaded).
 
+2009-10-21  James TD Smith  <ahktenzero@mohorovi.cc>
+
+	* org-clock.el (org-x11-idle-seconds): Add a method to get the X11
+	idle time using the xscreensaver extension.
+	(org-user-idle-seconds): Use X11 idle time if available.
+
 2009-10-20  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* org-agenda.el (org-agenda-next-line): New command.
@@ -161,7 +167,7 @@
 	currently active clock if the user has exceeded the time returned
 	by `org-user-idle-seconds', based on the value of
 	`org-clock-idle-time'.
-	(org-clock-in): If, after resolving clocks, 
+	(org-clock-in): If, after resolving clocks,
 	(org-clock-out): Cancel the `org-clock-idle-timer' on clock out.
 
 	* org-clock.el (org-clock-resolve-clock): New function that
diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index c7ebbf8..fddf3f8 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -762,16 +762,22 @@ non-dangling (i.e., currently open and valid) clocks."
   "Return the current Mac idle time in seconds"
   (string-to-number (shell-command-to-string "ioreg -c IOHIDSystem | perl -ane 'if (/Idle/) {$idle=(pop @F)/1000000000; print $idle; last}'")))
 
+(defun org-x11-idle-seconds ()
+  "Return the current X11 idle time in seconds"
+  (/ (string-to-number (shell-command-to-string "x11idle")) 1000))
+
 (defun org-user-idle-seconds ()
   "Return the number of seconds the user has been idle for.
 This routine returns a floating point number."
-  (if (eq system-type 'darwin)
+  (if (or (eq system-type 'darwin) (eq window-system 'x))
       (let ((emacs-idle (org-emacs-idle-seconds)))
 	;; If Emacs has been idle for longer than the user's
 	;; `org-clock-idle-time' value, check whether the whole system has
 	;; really been idle for that long.
 	(if (> emacs-idle (* 60 org-clock-idle-time))
-	    (min emacs-idle (org-mac-idle-seconds))
+	    (min emacs-idle (if (eq system-type 'darwin)
+				(org-mac-idle-seconds)
+			      (org-x11-idle-seconds)))
 	  emacs-idle))
     (org-emacs-idle-seconds)))
 
-- 
1.6.3.3