From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Charles Sebold Newsgroups: gmane.emacs.help Subject: Re: Week number Date: Tue, 14 Oct 2008 07:53:41 -0500 Organization: Ministry of Silly Walks Message-ID: References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1223991799 31235 80.91.229.12 (14 Oct 2008 13:43:19 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 14 Oct 2008 13:43:19 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Tue Oct 14 15:44:13 2008 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 1KpkAf-0007VM-C2 for geh-help-gnu-emacs@m.gmane.org; Tue, 14 Oct 2008 15:42:46 +0200 Original-Received: from localhost ([127.0.0.1]:35989 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Kpk9a-00010h-T6 for geh-help-gnu-emacs@m.gmane.org; Tue, 14 Oct 2008 09:41:38 -0400 Original-Path: news.stanford.edu!headwall.stanford.edu!newsfeed.stanford.edu!postnews.google.com!news2.google.com!npeer02.iad.highwinds-media.com!npeer01.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!post02.iad.highwinds-media.com!newsfe14.iad.POSTED!7564ea0f!not-for-mail Mail-Copies-To: nobody Original-Newsgroups: gnu.emacs.help X-Using-Mail-Mode: Gmail Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwAgMAAAAqbBEUAAAAAXNSR0IArs4c6QAAAAxQTFRF Py4qdFVKtYRz3aSQR+07SwAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB9gIEhcaB8/5OroA AAHxSURBVCjPLdExa9tAFMDxp1Jl6OZBGrJ36ac4g+2hSxXwCexAOzmQM9QfIIs9NLMNOYPVoUsl 0BNIUwafQPoKGdolHbo0BstgLy3FEuj15HS7H/93B3cHxExMieiLzwBwbotcI2xA8zM8aDwupxoP /BnP5fyE4vuMgWQ8yiuiv08LBtlUxDpQXX5iQLNh0oDWtw7Uczc64ejNgKaWaNZYvp+DeHjp5lRL V31YAGeWMT743J+8/QZbo9UXGIwz790vmBn99pAU5lHPh99mu+PWkifl7VfonvW4e/T7Vi2vwXnF ZdcN73uT4A66risuN/iHo9+HzcBbiQ2uuWy1oL0KwjebLaK3R/Dt69XHQ5FgRAjMdDnuirj4XBcA 9uoqXZdRFe0bIFKGiJNSj9l6Ot1yj3aoS/yDMqpyKlWDn1V5up4u58ljUTcoY7izswCj/6Xy8EKc UChIvfBF2DxWjQrU0jH4ZVN2ClA6FrfzpuwBfcsLcKxLpCAYDVwshkRVtodi8Zp7+VKPHUqI/YFA IfWmKoVCuiIONTLSR0vLS+gpqahScOzzC0H+5JDra0tmOqKU+vf2Cu6Z0Rni4ian/alw4S9uqMGI Ga43utBjSr8bszCU3UiHUMP0Qt6O0hRl842DFTejSgUDWDvmcNTpqjhc8n9hvWnVsoKmHAAAAABJ RU5ErkJggg== User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.3 (windows-nt) Cancel-Lock: sha1:ivn7kHB7V5Hezn49w7u3B3GEuFo= Original-Lines: 17 Original-NNTP-Posting-Host: cbggobbepdfeflbildaedobifmeaokba Original-X-Complaints-To: abuse@charter.net Original-X-Trace: dohedhpnjnemncfkfkhgnhldfhiklkalgpblamnncjhohclicbggobbepdfeflbiddfpoklkdebinfchoimeflnalkajdadmdmkflckmfnipolkhjajcomlhadbdenpkfdlbpmaelemcakjp Original-NNTP-Posting-Date: Tue, 14 Oct 2008 12:53:42 UTC Original-Xref: news.stanford.edu gnu.emacs.help:163418 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:58763 Archived-At: On 14 Oct 2008, Charles Sebold wrote: > Here's how org-mode does it: Sorry, this is really what you were asking for, then: (defun crs-iso-week (&optional date) "Week number of ISO date of Gregorian DATE. Defaults to today's date if DATE is not given." (require 'cal-iso) (let* ((d (calendar-absolute-from-gregorian (or date (calendar-current-date)))) (iso-date (calendar-iso-from-absolute d))) (format "%dw%2d" (extract-calendar-year iso-date) (extract-calendar-month iso-date)))) -- Charles Sebold 14th of October, 2008