jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge: 0.4.3

Browse source
This commit is contained in:
Adam Porter 2020-03-14 14:08:53 -05:00
commit 5bc4a4a825
3 changed files with 77 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

11
org-ql-view.el
View file

@ -315,6 +315,8 @@ TYPE may be `ts', `ts-active', `ts-inactive', `clocked', or
If PROMPT is non-nil (interactively, with prefix), prompt to
update search arguments."
(interactive "P")
(unless (eq major-mode 'org-ql-view-mode)
(user-error "Not an Org QL View buffer"))
(let* ((current-line (buffer-substring-no-properties (line-beginning-position) (line-end-position)))
(old-pos (point))
(defaults (list org-ql-view-buffers-files
@ -372,6 +374,10 @@ update search arguments."
;;;; Functions
(define-derived-mode org-ql-view-mode org-agenda-mode "Org QL View"
"Major mode for `org-ql-view' buffers."
(setf buffer-read-only t))
(defun org-ql-view--list-buffer ()
"Return view list buffer."
(with-current-buffer (get-buffer-create "*Org QL View List*")
@ -493,9 +499,8 @@ with human-readable strings."
If NAME is non-nil, return buffer by that name instead of using
default buffer."
(with-current-buffer (get-buffer-create (or name (concat org-ql-view-buffer-name-prefix "*")))
(unless (eq major-mode 'org-agenda-mode)
(org-agenda-mode)
(setf buffer-read-only t))
(unless (eq major-mode 'org-ql-view-mode)
(org-ql-view-mode))
(current-buffer)))
(defun org-ql-view--format-relative-date (difference)