From 189cea2782df67ea048a3982be69c8b1ff9762e9 Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Thu, 16 Oct 2014 21:35:47 +0400 Subject: emacs: Add 'guix-generations-by-time' command. * emacs/guix-main.scm (find-generations): Add finding generations by time. * emacs/guix-utils.el (guix-read-date): New procedure. * emacs/guix-base.el (guix-messages): Add new messages. * emacs/guix.el (guix-generations-by-time): New command. * doc/emacs.texi (emacs Commands): Document it. --- emacs/guix-utils.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'emacs/guix-utils.el') diff --git a/emacs/guix-utils.el b/emacs/guix-utils.el index f99c2ba884..878781489e 100644 --- a/emacs/guix-utils.el +++ b/emacs/guix-utils.el @@ -138,6 +138,14 @@ split it into several short lines." hist def inherit-input-method) :test #'string=)) +(declare-function org-read-date "org" t) + +(defun guix-read-date (prompt) + "Prompt for a date or time using `org-read-date'. +Return time value." + (require 'org) + (org-read-date nil t nil prompt)) + (defun guix-get-key-val (alist &rest keys) "Return value from ALIST by KEYS. ALIST is alist of alists of alists ... which can be consecutively -- cgit v1.2.3