diff --git a/README.org b/README.org index 457dedd..00032a3 100644 --- a/README.org +++ b/README.org @@ -233,7 +233,7 @@ Note that the =effort=, =level=, and =priority= predicates do not support compar Arguments are listed next to predicate names, where applicable. + =blocked= :: Return non-nil if current heading is blocked. Calls ~org-entry-blocked-p~, which see. -+ =category (&rest categories)= :: Return non-nil if current heading is in one or more of ~CATEGORIES~ (a list of strings). ++ =category (&optional categories)= :: Return non-nil if current heading is in one or more of ~CATEGORIES~ (a list of strings). + =done= :: Return non-nil if entry's ~TODO~ keyword is in ~org-done-keywords~. + =effort (&optional effort-or-comparator effort)= :: Return non-nil if current heading's effort property matches arguments. The following forms are accepted: ~(effort DURATION)~: Matches if effort is ~DURATION~. ~(effort DURATION DURATION)~: Matches if effort is between DURATIONs, inclusive. ~(effort COMPARATOR DURATION)~: Matches if effort compares to ~DURATION~ with ~COMPARATOR~. ~COMPARATOR~ may be ~<~, ~<=~, ~>~, or ~>=~. ~DURATION~ should be an Org effort string, like =5= or =0:05=. + =habit= :: Return non-nil if entry is a habit. @@ -256,16 +256,16 @@ Arguments are listed next to predicate names, where applicable. - Aliases: ~smart~. - *Note:* By default, this is the default predicate used for plain-string query tokens (i.e. given without a specified predicate). This can be customized with the option ~org-ql-default-predicate~. + ~src (&key lang regexps)~ :: Return non-nil if current entry contains an Org Babel source block. If ~LANG~ is non-nil, match blocks of that language. If ~REGEXPS~ is non-nil, require that block's contents match all regexps. Matching is done case-insensitively. -+ =tags (&rest tags)= :: Return non-nil if current heading has one or more of ~TAGS~ (a list of strings). Tests both inherited and local tags. -+ =tags-inherited (&rest tags)= :: Return non-nil if current heading's inherited tags include one or more of ~TAGS~ (a list of strings). If ~TAGS~ is nil, return non-nil if heading has any inherited tags. ++ =tags (&optional tags)= :: Return non-nil if current heading has one or more of ~TAGS~ (a list of strings). Tests both inherited and local tags. ++ =tags-inherited (&optional tags)= :: Return non-nil if current heading's inherited tags include one or more of ~TAGS~ (a list of strings). If ~TAGS~ is nil, return non-nil if heading has any inherited tags. - Aliases: ~inherited-tags~, ~tags-i~, ~itags~. -+ =tags-local (&rest tags)= :: Return non-nil if current heading's local tags include one or more of ~TAGS~ (a list of strings). If ~TAGS~ is nil, return non-nil if heading has any local tags. ++ =tags-local (&optional tags)= :: Return non-nil if current heading's local tags include one or more of ~TAGS~ (a list of strings). If ~TAGS~ is nil, return non-nil if heading has any local tags. - Aliases: ~local-tags~, ~tags-l~, ~ltags~. -+ =tags-all (&rest tags)= :: Return non-nil if current heading includes all of ~TAGS~. Tests both inherited and local tags. ++ =tags-all (tags)= :: Return non-nil if current heading includes all of ~TAGS~. Tests both inherited and local tags. - Aliases: ~tags&~. + =tags-regexp (&rest regexps)= :: Return non-nil if current heading has tags matching one or more of ~REGEXPS~. Tests both inherited and local tags. - Aliases: ~tags*~. -+ =todo (&rest keywords)= :: Return non-nil if current heading is a ~TODO~ item. With ~KEYWORDS~, return non-nil if its keyword is one of ~KEYWORDS~ (a list of strings). When called without arguments, only matches non-done tasks (i.e. does not match keywords in ~org-done-keywords~). ++ =todo (&optional keywords)= :: Return non-nil if current heading is a ~TODO~ item. With ~KEYWORDS~, return non-nil if its keyword is one of ~KEYWORDS~ (a list of strings). When called without arguments, only matches non-done tasks (i.e. does not match keywords in ~org-done-keywords~). *** Ancestor/descendant predicates @@ -556,39 +556,17 @@ Simple links may also be written manually in either sexp or non-sexp form, like: ** 0.9-pre -*Additions* -+ Face ~org-ql-view-query~, applied to view queries in header line. -+ Face ~org-ql-view-title~, applied to view titles in header line. -+ Option ~org-ql-view-relative-deadline-prefix~. - *Changes* + Command ~org-ql-find~ respects narrowing of the current buffer by default, allowing searching within the narrowed region. (Using one ~C-u~ argument widens the current buffer, and using two ~C-u~ arguments prompts for the buffers to search.) + Function ~org-ql-completing-read~ accepts a new ~NARROWP~ argument, which is passed to ~org-ql-select~. -*Fixes* -+ Customization group for face ~org-ql-view-due-date~. -+ Apply Org syntax font-locking to items in ~org-ql-view~ buffers. +*Compatibility* ++ Fix compilation error on Emacs 30. ([[https://github.com/alphapapa/org-ql/issues/433][#433]]. Thanks to [[https://github.com/akirak][Akira Komamura]] and [[https://github.com/monnier][Stefan Monnier]].) *** helm-org-ql Tagged v0.6.2, fixing a compilation warning. -** 0.8.10 - -*Fixes* -+ Command ~org-ql-refile~ uses the base buffer when refiling to an indirect buffer. ([[https://github.com/alphapapa/org-ql/issues/466][#466]].) -+ Predicate ~link~ could signal an error when searching text that is mistakenly recognized as an Org link (e.g. Bash double-bracket constructs in a source block). (Thanks to [[https://github.com/jwiegley][John Wiegley]] for reporting.) - -** 0.8.9 - -*Fixes* -+ Predicate ~property~ when called with argument form ~(property "PROPERTY-NAME" :inherit t)~. ([[https://github.com/alphapapa/org-ql/issues/460][#460]]. Thanks to [[https://github.com/Stewmath][Stewmath]] for reporting.) -+ Predicate ~level~'s preamble optimizer allows expressions in place of the numeric argument. (See [[https://github.com/alphapapa/org-ql/issues/460][#460]]. Thanks to [[https://github.com/Stewmath][Stewmath]] for reporting.) -+ Reading of view settings from Org links in upcoming Emacs version. ([[https://github.com/alphapapa/org-ql/issues/461][#461]]. Thanks to [[https://github.com/snogge][Ola Nilsson]] for help debugging, and for maintaining [[https://github.com/jorgenschaefer/emacs-buttercup][Buttercup]].) - -*Compatibility* -+ Fix compilation error on Emacs 30. ([[https://github.com/alphapapa/org-ql/issues/433][#433]]. Thanks to [[https://github.com/akirak][Akira Komamura]] and [[https://github.com/monnier][Stefan Monnier]].) - ** 0.8.8 *Fixes* diff --git a/org-ql-find.el b/org-ql-find.el index e6c4795..ed6d21d 100644 --- a/org-ql-find.el +++ b/org-ql-find.el @@ -122,20 +122,18 @@ which see (but only the files are used)." ((and (pred listp) files) files))) (list files-spec))))))) (list (org-ql-completing-read buffers-files :prompt "Refile to: ")))) - (let ((buffer (or (buffer-base-buffer (marker-buffer marker)) - (marker-buffer marker)))) - (org-refile nil nil - ;; The RFLOC argument: - (list - ;; Name - (org-with-point-at marker - (nth 4 (org-heading-components))) - ;; File - (buffer-file-name buffer) - ;; nil - nil - ;; Position - marker)))) + (org-refile nil nil + ;; The RFLOC argument: + (list + ;; Name + (org-with-point-at marker + (nth 4 (org-heading-components))) + ;; File + (buffer-file-name (marker-buffer marker)) + ;; nil + nil + ;; Position + marker))) ;;;###autoload (defun org-ql-find-in-agenda () diff --git a/org-ql-search.el b/org-ql-search.el index 6fe0e55..159b724 100644 --- a/org-ql-search.el +++ b/org-ql-search.el @@ -240,7 +240,7 @@ Like other agenda block commands, it searches files returned by function `org-agenda-files'. Inserts a newline after the block. If `org-ql-block-header' is non-nil, it is used as the header -string for the block, otherwise the header is formed +string for the block, otherwise a the header is formed automatically from the query." (pcase-let ((`(,query . ,(map :header :sort)) args) (narrow-p) (old-beg) (old-end)) diff --git a/org-ql-view.el b/org-ql-view.el index 8d65582..1448baa 100644 --- a/org-ql-view.el +++ b/org-ql-view.el @@ -57,18 +57,7 @@ (defface org-ql-view-due-date '((t (:slant italic :weight bold))) "Face for due dates in `org-ql-view' views." - :group 'org-ql-view) - -(defface org-ql-view-query nil - "View query in header line. -This face is added to the formatted query after font-lock faces -are applied to it. It may be used, e.g. to reduce the height so -more of it is visible." - :group 'org-ql-view) - -(defface org-ql-view-title '((t :weight bold)) - "View title in header line." - :group 'org-ql-view) + :group 'org-ql) ;;;; Variables @@ -249,12 +238,6 @@ See info node `(elisp)Cyclic Window Ordering'." (sexp :tag "org-super-agenda grouping expression") (variable :tag "Variable holding org-super-agenda grouping expression")))))))) -(defcustom org-ql-view-relative-deadline-prefix "due " - ;; TODO(v0.9): Add one for scheduled, too. - "Prefix for relative deadlines. -Relative deadlines are, e.g. \"in 5d\", \"5d ago\"." - :type 'string) - ;;;; Commands ;;;###autoload @@ -476,8 +459,7 @@ subsequent refreshing of the buffer: `org-ql-view-buffers-files', If TITLE, prepend it to the header." (let* ((title (if title (concat (propertize "View:" 'face 'transient-argument) - (propertize title 'face 'org-ql-view-title) - " ") + title " ") "")) (query-formatted (when query (org-ql-view--format-query query))) @@ -496,7 +478,6 @@ If TITLE, prepend it to the header." (org-ql-view--font-lock-string 'emacs-lisp-mode) (s-truncate available-width)) 'help-echo buffers-files-formatted)))) - (add-face-text-property 0 (length query-propertized) 'org-ql-view-query 'append query-propertized) (concat title (when query (propertize "Query:" 'face 'transient-argument)) (when query query-propertized) @@ -528,22 +509,6 @@ with human-readable strings." (font-lock-ensure) (buffer-string)))) -(defun org-ql-view--font-lock-as-org (s) - "Return string S font-locked as in `org-mode'." - ;; This works like `org-fontify-like-in-org-mode', but uses a single - ;; buffer instead of a new one every time. - ;; TODO(C): Submit these improvements upstream. - (let ((buffer (or (get-buffer " *org-ql-view--font-lock-as-org*") - (with-current-buffer (get-buffer-create " *org-ql-view--font-lock-as-org*") - (buffer-disable-undo) - (org-mode) - (current-buffer))))) - (with-current-buffer buffer - (insert s) - (font-lock-ensure) - (prog1 (buffer-string) - (erase-buffer))))) - (defun org-ql-view--buffer (&optional name) "Return `org-ql-view' buffer, creating it if necessary. If NAME is non-nil, return buffer by that name instead of using @@ -661,7 +626,7 @@ purposes of compatibility with changes in Org 9.4." (query (url-unhex-string query)) (params (when params (url-parse-query-string params))) ;; `url-parse-query-string' returns "improper" alists, which makes this awkward. - (sort (when-let* ((stored-string (car (alist-get "sort" params nil nil #'string=))) + (sort (when-let* ((stored-string (alist-get "sort" params nil nil #'string=)) (read-value (read stored-string))) ;; Ensure the value is either a symbol or list of symbols (which excludes lambdas). (unless (or (symbolp read-value) (cl-every #'symbolp read-value)) @@ -669,19 +634,17 @@ purposes of compatibility with changes in Org 9.4." read-value)) read-value)) (org-super-agenda-allow-unsafe-groups nil) ; Disallow unsafe group selectors. - (groups (--when-let (car (alist-get "super-groups" params nil nil #'string=)) + (groups (--when-let (alist-get "super-groups" params nil nil #'string=) (read it))) - (title (--when-let (car (alist-get "title" params nil nil #'string=)) + (title (--when-let (alist-get "title" params nil nil #'string=) (read it))) - (buffers-files (--if-let (car (alist-get "buffers-files" params nil nil #'string=)) + (buffers-files (--if-let (alist-get "buffers-files" params nil nil #'string=) (org-ql-view--expand-buffers-files (read it)) (current-buffer)))) (unless (or (bufferp buffers-files) (stringp buffers-files) (cl-every #'stringp buffers-files)) (error "CAUTION: Link not opened because unsafe buffers-files parameter detected: %s" buffers-files)) - (unless (or (stringp title) (null title)) - (error "CAUTION: Link not opened because unsafe title parameter detected: %S" title)) (when (or (listp query) (string-match (rx bol (0+ space) "(") query)) ;; SAFETY: Query is in sexp form: ask for confirmation, because it could contain arbitrary code. @@ -914,11 +877,6 @@ return an empty string." ;; (which would also make it easier to do it independently of faces, etc). (title (--> (org-ql-view--add-faces element) (org-element-property :raw-value it))) - ;; TODO(B): Needs refactoring. A function like `org-ql-view--add-faces' - ;; should return a list of faces to be added. - (title-faces (get-text-property 0 'face title)) - (title (org-ql-view--font-lock-as-org title)) - (_ (add-face-text-property 0 (length title) title-faces t title)) (todo-keyword (-some--> (org-element-property :todo-keyword element) (org-ql-view--add-todo-face (substring-no-properties it)))) @@ -1056,9 +1014,7 @@ property." (deadline-day-number (org-time-string-to-absolute (org-element-timestamp-interpreter deadline-date 'ignore))) (difference-days (- today-day-number deadline-day-number)) - (relative-due-date (org-add-props - (concat org-ql-view-relative-deadline-prefix - (org-ql-view--format-relative-date difference-days)) nil + (relative-due-date (org-add-props (org-ql-view--format-relative-date difference-days) nil 'help-echo (org-element-property :raw-value deadline-date))) ;; FIXME: Unused for now: (todo-keyword (org-element-property :todo-keyword element)) ;; FIXME: Unused for now: (done-p (member todo-keyword org-done-keywords)) diff --git a/org-ql.el b/org-ql.el index f3b7715..a4153bd 100644 --- a/org-ql.el +++ b/org-ql.el @@ -1537,8 +1537,7 @@ COMPARATOR may be `<', `<=', `>', or `>='." ;; is "h:" while the user is typing. (list :regexp (rx bol (1+ "*") " ") :case-fold t)) - ((and `(,predicate-names ,comparator-or-num ,num) - (guard (numberp num))) + (`(,predicate-names ,comparator-or-num ,num) (let ((repeat (pcase comparator-or-num ('< `(repeat 1 ,(1- num) "*")) ('<= `(repeat 1 ,num "*")) @@ -1547,8 +1546,7 @@ COMPARATOR may be `<', `<=', `>', or `>='." ((pred integerp) `(repeat ,comparator-or-num ,num "*"))))) (list :regexp (rx-to-string `(seq bol ,repeat " ") t) :case-fold t))) - ((and `(,predicate-names ,num) - (guard (numberp num))) + (`(,predicate-names ,num) (list :regexp (rx-to-string `(seq bol (repeat ,num "*") " ") t) :case-fold t))) ;; NOTE: It might be necessary to take into account `org-odd-levels'; see docstring for @@ -1626,15 +1624,11 @@ any link is found." (or (null description) (string-match-p description (match-string org-ql-link-description-group))))) (_ (if (and description target) - (and (and (match-string 1) - (string-match-p target (match-string 1))) - (and (match-string org-ql-link-description-group) - (string-match-p description (match-string org-ql-link-description-group)))) - (or (and (match-string 1) - (string-match-p description-or-target (match-string 1))) - (and (match-string org-ql-link-description-group) - (string-match-p description-or-target - (match-string org-ql-link-description-group)))))))))) + (and (string-match-p target (match-string 1)) + (string-match-p description (match-string org-ql-link-description-group))) + (or (string-match-p description-or-target (match-string 1)) + (string-match-p description-or-target + (match-string org-ql-link-description-group))))))))) (org-ql-defpred (rifle smart) (&rest strings) "Return non-nil if each of strings is found in the entry or its outline path. @@ -1808,62 +1802,34 @@ interpreted as nil or non-nil)." ;; predicate test for whether an entry has local ;; properties when no arguments are given. (list 'property "")) - (`(,predicate-names ,property) + (`(,predicate-names ,property ,value . ,plist) ;; Convert keyword property arguments to strings. Non-sexp ;; queries result in keyword property arguments (because to do ;; otherwise would require ugly special-casing in the parsing). (when (keywordp property) (setf property (substring (symbol-name property) 1))) - (list 'property property)) - (`(,predicate-names ,property . ,rest) - (pcase rest - (`(,value) - ;; Convert keyword property arguments to strings. Non-sexp - ;; queries result in keyword property arguments (because to do - ;; otherwise would require ugly special-casing in the parsing). - (when (keywordp property) - (setf property (substring (symbol-name property) 1))) - (list 'property property value)) - ((and `(,value . ,plist) - (guard (not (keywordp value)))) - ;; Convert keyword property arguments to strings. Non-sexp - ;; queries result in keyword property arguments (because to do - ;; otherwise would require ugly special-casing in the parsing). - (when (keywordp property) - (setf property (substring (symbol-name property) 1))) - (list 'property property value - :inherit (cond ((plist-member plist :inherit) (plist-get plist :inherit)) - ((listp org-use-property-inheritance) ''selective) - (t org-use-property-inheritance)))) - ((and plist (guard (keywordp (car rest)))) - ;; Convert keyword property arguments to strings. Non-sexp - ;; queries result in keyword property arguments (because to do - ;; otherwise would require ugly special-casing in the parsing). - (when (keywordp property) - (setf property (substring (symbol-name property) 1))) - (list 'property property nil - :inherit (cond ((plist-member plist :inherit) (plist-get plist :inherit)) - ((listp org-use-property-inheritance) ''selective) - (t org-use-property-inheritance))))))) + (list 'property property value + :inherit (cond ((plist-member plist :inherit) (plist-get plist :inherit)) + ((listp org-use-property-inheritance) ''selective) + (t org-use-property-inheritance))))) ;; MAYBE: Should case folding be disabled for properties? What about values? ;; MAYBE: Support (property) without args. ;; NOTE: When inheritance is enabled, the preamble can't be used, ;; which will make the search slower. - :preambles (((and `(,predicate-names ,property ,value) - (guard (atom value))) + :preambles ((`(,predicate-names ,property ,value . ,(map :inherit)) ;; We do NOT return nil, because the predicate still needs to be tested, ;; because the regexp could match a string not inside a property drawer. - (list :regexp (rx-to-string `(seq bol (0+ space) ":" ,property ":" - (1+ space) ,value (0+ space) eol)) + (list :regexp (unless inherit + (rx-to-string `(seq bol (0+ space) ":" ,property ":" + (1+ space) ,value (0+ space) eol))) :query query)) - ((and `(,predicate-names ,property ,value . ,plist) - (guard (keywordp (car plist)))) - ;; WE do NOT return nil, because the predicate still needs to be tested, + (`(,predicate-names ,property . ,(map :inherit)) + ;; We do NOT return nil, because the predicate still needs to be tested, ;; because the regexp could match a string not inside a property drawer. ;; NOTE: The preamble only matches if there appears to be a value. ;; A line like ":ID: " without any other text does not match. - (list :regexp (unless (plist-get plist :inherit) + (list :regexp (unless inherit (rx-to-string `(seq bol (0+ space) ":" ,property ":" (1+ space) (minimal-match (1+ not-newline)) eol))) :query query))) @@ -1875,7 +1841,7 @@ interpreted as nil or non-nil)." ;; Check that PROPERTY exists (org-ql--value-at (point) (lambda () - (org-entry-get (point) property inherit)))) + (org-entry-get (point) property)))) (_ ;; Check that PROPERTY has VALUE. diff --git a/org-ql.info b/org-ql.info index 7f08c68..a0b7011 100644 --- a/org-ql.info +++ b/org-ql.info @@ -74,8 +74,6 @@ Functions / Macros Changelog * 0.9-pre: 09-pre. -* 0.8.10: 0810. -* 0.8.9: 089. * 0.8.8: 088. * 0.8.7: 087. * 0.8.6: 086. @@ -1049,8 +1047,6 @@ releases. * Menu: * 0.9-pre: 09-pre. -* 0.8.10: 0810. -* 0.8.9: 089. * 0.8.8: 088. * 0.8.7: 087. * 0.8.6: 086. @@ -1092,17 +1088,12 @@ releases. * 0.1: 01.  -File: README.info, Node: 09-pre, Next: 0810, Up: Changelog +File: README.info, Node: 09-pre, Next: 088, Up: Changelog 5.1 0.9-pre =========== -*Additions* - • Face ‘org-ql-view-query’, applied to view queries in header line. - • Face ‘org-ql-view-title’, applied to view titles in header line. - • Option ‘org-ql-view-relative-deadline-prefix’. - - *Changes* +*Changes* • Command ‘org-ql-find’ respects narrowing of the current buffer by default, allowing searching within the narrowed region. (Using one ‘C-u’ argument widens the current buffer, and using two ‘C-u’ @@ -1110,9 +1101,11 @@ File: README.info, Node: 09-pre, Next: 0810, Up: Changelog • Function ‘org-ql-completing-read’ accepts a new ‘NARROWP’ argument, which is passed to ‘org-ql-select’. - *Fixes* - • Customization group for face ‘org-ql-view-due-date’. - • Apply Org syntax font-locking to items in ‘org-ql-view’ buffers. + *Compatibility* + • Fix compilation error on Emacs 30. (#433 + (https://github.com/alphapapa/org-ql/issues/433). Thanks to Akira + Komamura (https://github.com/akirak) and Stefan Monnier + (https://github.com/monnier).) * Menu: @@ -1127,51 +1120,9 @@ File: README.info, Node: helm-org-ql (1), Up: 09-pre Tagged v0.6.2, fixing a compilation warning.  -File: README.info, Node: 0810, Next: 089, Prev: 09-pre, Up: Changelog +File: README.info, Node: 088, Next: 087, Prev: 09-pre, Up: Changelog -5.2 0.8.10 -========== - -*Fixes* - • Command ‘org-ql-refile’ uses the base buffer when refiling to an - indirect buffer. (#466 - (https://github.com/alphapapa/org-ql/issues/466).) - • Predicate ‘link’ could signal an error when searching text that is - mistakenly recognized as an Org link (e.g. Bash double-bracket - constructs in a source block). (Thanks to John Wiegley - (https://github.com/jwiegley) for reporting.) - - -File: README.info, Node: 089, Next: 088, Prev: 0810, Up: Changelog - -5.3 0.8.9 -========= - -*Fixes* - • Predicate ‘property’ when called with argument form ‘(property - "PROPERTY-NAME" :inherit t)’. (#460 - (https://github.com/alphapapa/org-ql/issues/460). Thanks to - Stewmath (https://github.com/Stewmath) for reporting.) - • Predicate ‘level’’s preamble optimizer allows expressions in place - of the numeric argument. (See #460 - (https://github.com/alphapapa/org-ql/issues/460). Thanks to - Stewmath (https://github.com/Stewmath) for reporting.) - • Reading of view settings from Org links in upcoming Emacs version. - (#461 (https://github.com/alphapapa/org-ql/issues/461). Thanks to - Ola Nilsson (https://github.com/snogge) for help debugging, and for - maintaining Buttercup - (https://github.com/jorgenschaefer/emacs-buttercup).) - - *Compatibility* - • Fix compilation error on Emacs 30. (#433 - (https://github.com/alphapapa/org-ql/issues/433). Thanks to Akira - Komamura (https://github.com/akirak) and Stefan Monnier - (https://github.com/monnier).) - - -File: README.info, Node: 088, Next: 087, Prev: 089, Up: Changelog - -5.4 0.8.8 +5.2 0.8.8 ========= *Fixes* @@ -1193,7 +1144,7 @@ File: README.info, Node: 088, Next: 087, Prev: 089, Up: Changelog  File: README.info, Node: 087, Next: 086, Prev: 088, Up: Changelog -5.5 0.8.7 +5.3 0.8.7 ========= *Fixes* @@ -1221,7 +1172,7 @@ File: README.info, Node: 087, Next: 086, Prev: 088, Up: Changelog  File: README.info, Node: 086, Next: 085, Prev: 087, Up: Changelog -5.6 0.8.6 +5.4 0.8.6 ========= *Fixes* @@ -1231,7 +1182,7 @@ File: README.info, Node: 086, Next: 085, Prev: 087, Up: Changelog  File: README.info, Node: 085, Next: 084, Prev: 086, Up: Changelog -5.7 0.8.5 +5.5 0.8.5 ========= *Fixes* @@ -1248,7 +1199,7 @@ File: README.info, Node: 085, Next: 084, Prev: 086, Up: Changelog  File: README.info, Node: 084, Next: 083, Prev: 085, Up: Changelog -5.8 0.8.4 +5.6 0.8.4 ========= *Fixes* @@ -1262,7 +1213,7 @@ File: README.info, Node: 084, Next: 083, Prev: 085, Up: Changelog  File: README.info, Node: 083, Next: 082, Prev: 084, Up: Changelog -5.9 0.8.3 +5.7 0.8.3 ========= *Fixes* @@ -1275,8 +1226,8 @@ File: README.info, Node: 083, Next: 082, Prev: 084, Up: Changelog  File: README.info, Node: 082, Next: 081, Prev: 083, Up: Changelog -5.10 0.8.2 -========== +5.8 0.8.2 +========= *Fixes* @@ -1289,8 +1240,8 @@ File: README.info, Node: 082, Next: 081, Prev: 083, Up: Changelog  File: README.info, Node: 081, Next: 08, Prev: 082, Up: Changelog -5.11 0.8.1 -========== +5.9 0.8.1 +========= *Fixes* @@ -1304,7 +1255,7 @@ File: README.info, Node: 081, Next: 08, Prev: 082, Up: Changelog  File: README.info, Node: 08, Next: 074, Prev: 081, Up: Changelog -5.12 0.8 +5.10 0.8 ======== *Additions* @@ -1360,7 +1311,7 @@ File: README.info, Node: 08, Next: 074, Prev: 081, Up: Changelog  File: README.info, Node: 074, Next: 073, Prev: 08, Up: Changelog -5.13 0.7.4 +5.11 0.7.4 ========== *Fixes* @@ -1370,7 +1321,7 @@ File: README.info, Node: 074, Next: 073, Prev: 08, Up: Changelog  File: README.info, Node: 073, Next: 072, Prev: 074, Up: Changelog -5.14 0.7.3 +5.12 0.7.3 ========== *Fixes* @@ -1388,7 +1339,7 @@ File: README.info, Node: 073, Next: 072, Prev: 074, Up: Changelog  File: README.info, Node: 072, Next: 071, Prev: 073, Up: Changelog -5.15 0.7.2 +5.13 0.7.2 ========== *Fixes* @@ -1409,7 +1360,7 @@ File: README.info, Node: 072, Next: 071, Prev: 073, Up: Changelog  File: README.info, Node: 071, Next: 07, Prev: 072, Up: Changelog -5.16 0.7.1 +5.14 0.7.1 ========== *Fixes* @@ -1428,7 +1379,7 @@ File: README.info, Node: 071, Next: 07, Prev: 072, Up: Changelog  File: README.info, Node: 07, Next: 063, Prev: 071, Up: Changelog -5.17 0.7 +5.15 0.7 ======== *Added* @@ -1487,7 +1438,7 @@ File: README.info, Node: 07, Next: 063, Prev: 071, Up: Changelog  File: README.info, Node: 063, Next: 062, Prev: 07, Up: Changelog -5.18 0.6.3 +5.16 0.6.3 ========== *Fixed* @@ -1503,7 +1454,7 @@ File: README.info, Node: 063, Next: 062, Prev: 07, Up: Changelog  File: README.info, Node: 062, Next: 061, Prev: 063, Up: Changelog -5.19 0.6.2 +5.17 0.6.2 ========== *Fixed* @@ -1514,7 +1465,7 @@ File: README.info, Node: 062, Next: 061, Prev: 063, Up: Changelog  File: README.info, Node: 061, Next: 06, Prev: 062, Up: Changelog -5.20 0.6.1 +5.18 0.6.1 ========== *Fixed* @@ -1532,7 +1483,7 @@ File: README.info, Node: 061, Next: 06, Prev: 062, Up: Changelog  File: README.info, Node: 06, Next: 052, Prev: 061, Up: Changelog -5.21 0.6 +5.19 0.6 ======== *Added* @@ -1599,7 +1550,7 @@ File: README.info, Node: 06, Next: 052, Prev: 061, Up: Changelog  File: README.info, Node: 052, Next: 051, Prev: 06, Up: Changelog -5.22 0.5.2 +5.20 0.5.2 ========== *Fixed* @@ -1610,7 +1561,7 @@ File: README.info, Node: 052, Next: 051, Prev: 06, Up: Changelog  File: README.info, Node: 051, Next: 05, Prev: 052, Up: Changelog -5.23 0.5.1 +5.21 0.5.1 ========== *Fixed* @@ -1623,7 +1574,7 @@ File: README.info, Node: 051, Next: 05, Prev: 052, Up: Changelog  File: README.info, Node: 05, Next: 049, Prev: 051, Up: Changelog -5.24 0.5 +5.22 0.5 ======== *Added* @@ -1664,7 +1615,7 @@ File: README.info, Node: 05, Next: 049, Prev: 051, Up: Changelog  File: README.info, Node: 049, Next: 048, Prev: 05, Up: Changelog -5.25 0.4.9 +5.23 0.4.9 ========== *Fixed* @@ -1675,7 +1626,7 @@ File: README.info, Node: 049, Next: 048, Prev: 05, Up: Changelog  File: README.info, Node: 048, Next: 047, Prev: 049, Up: Changelog -5.26 0.4.8 +5.24 0.4.8 ========== *Fixed* @@ -1687,7 +1638,7 @@ File: README.info, Node: 048, Next: 047, Prev: 049, Up: Changelog  File: README.info, Node: 047, Next: 046, Prev: 048, Up: Changelog -5.27 0.4.7 +5.25 0.4.7 ========== *Fixed* @@ -1700,7 +1651,7 @@ File: README.info, Node: 047, Next: 046, Prev: 048, Up: Changelog  File: README.info, Node: 046, Next: 045, Prev: 047, Up: Changelog -5.28 0.4.6 +5.26 0.4.6 ========== *Fixed* @@ -1713,7 +1664,7 @@ File: README.info, Node: 046, Next: 045, Prev: 047, Up: Changelog  File: README.info, Node: 045, Next: 044, Prev: 046, Up: Changelog -5.29 0.4.5 +5.27 0.4.5 ========== *Fixed* @@ -1725,7 +1676,7 @@ File: README.info, Node: 045, Next: 044, Prev: 046, Up: Changelog  File: README.info, Node: 044, Next: 043, Prev: 045, Up: Changelog -5.30 0.4.4 +5.28 0.4.4 ========== *Fixed* @@ -1737,7 +1688,7 @@ File: README.info, Node: 044, Next: 043, Prev: 045, Up: Changelog  File: README.info, Node: 043, Next: 042, Prev: 044, Up: Changelog -5.31 0.4.3 +5.29 0.4.3 ========== *Fixed* @@ -1747,7 +1698,7 @@ File: README.info, Node: 043, Next: 042, Prev: 044, Up: Changelog  File: README.info, Node: 042, Next: 041, Prev: 043, Up: Changelog -5.32 0.4.2 +5.30 0.4.2 ========== *Fixed* @@ -1756,7 +1707,7 @@ File: README.info, Node: 042, Next: 041, Prev: 043, Up: Changelog  File: README.info, Node: 041, Next: 04, Prev: 042, Up: Changelog -5.33 0.4.1 +5.31 0.4.1 ========== *Fixed* @@ -1766,7 +1717,7 @@ File: README.info, Node: 041, Next: 04, Prev: 042, Up: Changelog  File: README.info, Node: 04, Next: 032, Prev: 041, Up: Changelog -5.34 0.4 +5.32 0.4 ======== _Note:_ The next release, 0.5, may include changes which will require @@ -1847,7 +1798,7 @@ automatically, as they will be pushed to the ‘master’ branch when ready.  File: README.info, Node: 032, Next: 031, Prev: 04, Up: Changelog -5.35 0.3.2 +5.33 0.3.2 ========== *Fixed* @@ -1860,7 +1811,7 @@ File: README.info, Node: 032, Next: 031, Prev: 04, Up: Changelog  File: README.info, Node: 031, Next: 03, Prev: 032, Up: Changelog -5.36 0.3.1 +5.34 0.3.1 ========== *Fixed* @@ -1870,7 +1821,7 @@ File: README.info, Node: 031, Next: 03, Prev: 032, Up: Changelog  File: README.info, Node: 03, Next: 023, Prev: 031, Up: Changelog -5.37 0.3 +5.35 0.3 ======== *Added* @@ -1938,7 +1889,7 @@ File: README.info, Node: 03, Next: 023, Prev: 031, Up: Changelog  File: README.info, Node: 023, Next: 022, Prev: 03, Up: Changelog -5.38 0.2.3 +5.36 0.2.3 ========== *Fixed* @@ -1948,7 +1899,7 @@ File: README.info, Node: 023, Next: 022, Prev: 03, Up: Changelog  File: README.info, Node: 022, Next: 021, Prev: 023, Up: Changelog -5.39 0.2.2 +5.37 0.2.2 ========== *Fixed* @@ -1959,7 +1910,7 @@ File: README.info, Node: 022, Next: 021, Prev: 023, Up: Changelog  File: README.info, Node: 021, Next: 02, Prev: 022, Up: Changelog -5.40 0.2.1 +5.38 0.2.1 ========== *Fixed* @@ -1969,7 +1920,7 @@ File: README.info, Node: 021, Next: 02, Prev: 022, Up: Changelog  File: README.info, Node: 02, Next: 01, Prev: 021, Up: Changelog -5.41 0.2 +5.39 0.2 ======== *Added* @@ -2052,7 +2003,7 @@ File: README.info, Node: 02, Next: 01, Prev: 021, Up: Changelog  File: README.info, Node: 01, Prev: 02, Up: Changelog -5.42 0.1 +5.40 0.1 ======== First tagged release. @@ -2137,90 +2088,88 @@ GPLv3  Tag Table: Node: Top225 -Node: Contents2109 -Node: Screenshots2236 -Node: Installation2354 -Node: Quelpa2868 -Node: Helm support3396 -Node: Usage3799 -Node: Commands4197 -Node: org-ql-find4662 -Node: org-ql-open-link5570 -Node: org-ql-refile6425 -Node: org-ql-search6753 -Node: helm-org-ql8684 -Node: org-ql-view9062 -Node: org-ql-view-sidebar9592 -Node: org-ql-view-recent-items9972 -Node: org-ql-sparse-tree10468 -Node: Queries11268 -Node: Non-sexp query syntax12385 -Node: General predicates14144 -Node: Ancestor/descendant predicates21069 -Node: Date/time predicates22197 -Node: Functions / Macros25321 -Node: Agenda-like views25619 -Ref: Function org-ql-block25781 -Node: Listing / acting-on results27042 -Ref: Caching27250 -Ref: Function org-ql-select28163 -Ref: Function org-ql-query30589 -Ref: Macro org-ql (deprecated)32363 -Node: Custom predicates32678 -Ref: Macro org-ql-defpred32902 -Node: Dynamic block36343 -Node: Links39067 -Node: Tips39754 -Node: Changelog40078 -Node: 09-pre41061 -Node: helm-org-ql (1)41987 -Node: 081042128 -Node: 08942657 -Node: 08843797 -Node: 08744873 -Node: 08646101 -Node: 08546335 -Node: 08446991 -Node: 08347443 -Node: 08247784 -Node: 08148179 -Node: 0848602 -Node: 07451328 -Node: 07351553 -Node: 07252287 -Node: 07153208 -Node: 0754019 -Node: 06356885 -Node: 06257418 -Node: 06157725 -Node: 0658295 -Node: 05261351 -Node: 05161653 -Node: 0562078 -Node: 04963609 -Node: 04863891 -Node: 04764240 -Node: 04664649 -Node: 04565057 -Node: 04465418 -Node: 04365777 -Node: 04265980 -Node: 04166141 -Node: 0466388 -Node: 03270489 -Node: 03170892 -Node: 0371089 -Node: 02374389 -Node: 02274623 -Node: 02174903 -Node: 0275108 -Node: 0179186 -Node: Development79287 -Node: Copyright assignment79520 -Node: Notes80110 -Node: Comparison with Org Agenda searches80274 -Node: org-sidebar81163 -Node: License81442 +Node: Contents2079 +Node: Screenshots2206 +Node: Installation2324 +Node: Quelpa2838 +Node: Helm support3366 +Node: Usage3769 +Node: Commands4167 +Node: org-ql-find4632 +Node: org-ql-open-link5540 +Node: org-ql-refile6395 +Node: org-ql-search6723 +Node: helm-org-ql8654 +Node: org-ql-view9032 +Node: org-ql-view-sidebar9562 +Node: org-ql-view-recent-items9942 +Node: org-ql-sparse-tree10438 +Node: Queries11238 +Node: Non-sexp query syntax12355 +Node: General predicates14114 +Node: Ancestor/descendant predicates21039 +Node: Date/time predicates22167 +Node: Functions / Macros25291 +Node: Agenda-like views25589 +Ref: Function org-ql-block25751 +Node: Listing / acting-on results27012 +Ref: Caching27220 +Ref: Function org-ql-select28133 +Ref: Function org-ql-query30559 +Ref: Macro org-ql (deprecated)32333 +Node: Custom predicates32648 +Ref: Macro org-ql-defpred32872 +Node: Dynamic block36313 +Node: Links39037 +Node: Tips39724 +Node: Changelog40048 +Node: 09-pre41001 +Node: helm-org-ql (1)41785 +Node: 08841926 +Node: 08743005 +Node: 08644233 +Node: 08544467 +Node: 08445123 +Node: 08345575 +Node: 08245916 +Node: 08146309 +Node: 0846730 +Node: 07449456 +Node: 07349681 +Node: 07250415 +Node: 07151336 +Node: 0752147 +Node: 06355013 +Node: 06255546 +Node: 06155853 +Node: 0656423 +Node: 05259479 +Node: 05159781 +Node: 0560206 +Node: 04961737 +Node: 04862019 +Node: 04762368 +Node: 04662777 +Node: 04563185 +Node: 04463546 +Node: 04363905 +Node: 04264108 +Node: 04164269 +Node: 0464516 +Node: 03268617 +Node: 03169020 +Node: 0369217 +Node: 02372517 +Node: 02272751 +Node: 02173031 +Node: 0273236 +Node: 0177314 +Node: Development77415 +Node: Copyright assignment77648 +Node: Notes78238 +Node: Comparison with Org Agenda searches78402 +Node: org-sidebar79291 +Node: License79570  End Tag Table diff --git a/tests/test-org-ql.el b/tests/test-org-ql.el index 923ec66..7618327 100644 --- a/tests/test-org-ql.el +++ b/tests/test-org-ql.el @@ -638,11 +638,6 @@ with keyword arg NOW in PLIST." :to-equal (list :query t :preamble (rx bol (repeat 2 4 "*") " ") :preamble-case-fold t))) - (it "with an expression in level number's place" - (expect (org-ql--query-preamble '(level <= (string-to-number (property "PROPERTY")))) - :to-equal (list :query '(level <= (string-to-number (property "PROPERTY"))) - :preamble nil - :preamble-case-fold t))) (it "<" (expect (org-ql--query-preamble '(level < 3)) :to-equal (list :query t @@ -1344,15 +1339,7 @@ with keyword arg NOW in PLIST." (org-ql-it "with a property and a value" (org-ql-expect ('(property "agenda-group" "plans")) - '("Take over the universe" "Write a symphony"))) - - (org-ql-it "with a property and \"nil :inherit t\"" - (org-ql-expect ('(property "agenda-group" nil :inherit t)) - '("Take over the universe" "Take over the world" "Skype with president of Antarctica" "Take over Mars" "Visit Mars" "Take over the moon" "Visit the moon" "Practice leaping tall buildings in a single bound" "Renew membership in supervillain club" "Learn universal sign language" "Spaceship lease" "Recurring" "/r/emacs" "Shop for groceries" "Sunrise/sunset" "Write a symphony"))) - - (org-ql-it "with a property and \":inherit t\"" - (org-ql-expect ('(property "agenda-group" :inherit t)) - '("Take over the universe" "Take over the world" "Skype with president of Antarctica" "Take over Mars" "Visit Mars" "Take over the moon" "Visit the moon" "Practice leaping tall buildings in a single bound" "Renew membership in supervillain club" "Learn universal sign language" "Spaceship lease" "Recurring" "/r/emacs" "Shop for groceries" "Sunrise/sunset" "Write a symphony")))) + '("Take over the universe" "Write a symphony")))) (describe "(regexp)" @@ -1986,13 +1973,13 @@ with keyword arg NOW in PLIST." (expression-link "[[org-ql-search:todo:?title%3D%28error%20%22UNSAFE%22%29]]")) (it "Errors for a quoted lambda" (expect (open-link quoted-lambda-link) - :to-throw 'error '("CAUTION: Link not opened because unsafe title parameter detected: (lambda (_ _) (error \"UNSAFE\"))"))) + :to-throw 'wrong-type-argument '(characterp lambda))) (it "Errors for an unquoted lambda" (expect (open-link unquoted-lambda-link) - :to-throw 'error '("CAUTION: Link not opened because unsafe title parameter detected: (lambda (_ _) (error \"UNSAFE\"))"))) + :to-throw 'wrong-type-argument '(characterp lambda))) (it "Errors for an expression" (expect (open-link expression-link) - :to-throw 'error '("CAUTION: Link not opened because unsafe title parameter detected: (error \"UNSAFE\")")))) + :to-throw 'wrong-type-argument '(characterp error)))) (describe "sort parameter" :var ((quoted-lambda-link "[[org-ql-search:todo:?sort%3D%28lambda%20%28_%20_%29%20%28error%20%22UNSAFE%22%29%29]]") @@ -2018,7 +2005,7 @@ with keyword arg NOW in PLIST." (describe "View saving/loading" :var* ((temp-dir (make-temp-file "test-org-ql-" 'dir)) (temp-filenames (cl-loop for file in '("test1.org" "test2.org") - collect (abbreviate-file-name (expand-file-name file temp-dir)))) + collect (expand-file-name file temp-dir))) (file-contents (with-temp-buffer (insert "#+TITLE: Test data\n\n" "* TODO Heading 1\n" @@ -2124,21 +2111,31 @@ with keyword arg NOW in PLIST." (describe "Buffers/Files" :var ((query '(and (todo "TODO") (regexp "heading"))) (one-filename (car temp-filenames))) - (it "One filename matches" - (expect (var-after-bookmark-set-and-jump 'org-ql-view-buffers-files one-filename query) - :to-equal one-filename)) - (it "A list of filenames matches" - (expect (var-after-bookmark-set-and-jump 'org-ql-view-buffers-files temp-filenames query) - :to-equal temp-filenames)) - ;; NOTE: These actually bookmark the filenames backing the buffers. - (it "One buffer matches" - (expect (var-after-bookmark-set-and-jump 'org-ql-view-buffers-files - (find-file-noselect (car temp-filenames)) query) - :to-equal one-filename)) - (it "A list of buffers matches" - (expect (var-after-bookmark-set-and-jump 'org-ql-view-buffers-files - (mapcar #'find-file-noselect temp-filenames) query) - :to-equal temp-filenames))))) + ;; NOTE: Inexplicably, on GitHub CI, the filenames are being + ;; abbreviated (i.e. "/home/FOO" is replaced with "~/FOO"); + ;; I can only guess it's something to do with the way the + ;; Emacs instance is built in the Nix images we use there. + ;; So we have to compare the filenames in abbreviated form. + (cl-labels ((filenames-equal-p (a b) + (seq-set-equal-p (mapcar #'abbreviate-file-name a) + (mapcar #'abbreviate-file-name b)))) + (it "One filename matches" + (should (equal (abbreviate-file-name + (var-after-bookmark-set-and-jump 'org-ql-view-buffers-files one-filename query)) + (abbreviate-file-name one-filename)))) + (it "A list of filenames matches" + (should (filenames-equal-p (var-after-bookmark-set-and-jump 'org-ql-view-buffers-files temp-filenames query) + temp-filenames))) + ;; NOTE: These actually bookmark the filenames backing the buffers. + (it "One buffer matches" + (should (equal (abbreviate-file-name + (var-after-bookmark-set-and-jump 'org-ql-view-buffers-files + (find-file-noselect (car temp-filenames)) query)) + (abbreviate-file-name one-filename)))) + (it "A list of buffers matches" + (should (filenames-equal-p (var-after-bookmark-set-and-jump 'org-ql-view-buffers-files + (mapcar #'find-file-noselect temp-filenames) query) + temp-filenames))))))) (describe "Dynamic blocks" (describe "warn about sexp queries"