From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: pjb@informatimago.com (Pascal J. Bourguignon) Newsgroups: gmane.emacs.help Subject: Re: The longest Emacs uptime Date: Sat, 11 Jul 2009 13:22:45 +0200 Organization: Informatimago Message-ID: <87k52fjwfu.fsf@galatea.local> References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1247312485 1058 80.91.229.12 (11 Jul 2009 11:41:25 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 11 Jul 2009 11:41:25 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Sat Jul 11 13:41:18 2009 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1MPaxA-0000yx-9Y for geh-help-gnu-emacs@m.gmane.org; Sat, 11 Jul 2009 13:41:16 +0200 Original-Received: from localhost ([127.0.0.1]:55978 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MPax9-0007MF-KZ for geh-help-gnu-emacs@m.gmane.org; Sat, 11 Jul 2009 07:41:15 -0400 Original-Path: news.stanford.edu!newsfeed.stanford.edu!postnews.google.com!news4.google.com!proxad.net!feeder1-2.proxad.net!cleanfeed3-b.proxad.net!nnrp19-1.free.fr!not-for-mail Original-Newsgroups: gnu.emacs.help Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwAQMAAABtzGvEAAAABlBMVEUAAAD///+l2Z/dAAAA oElEQVR4nK3OsRHCMAwF0O8YQufUNIQRGIAja9CxSA55AxZgFO4coMgYrEDDQZWPIlNAjwq9 033pbOBPtbXuB6PKNBn5gZkhGa86Z4x2wE67O+06WxGD/HCOGR0deY3f9Ijwwt7rNGNf6Oac l/GuZTF1wFGKiYYHKSFAkjIo1b6sCYS1sVmFhhhahKQssRjRT90ITWUk6vvK3RsPGs+M1RuR mV+hO/VvFAAAAABJRU5ErkJggg== X-Accept-Language: fr, es, en X-Disabled: X-No-Archive: no User-Agent: Gnus/5.1008 (Gnus v5.10.8) Emacs/22.3 (darwin) Cancel-Lock: sha1:NDlkY2VjNzU5NzlkOGY2ZmQzM2FhZjIwMzkzMjM5MmY4NjY4N2Q2OQ== Original-Lines: 48 Original-NNTP-Posting-Date: 11 Jul 2009 13:22:47 MEST Original-NNTP-Posting-Host: 88.182.134.169 Original-X-Trace: 1247311367 news-4.free.fr 3600 88.182.134.169:51747 Original-X-Complaints-To: abuse@proxad.net Original-Xref: news.stanford.edu gnu.emacs.help:170745 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:65946 Archived-At: Eddie Hillenbrand writes: > How does one check their Emacs uptime? > > On Jul 10, 2009, at 10:10 AM, Leo wrote: > >> My Emacs uptime has reached 30 days, 3 hours, 27 minutes, 44 seconds. >> This is the longest since I started using Emacs in 2005. I've got this in my ~/.emacs: (defun .EMACS (fctl &rest args) (let ((text (apply (function format) (concat ".EMACS: " fctl) args))) (with-current-buffer (get-buffer-create " .EMACS temporary buffer") (erase-buffer) (insert text "\n") (append-to-file (point-min) (point-max) "/tmp/messages.txt")) (message text))) (defvar *emacs-start-time* (current-time) "For (emacs-uptime)") (.EMACS "emacs-uptime") (defun emacs-uptime () "Gives Emacs' uptime, based on global var `*emacs-start-time*'." (interactive) (let* ((st *emacs-start-time*) (cur (current-time)) (hi-diff (- (car cur) (car st))) (tot-sec (+ (ash hi-diff 16) (- (cadr cur) (cadr st)))) (days (/ tot-sec (* 60 60 24))) (hrs (/ (- tot-sec (* days 60 60 24)) (* 60 60))) (mins (/ (- tot-sec (* days 60 60 24) (* hrs 60 60)) 60)) (secs (/ (- tot-sec (* days 60 60 24) (* hrs 60 60) (* mins 60)) 1))) (.EMACS "Up %dd %dh %dm %ds (%s), %d buffers, %d files" days hrs mins secs (format-time-string "%a %Y-%m-%d %T" st) (length (buffer-list)) (count t (buffer-list) :test-not (lambda (ignore buf) (null (cdr (assoc 'buffer-file-truename (buffer-local-variables buf))))))))) (defalias 'uptime 'emacs-uptime) -- __Pascal Bourguignon__