This patch fixes a couple of fringe cases in contrib/amixer.lisp caused by using awk instead of sed. Sorry I didn't catch it sooner.
(And yes, this is the only patch you're going to be seeing from me on this for
now.)
--
If I Ever Become An Evil Villainess...
28. My pet monster will be kept in a secure cage from which it cannot
escape and into which I could not accidentally stumble.
pgpUtx0J2RUVr.pgp
Description: PGP signature
>From 101f185e9332a6dcff05411969aed061c13faf41 Mon Sep 17 00:00:00 2001
From: Ivy Foster <[EMAIL PROTECTED]>
Date: Wed, 22 Oct 2008 19:01:28 -0500
Subject: [PATCH] Fixed a couple of bugs in amixer.lisp
---
contrib/amixer.lisp | 4 +++-
1 files changed, 3 insertions(+), 1 deletions(-)
diff --git a/contrib/amixer.lisp b/contrib/amixer.lisp
index 6b11cee..617a7ff 100644
--- a/contrib/amixer.lisp
+++ b/contrib/amixer.lisp
@@ -48,7 +48,9 @@
(let ((percent (parse-integer
(run-shell-command
(concat "amixer sset " channel " " (or amount "toggle")
- "| tail -1" "| awk '{print substr($5, 2, 2)}'") t))))
+ "| tail -1"
+ "| sed 's/^.*\\[\\([[:digit:]]\\+\\)%\\].*$/\\1/'")
+ t))))
(message
(concat "Mixer: " channel " " (or amount "toggled")
(format nil "~C^B~A%" #\Newline percent) "^b [^[^7*"
--
1.6.0.2
_______________________________________________ Stumpwm-devel mailing list Stumpwm-devel@nongnu.org http://lists.nongnu.org/mailman/listinfo/stumpwm-devel
