>From 101f185e9332a6dcff05411969aed061c13faf41 Mon Sep 17 00:00:00 2001
From: Ivy Foster <address@hidden>
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