[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: The longest Emacs uptime
From: |
Pascal J. Bourguignon |
Subject: |
Re: The longest Emacs uptime |
Date: |
Sat, 11 Jul 2009 13:22:45 +0200 |
User-agent: |
Gnus/5.1008 (Gnus v5.10.8) Emacs/22.3 (darwin) |
Eddie Hillenbrand <edalytical@gmail.com> 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__
- Re: The longest Emacs uptime, (continued)
- Re: The longest Emacs uptime, Sven Bretfeld, 2009/07/10
- Message not available
- Re: The longest Emacs uptime, magicus, 2009/07/11
- Re: The longest Emacs uptime, Pascal J. Bourguignon, 2009/07/10
- Re: The longest Emacs uptime, Richard Riley, 2009/07/11
- Re: The longest Emacs uptime, magicus, 2009/07/11
- Re: The longest Emacs uptime, Leo, 2009/07/11
- Message not available
- Re: The longest Emacs uptime, Anul, 2009/07/14
- Re: The longest Emacs uptime, Leo, 2009/07/14
Re: The longest Emacs uptime, Eddie Hillenbrand, 2009/07/11
Message not available
Message not available
- Re: The longest Emacs uptime,
Pascal J. Bourguignon <=
Re: The longest Emacs uptime, Byung-Hee HWANG, 2009/07/12
Re: The longest Emacs uptime, Pascal J. Bourguignon, 2009/07/10