[STUMP] Do external the current-head symbol according to the manual

[David Vazquez]

Hi hackers,

To begin I introduce myself. I am David Vazquez, I am a spanish
student of mathematics and a Lisp and Emacs enthusiast. I have
recently started to use StumpWM. So, I try to help in something. :-)

As first contribution, I have done external the current-head symbol
according to the manual, which says:

     ;; turn on/off the mode line for the current head only.
     (stumpwm:toggle-mode-line (stumpwm:current-screen) (stumpwm:current-head))

Greetings!


>From 888e49fdee7317ba0cc0342dbe0c235ba849e1e8 Mon Sep 17 00:00:00 2001
From: David Vazquez <address@hidden>
Date: Sat, 16 May 2009 04:52:08 +0200
Subject: [PATCH] Do external the current-head symbol.

---
 screen.lisp |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/screen.lisp b/screen.lisp
index 19eebdb..c2d1419 100644
--- a/screen.lisp
+++ b/screen.lisp
@@ -25,7 +25,8 @@
 
 (in-package #:stumpwm)
 
-(export '(current-screen
+(export '(current-head          
+          current-screen
           current-window
           screen-current-window
           set-fg-color
-- 
1.5.6.5