[commit-womb] addressbook ChangeLog addressbook.el

[Jose E. Marchesi]

CVSROOT:        /cvsroot/womb
Module name:    addressbook
Changes by:     Jose E. Marchesi <jemarch>      07/05/09 12:12:45

Modified files:
        .              : ChangeLog addressbook.el 

Log message:
        Outline like deadlines

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/addressbook/ChangeLog?cvsroot=womb&r1=1.24&r2=1.25
http://cvs.savannah.gnu.org/viewcvs/addressbook/addressbook.el?cvsroot=womb&r1=1.26&r2=1.27

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/womb/addressbook/ChangeLog,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -b -r1.24 -r1.25
--- ChangeLog   8 May 2007 19:22:34 -0000       1.24
+++ ChangeLog   9 May 2007 12:12:45 -0000       1.25
@@ -1,3 +1,7 @@
+2007-05-09  Jose E. Marchesi  <address@hidden>
+
+       * addressbook.el: outline-mode like headlines
+
 2007-05-08  Xavier Maillard  <address@hidden>
 
        * vcard.el (vcard-parse-file): New helper function used in 
addrbook-import-vcard.

Index: addressbook.el
===================================================================
RCS file: /cvsroot/womb/addressbook/addressbook.el,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -b -r1.26 -r1.27
--- addressbook.el      8 May 2007 19:19:39 -0000       1.26
+++ addressbook.el      9 May 2007 12:12:45 -0000       1.27
@@ -5,7 +5,7 @@
 ;; Maintainer: Jose E. Marchesi
 ;; Keywords: contacts, applications
 
-;; $Id: addressbook.el,v 1.26 2007/05/08 19:19:39 zeDek Exp $
+;; $Id: addressbook.el,v 1.27 2007/05/09 12:12:45 jemarch Exp $
 
 ;; This file is NOT part of GNU Emacs.
 
@@ -77,12 +77,12 @@
 (require 'vcard)
 (require 'mm-decode)
 
-;;;; Constants
+;;;; * Constants
 
 (defconst addrbook-version "0.1"
   "Version of the addressbook")
 
-;;;; Customization
+;;;; * Customization
 
 (defgroup addrbook nil
   "Addressbook subsytem"
@@ -281,7 +281,7 @@
   "Face for selected summary contact line"
   :group 'addrbook)
 
-;;;; Variables
+;;;; * Variables
 
 (defvar addrbook-image-types
   '(("gif" nil)
@@ -462,9 +462,9 @@
   '(("url" "value") ("content-id" "value"))
   "General vCard parameters")
 
-;;;; Properties management functions
+;;;; * Properties management functions
 
-;;; Groups
+;;;; ** Groups
 (defun addrbook-get-group (group-symbol)
   "Return the sexp containing information for GROUP"
   (assoc group-symbol addrbook-properties))
@@ -490,7 +490,7 @@
           (setq result t)))
     result))
 
-;;; Properties
+;;;; ** Properties
 
 (defun addrbook-get-group-prop (props prop-name)
   (assoc prop-name props))
@@ -564,7 +564,7 @@
     (when prop-type
       (car (car prop-type)))))
 
-;;; Cards
+;;;; ** Cards
 
 (defun addrbook-get-card (numcard)
   (nth numcard addrbook-cards))
@@ -647,7 +647,7 @@
                            "(" name-aka ")")))
     result))
 
-;;; Attributes
+;;;; ** Attributes
 
 (defun addrbook-delete-attr (attr-index attr-subindex)
   (let* ((card (addrbook-get-card addrbook-current-card))
@@ -700,14 +700,14 @@
     (setcar (nthcdr 2 custom-group) props-data)))
 
 
-;;;; Addressbook contact editor
+;;;; * Addressbook contact editor
 
-;;; Constants
+;;;; ** Constants
 
 (defconst addrbook-contact-buffer-name "*AddressBook Contact*"
   "Name of the buffer for the addressbook contact editor")
 
-;;; Variables
+;;;; ** Variables
 
 (defvar addrbook-contact-properties-nodisplay
   '("sound" "agent" "version" "uid" "label" "mailer" "uid"))
@@ -722,7 +722,7 @@
   "String to display on the mode line when in the addressbook mode.
 If `nil', do not show anything.")
 
-;;; Contact buffer management
+;;;; ** Contact buffer management
 
 (defun addrbook-create-contact-buffer ()
   "Create a new addressbook buffer to show contact information"
@@ -736,7 +736,7 @@
         (switch-to-buffer-other-window buffer)
       (switch-to-buffer buffer))))
 
-;;; Display functions
+;;;; ** Display functions
 
 (defun addrbook-contact-display-card (numcard)
   "Display the NUMCARD card into the addressbook buffer"
@@ -1090,7 +1090,7 @@
 (defun addrbook-contact-photo-displayed-p ()
   (next-single-property-change (point-min) 'identification-photo))
 
-;;; Commands
+;;;; ** Commands
 
 (defun addrbook-contact-add-attribute-type ()
   "Add a new type to the attribute under point"
@@ -1377,7 +1377,7 @@
       (goto-char (point-min))
       (addrbook-contact-goto-next-group))))
 
-;;; Modeline management
+;;;; ** Modeline management
 
 (defun addrbook-contact-set-mode-line (card-number total-cards)
   "Update the modeline of the current buffer"
@@ -1390,7 +1390,7 @@
               (list 10
                     (format "%d/%d" card-number total-cards))))))
 
-;;; Major mode
+;;;; ** Major mode
 (defun addrbook-contact-mode ()
       "A major mode for contact editing
 
@@ -1422,14 +1422,14 @@
       (setq mode-name "ABook Contact")
       (setq major-mode 'addrbook-contact-mode))
 
-;;;; Addressbook Summary
+;;;; * Addressbook Summary
 
-;;; Constants
+;;;; ** Constants
 
 (defconst addrbook-summary-buffer-name "*AddressBook Summary*"
   "Name of the buffer for the addressbook summary")
 
-;;; Variables
+;;;; ** Variables
 
 (defvar addrbook-summary-mode-map nil
   "Keymap for addrbook-summary-mode")
@@ -1438,7 +1438,7 @@
   "String to display on the mode line when in the addressbook summary mode.
 If `nil', do not show anything.")
 
-;;; Summary buffer management
+;;;; ** Summary buffer management
 
 (defun addrbook-make-summary-buffer ()
   (save-excursion
@@ -1486,7 +1486,7 @@
         (addrbook-summary-display)))
   addrbook-summary-buffer)
 
-;;; Display functions
+;;;; ** Display functions
 
 (defun addrbook-summary-display ()
   (erase-buffer)
@@ -1536,7 +1536,7 @@
 (defun addrbook-summary-get-current-card ()
   (get-text-property (point) 'card-index))
 
-;;; Commands
+;;;; ** Commands
 
 (defun addrbook-summary-next-contact ()
   "Select the next card in the summary buffer"
@@ -1582,7 +1582,7 @@
                (list 10
                      (format "%d/%d" card-number total-cards))))))
 
-;;; Major mode
+;;;; ** Major mode
 
 (defun addrbook-summary-mode ()
   "A major mode for the addressbook summary window
@@ -1604,7 +1604,7 @@
   (setq mode-name "AddressBook Summary")
   (setq major-mode 'addrbook-summary-mode))
 
-;;;; General commands (usable from all addressbook modes)
+;;;; * General commands (usable from all addressbook modes)
 
 (defun addrbook-send-email ()
   "Send an email to current contact"
@@ -1793,7 +1793,7 @@
            (eq major-mode 'addrbook-contact-mode ))
     (bury-buffer)))
 
-;;;; Backend management
+;;;; * Backend management
 
 (defun addrbook-read-cards ()
   "Read cards from addressbook file"
@@ -1894,7 +1894,7 @@
       (add-to-list 'addrbook-modified-cards new-card-index)
       new-card-index)))
 
-;;;; Utility functions
+;;;; * Utility functions
 
 (defun addrbook-list-to-csv (list)
   (let ((result "")
@@ -1966,7 +1966,7 @@
                    (t
                     (string-lessp card1-n-field card2-n-field))))))))
 
-;;; Fast selection
+;;;; * Fast selection
 
 (defun addrbook-fast-selection (names prompt)
   "Fast group tag selection with single keys.
@@ -2125,7 +2125,7 @@
           (setq result i)))
     result))
 
-;;; Search functions
+;;;; ** Search functions
 
 (defun addrbook-attr-matches-p (attr regexp)
   (let (result value
@@ -2155,7 +2155,7 @@
             (add-to-list 'result card-index))))
     (reverse result)))
 
-;;;; Entry points to the addressbook
+;;;; * Entry points to the addressbook
 
 ;;;###autoload
 (defun addressbook ()