1 Return-Path: <Sebastian@SSpaeth.de>
\r
2 X-Original-To: notmuch@notmuchmail.org
\r
3 Delivered-To: notmuch@notmuchmail.org
\r
4 Received: from localhost (localhost [127.0.0.1])
\r
5 by olra.theworths.org (Postfix) with ESMTP id 6BAD94196F0
\r
6 for <notmuch@notmuchmail.org>; Fri, 30 Apr 2010 03:34:04 -0700 (PDT)
\r
7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org
\r
11 X-Spam-Status: No, score=-1.9 tagged_above=-999 required=5
\r
12 tests=[BAYES_00=-1.9] autolearn=ham
\r
13 Received: from olra.theworths.org ([127.0.0.1])
\r
14 by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)
\r
15 with ESMTP id oy4Uo4GZPZXb for <notmuch@notmuchmail.org>;
\r
16 Fri, 30 Apr 2010 03:34:02 -0700 (PDT)
\r
17 Received: from homiemail-a15.g.dreamhost.com (caiajhbdcagg.dreamhost.com
\r
19 by olra.theworths.org (Postfix) with ESMTP id 5901A431FC1
\r
20 for <notmuch@notmuchmail.org>; Fri, 30 Apr 2010 03:34:02 -0700 (PDT)
\r
21 Received: from localhost.localdomain (mtec-hg-docking-1-dhcp-204.ethz.ch
\r
22 [129.132.133.204]) (Authenticated sender: sebastian@sspaeth.de)
\r
23 by homiemail-a15.g.dreamhost.com (Postfix) with ESMTPA id DAA3076C014;
\r
24 Fri, 30 Apr 2010 03:34:00 -0700 (PDT)
\r
25 From: Sebastian Spaeth <Sebastian@SSpaeth.de>
\r
26 To: Notmuch developer list <notmuch@notmuchmail.org>
\r
27 Subject: [PATCH] emacs: Remove notmuch-hello-roundup function
\r
28 Date: Fri, 30 Apr 2010 12:33:57 +0200
\r
29 Message-Id: <1272623637-23951-1-git-send-email-Sebastian@SSpaeth.de>
\r
30 X-Mailer: git-send-email 1.7.0.4
\r
31 X-BeenThere: notmuch@notmuchmail.org
\r
32 X-Mailman-Version: 2.1.13
\r
34 List-Id: "Use and development of the notmuch mail system."
\r
35 <notmuch.notmuchmail.org>
\r
36 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,
\r
37 <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>
\r
38 List-Archive: <http://notmuchmail.org/pipermail/notmuch>
\r
39 List-Post: <mailto:notmuch@notmuchmail.org>
\r
40 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>
\r
41 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,
\r
42 <mailto:notmuch-request@notmuchmail.org?subject=subscribe>
\r
43 X-List-Received-Date: Fri, 30 Apr 2010 10:34:04 -0000
\r
45 as it does the same as (ceiling number divisor) which is already provided in elisp.
\r
47 dme, am I right that this patch is really correct?
\r
49 emacs/notmuch-hello.el | 7 +------
\r
50 1 files changed, 1 insertions(+), 6 deletions(-)
\r
52 diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
\r
53 index 1358387..8fabbf4 100644
\r
54 --- a/emacs/notmuch-hello.el
\r
55 +++ b/emacs/notmuch-hello.el
\r
56 @@ -113,11 +113,6 @@
\r
57 maximize (length (car elem)))
\r
60 -(defun notmuch-hello-roundup (dividend divisor)
\r
61 - "Return the rounded up value of dividing `dividend' by `divisor'."
\r
62 - (+ (/ dividend divisor)
\r
63 - (if (> (% dividend divisor) 0) 1 0)))
\r
65 (defun notmuch-hello-reflect-generate-row (ncols nrows row list)
\r
66 (let ((len (length list)))
\r
67 (loop for col from 0 to (- ncols 1)
\r
69 "Reflect a `ncols' wide matrix represented by `list' along the
\r
71 ;; Not very lispy...
\r
72 - (let ((nrows (notmuch-hello-roundup (length list) ncols)))
\r
73 + (let ((nrows (ceiling (length list) ncols)))
\r
74 (loop for row from 0 to (- nrows 1)
\r
75 append (notmuch-hello-reflect-generate-row ncols nrows row list))))
\r