From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: jenia.ivlev@gmail.com (jenia.ivlev) Newsgroups: gmane.emacs.help Subject: Re: writing ledger mode, date picker Date: Sun, 08 Nov 2015 23:35:44 -0500 Message-ID: <877flrpz6n.fsf@gmail.com> References: <87r3k1362v.fsf@gmail.com> <87mvup33v0.fsf@gmail.com> <87611did59.fsf@debian.uxu> <87egg0z420.fsf@gmail.com> <87oaf3deed.fsf@debian.uxu> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1447043783 31377 80.91.229.3 (9 Nov 2015 04:36:23 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 9 Nov 2015 04:36:23 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Mon Nov 09 05:36:13 2015 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1ZveBh-0005fx-7S for geh-help-gnu-emacs@m.gmane.org; Mon, 09 Nov 2015 05:36:13 +0100 Original-Received: from localhost ([::1]:50096 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZveBg-00036V-PB for geh-help-gnu-emacs@m.gmane.org; Sun, 08 Nov 2015 23:36:12 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:38815) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZveBU-00036N-T9 for help-gnu-emacs@gnu.org; Sun, 08 Nov 2015 23:36:01 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZveBP-0001cQ-TY for help-gnu-emacs@gnu.org; Sun, 08 Nov 2015 23:36:00 -0500 Original-Received: from plane.gmane.org ([80.91.229.3]:37881) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZveBP-0001cG-Ml for help-gnu-emacs@gnu.org; Sun, 08 Nov 2015 23:35:55 -0500 Original-Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1ZveBN-0005My-TN for help-gnu-emacs@gnu.org; Mon, 09 Nov 2015 05:35:54 +0100 Original-Received: from modemcable053.124-162-184.mc.videotron.ca ([184.162.124.53]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 09 Nov 2015 05:35:53 +0100 Original-Received: from jenia.ivlev by modemcable053.124-162-184.mc.videotron.ca with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 09 Nov 2015 05:35:53 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 50 Original-X-Complaints-To: usenet@ger.gmane.org X-Gmane-NNTP-Posting-Host: modemcable053.124-162-184.mc.videotron.ca User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.5 (gnu/linux) Cancel-Lock: sha1:mqLQPn1vwyS3Sgyg/uY9hRbctJQ= X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 80.91.229.3 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:107998 Archived-At: Emanuel Berg writes: > Yuri Khan writes: > >> You want to ask a user to select a date on the >> calendar and then insert that date into a buffer. > > Aha, that is what the OP wants to do! > > Then what I provided should be modified somewhat - see > the code below. > > The problem is, `calendar-cursor-to-date' only gives > me dates in February 1970... So what is that, Diane > Keaton and Mariel Hemingway? > > Maybe the OP has better luck (?) with that! > Yes I did. I'll copy paste the answer. (defun insert-new-entry () (interactive) (save-excursion (goto-char (point-max)) (print "Asti") (define-key calendar-mode-map (kbd "RET") 'get-date) (calendar) (let* ((x (calendar-cursor-to-date)) (time (encode-time 0 0 0 (nth 1 x) (nth 0 x) (nth 2 x)))) (select-window (get-buffer-window "asti" t)) (insert (format-time-string "%Y-%m-%d" time))))) I didn't yet use the `calendar-mode-map`. Too tired. But I'm confident that it'll work. So now I have all the pieces ;)))) Thanks you so much Emanuel, Yuri and Drew!! P.S. I got this from org-read-date ;) > (require 'calendar) > > (defun calendar-cursor-date-into-asti () > (interactive) > (let*((date (calendar-cursor-to-date)) > (date-string (format-time-string "%Y-%m-%d\n" date)) > (buffer (get-buffer-create "asti")) ) > (with-current-buffer > buffer (insert date-string) ))) > > (define-key calendar-mode-map "\r" 'calendar-cursor-date-into-asti)