stumpwm-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[STUMP] Re: contrib/mem.lisp


From: Vitaly Mayatskikh
Subject: [STUMP] Re: contrib/mem.lisp
Date: Fri, 30 Jan 2009 16:25:50 +0100
User-agent: Wanderlust/2.15.6 (Almost Unreal) Emacs/22.2 Mule/5.0 (SAKAKI)

At Thu, 29 Jan 2009 16:05:40 +0100, Vitaly Mayatskikh wrote:

> (defun fmt-mem-usage-bar (ml &optional (width *mem-usage-bar-width*) (full 
> *mem-usage-bar-full*) (empty *mem-usage-bar-empty*))
>   "Returns a coloured bar-graph representing the current allocation of 
> memory."
>   (declare (ignore ml))
>   (let ((cpu (truncate (* 100 (nth 2 (mem-usage))))))
>     (bar cpu width full empty)))

My bad, here should be stumpwm::bar.

Attachment: mem.lisp
Description: Binary data

--
wbr, Vitaly

reply via email to

[Prev in Thread] Current Thread [Next in Thread]