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

Add: org-ql-view-map

Browse source
This commit is contained in:
Adam Porter 2019-08-16 12:29:20 -05:00
parent 429c313634
commit ae3ec62e3c
2 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
org-ql-agenda.el
View file

@ -60,6 +60,14 @@
(defvar org-ql-agenda-buffer-name "*Org-QL-Agenda*"
"Name of default `org-ql-agenda' buffer.")
(defvar org-ql-view-map
(let ((map (copy-keymap org-agenda-mode-map)))
(define-key map "g" #'org-ql-search-refresh)
(define-key map (kbd "C-x C-s") #'org-ql-search-save)
map)
"Keymap for `org-ql-agenda', `org-ql-search', and `org-ql-views' views.
Based on `org-agenda-mode-map'.")
;; For refreshing results buffers.
(defvar org-ql-buffers-files)
(defvar org-ql-query)
@ -240,11 +248,9 @@ TITLE: An optional string displayed in the header."
(string (org-ql-agenda--buffer buffer))
(null (org-ql-agenda--buffer buffer))
(buffer buffer)))
(map (copy-keymap org-agenda-mode-map))
(inhibit-read-only t))
(define-key map "g" #'org-ql-search-refresh)
(with-current-buffer buffer
(use-local-map map)
(use-local-map org-ql-view-map)
;; Prepare buffer, saving data for refreshing.
(setq-local org-ql-buffers-files buffers-files)
(setq-local org-ql-query query)