initial version

4 files changed, 118 insertions, 0 deletions

diff --git a/.SRCINFO b/.SRCINFO
new file mode 100644
index 000000000000..49f32540bcd2
--- /dev/null
+++ b/.SRCINFO
@@ -0,0 +1,17 @@
+pkgbase = emacs-escreen
+	pkgdesc = Window configuration management for emacs
+	pkgver = 1.18
+	pkgrel = 1
+	url = http://www.splode.com/~friedman/software/emacs-lisp/#ui
+	install = escreen.install
+	arch = i686
+	arch = x86_64
+	license = GPL
+	depends = emacs
+	source = http://www.splode.com/~friedman/software/emacs-lisp/src/escreen.el
+	source = dotemacs
+	md5sums = 51d8040fb0fa0ab6f8be7d6785cee0c0
+	md5sums = 41c28902d9d9ff178e0048418af2b972
+
+pkgname = emacs-escreen
+
diff --git a/PKGBUILD b/PKGBUILD
new file mode 100644
index 000000000000..601896287352
--- /dev/null
+++ b/PKGBUILD
@@ -0,0 +1,25 @@
+# Maintainer: Stefan Husmann <stefan-husmann@t-online.de>
+pkgname=emacs-escreen  
+pkgver=1.18
+pkgrel=1
+_emacs=emacs
+pkgdesc="Window configuration management for emacs"
+url="http://www.splode.com/~friedman/software/emacs-lisp/#ui"
+arch=('i686' 'x86_64')
+license=('GPL')
+depends=('emacs')
+install=escreen.install
+source=(http://www.splode.com/~friedman/software/emacs-lisp/src/escreen.el dotemacs)
+md5sums=('51d8040fb0fa0ab6f8be7d6785cee0c0'
+         '41c28902d9d9ff178e0048418af2b972')
+build() {
+  cd $srcdir
+  $_emacs -batch -q -f batch-byte-compile escreen.el 
+}
+package() {
+  install -Dm644 $srcdir/escreen.el \
+    $pkgdir/usr/share/${_emacs}/site-lisp/escreen.el
+  install -Dm644 $srcdir/escreen.elc \
+    $pkgdir/usr/share/${_emacs}/site-lisp/escreen.elc 
+  install -Dm644 dotemacs $pkgdir/usr/share/doc/emacs-escreen/dotemacs
+}
diff --git a/dotemacs b/dotemacs
new file mode 100644
index 000000000000..2a73b22f7088
--- /dev/null
+++ b/dotemacs
@@ -0,0 +1,48 @@
+;;Also recommended customizations, taken from
+;;http://tapoueh.org/blog/2009/09/22-escreen-integration.html:
+
+;; add C-\ l to list screens with emphase for current one
+(defun escreen-get-active-screen-numbers-with-emphasis ()
+  "what the name says"
+  (interactive)
+  (let ((escreens (escreen-get-active-screen-numbers))
+        (emphased ""))
+
+    (dolist (s escreens)
+      (setq emphased
+            (concat emphased (if (= escreen-current-screen-number s)
+                                 (propertize (number-to-string s)
+                                             ;;'face 'custom-variable-tag) " ")
+                                             'face 'info-title-3)
+                                             ;;'face 'font-lock-warning-face)
+                                             ;;'face 'secondary-selection)
+                               (number-to-string s))
+                    " ")))
+    (message "escreen: active screens: %s" emphased)))
+
+(global-set-key (kbd "C-\ l") 'escreen-get-active-screen-numbers-with-emphasis)
+
+(defun dim:escreen-goto-last-screen ()
+  (interactive)
+  (escreen-goto-last-screen)
+  (escreen-get-active-screen-numbers-with-emphasis))
+
+(defun dim:escreen-goto-prev-screen (&optional n)
+  (interactive "p")
+  (escreen-goto-prev-screen n)
+  (escreen-get-active-screen-numbers-with-emphasis))
+
+(defun dim:escreen-goto-next-screen (&optional n)
+  (interactive "p")
+  (escreen-goto-next-screen n)
+  (escreen-get-active-screen-numbers-with-emphasis))
+
+(define-key escreen-map escreen-prefix-char 'dim:escreen-goto-last-screen)
+
+(global-set-key (kbd "M-[") 'dim:escreen-goto-prev-screen)
+(global-set-key (kbd "M-]") 'dim:escreen-goto-next-screen)
+(global-set-key (kbd "C-\ DEL") 'dim:escreen-goto-prev-screen)
+(global-set-key (kbd "C-\ SPC") 'dim:escreen-goto-next-screen)
+
+(global-set-key '[s-mouse-4] 'dim:escreen-goto-prev-screen)
+(global-set-key '[s-mouse-5] 'dim:escreen-goto-next-screen)
diff --git a/escreen.install b/escreen.install
new file mode 100644
index 000000000000..6468a800ec46
--- /dev/null
+++ b/escreen.install
@@ -0,0 +1,28 @@
+post_install() {
+  cat << EOM
+To activate, add the following code into your ~/.emacs file:
+---
+(load "escreen")
+(escreen-install)
+---
+Also recommended customizations, taken from
+http://tapoueh.org/blog/2009/09/22-escreen-integration.html ,
+can be found in /usr/share/doc/emacs-escreen/dotemacs
+
+EOM
+}
+post_upgrade() {
+  post_install
+}
+
+## arg 1:  the old package version
+#pre_remove() {
+  # do something here
+#}
+
+## arg 1:  the old package version
+#post_remove() {
+  # do something here
+#}
+
+# vim:set ts=2 sw=2 et: