[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[commit-womb] addressbook ChangeLog addressbook.el
From: |
Jose E. Marchesi |
Subject: |
[commit-womb] addressbook ChangeLog addressbook.el |
Date: |
Wed, 09 May 2007 12:12:45 +0000 |
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 ()
- [Commit-womb] addressbook ChangeLog addressbook.el, (continued)
- [Commit-womb] addressbook ChangeLog addressbook.el, Jose E. Marchesi, 2007/05/07
- [Commit-womb] addressbook ChangeLog addressbook.el, Jose E. Marchesi, 2007/05/07
- [Commit-womb] addressbook ChangeLog addressbook.el, Jose E. Marchesi, 2007/05/08
- [Commit-womb] addressbook ChangeLog addressbook.el, Jose E. Marchesi, 2007/05/08
- [Commit-womb] addressbook ChangeLog addressbook.el, Jose E. Marchesi, 2007/05/08
- [Commit-womb] addressbook ChangeLog addressbook.el, Jose E. Marchesi, 2007/05/08
- [Commit-womb] addressbook ChangeLog addressbook.el, Jose E. Marchesi, 2007/05/08
- [Commit-womb] addressbook ChangeLog addressbook.el, Jose E. Marchesi, 2007/05/08
- [Commit-womb] addressbook ChangeLog addressbook.el, Jose E. Marchesi, 2007/05/08
- [Commit-womb] addressbook ChangeLog addressbook.el, Xavier Maillard, 2007/05/08
- [commit-womb] addressbook ChangeLog addressbook.el,
Jose E. Marchesi <=