From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bastien Subject: Re: Useful Org Agenda Function: Add "Today" to event Date: Mon, 03 Jul 2017 06:16:44 +0200 Message-ID: <87podi2dac.fsf@bzg.fr> References: <87mvhp7vey.fsf@torysa-worldsendless.byu.edu> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:44304) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dRvj2-0001bN-M1 for emacs-orgmode@gnu.org; Mon, 03 Jul 2017 03:24:53 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dRvj1-0007YU-RF for emacs-orgmode@gnu.org; Mon, 03 Jul 2017 03:24:52 -0400 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: "Tory S. Anderson" Cc: orgmode list Hi Tory, torys.anderson@gmail.com (Tory S. Anderson) writes: > (fset 'tsa/org-agenda-add-today > (lambda (&optional arg) "Keyboard macro." (interactive "p") > (kmacro-exec-ring-item (quote ([return 3 16 14 5 return 21 > 3 46 return 24 98 return] 0 "%d")) arg) > (message "Gave event \"TODAY\" date"))) > (with-eval-after-load 'org-agenda (define-key org-agenda-mode-map > (kbd "C-c .") 'tsa/org-agenda-add-today)) > (with-eval-after-load 'org-agenda (define-key org-agenda-mode-map > (kbd "C-c C-.") 'tsa/org-agenda-add-today)) This looks useful. Please consider adding it to worg/org-hacks.org. Thanks! -- Bastien