From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp1 ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms11 with LMTPS id wBJ0DrXgA19iPgAA0tVLHw (envelope-from ) for ; Tue, 07 Jul 2020 02:40:53 +0000 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp1 with LMTPS id kE4wCrXgA1+IOwAAbx9fmQ (envelope-from ) for ; Tue, 07 Jul 2020 02:40:53 +0000 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id D9D139404CB for ; Tue, 7 Jul 2020 02:40:51 +0000 (UTC) Received: from localhost ([::1]:34210 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jsdXN-0000BN-5C for larch@yhetil.org; Mon, 06 Jul 2020 22:40:49 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:58834) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1jsdWp-0000BG-RV for emacs-orgmode@gnu.org; Mon, 06 Jul 2020 22:40:15 -0400 Received: from static.214.254.202.116.clients.your-server.de ([116.202.254.214]:55722 helo=ciao.gmane.io) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1jsdWo-0001ng-Cs for emacs-orgmode@gnu.org; Mon, 06 Jul 2020 22:40:15 -0400 Received: from list by ciao.gmane.io with local (Exim 4.92) (envelope-from ) id 1jsdWl-0005UK-1L for emacs-orgmode@gnu.org; Tue, 07 Jul 2020 04:40:11 +0200 X-Injected-Via-Gmane: http://gmane.org/ To: emacs-orgmode@gnu.org From: Nick Dokos Subject: Re: [PATCH] org: add property names from #+PROPERTY keywords to completion list Date: Mon, 06 Jul 2020 22:40:03 -0400 Message-ID: <87k0zgxd30.fsf@alphaville.usersys.redhat.com> References: <87o8osxevq.fsf@alphaville.usersys.redhat.com> Mime-Version: 1.0 Content-Type: text/plain User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) Cancel-Lock: sha1:RKHR9Farrukk7n3L28lN/i5/DQI= Received-SPF: pass client-ip=116.202.254.214; envelope-from=geo-emacs-orgmode@m.gmane-mx.org; helo=ciao.gmane.io X-detected-operating-system: by eggs.gnu.org: First seen = 2020/07/06 22:01:18 X-ACL-Warn: Detected OS = Linux 2.2.x-3.x [generic] [fuzzy] X-Spam_score_int: 30 X-Spam_score: 3.0 X-Spam_bar: +++ X-Spam_report: (3.0 / 5.0 requ) BAYES_00=-1.9, DKIM_ADSP_CUSTOM_MED=0.001, FORGED_GMAIL_RCVD=1, FREEMAIL_FORGED_FROMDOMAIN=1, FREEMAIL_FROM=0.001, FUZZY_DR_OZ=1, HEADER_FROM_DIFFERENT_DOMAINS=1, NML_ADSP_CUSTOM_MED=0.9, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=_AUTOLEARN X-Spam_action: no action X-BeenThere: emacs-orgmode@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: "Emacs-orgmode" X-Scanner: scn0 Authentication-Results: aspmx1.migadu.com; dkim=none; dmarc=fail reason="SPF not aligned (relaxed), No valid DKIM" header.from=gmail.com (policy=none); spf=pass (aspmx1.migadu.com: domain of emacs-orgmode-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=emacs-orgmode-bounces@gnu.org X-Spam-Score: -0.41 X-TUID: JVp3N2e3IL+l Adding a simple test to the previous patch: --8<---------------cut here---------------start------------->8--- >From cae6b5596f69968003c053f53cb45ffb4139a5ad Mon Sep 17 00:00:00 2001 From: Nick Dokos Date: Mon, 6 Jul 2020 21:07:01 -0400 Subject: [PATCH] org: add property names from #+PROPERTY keywords to completion list * lisp/org.el (org-buffer-property-keys): ehhance the completion list with property names from #+PROPERTY keywords, not just property drawers. See https://emacs.stackexchange.com/questions/59448/ for details. --- lisp/org.el | 5 +++++ testing/lisp/test-org.el | 5 +++++ 2 files changed, 10 insertions(+) diff --git a/lisp/org.el b/lisp/org.el index 748c058ca..0e83162e8 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -13084,6 +13084,11 @@ COLUMN formats in the current buffer." (props (append (and specials org-special-properties) (and defaults (cons org-effort-property org-default-properties)) + ;; Get property names from #+PROPERTY keywords as well + (mapcar (lambda (s) + (let ((split (split-string s))) + (nth 0 split))) + (cdar (org-collect-keywords '("PROPERTY")))) nil))) (org-with-wide-buffer (goto-char (point-min)) diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index 3c563f344..ddda96105 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -5352,6 +5352,11 @@ Paragraph" (equal '("A") (org-test-with-temp-text "* H\n:PROPERTIES:\n:A: 1\n:A+: 2\n:END:" (org-buffer-property-keys)))) + ;; Retrieve properties from #+PROPERTY keyword lines + (should + (equal '("A" "C") + (org-test-with-temp-text "#+PROPERTY: C foo\n* H\n:PROPERTIES:\n:A: 1\n:A+: 2\n:END:" + (org-buffer-property-keys)))) ;; With non-nil COLUMNS, extract property names from columns. (should (equal '("A" "B") -- 2.25.4 --8<---------------cut here---------------end--------------->8--- -- Nick "There are only two hard problems in computer science: cache invalidation, naming things, and off-by-one errors." -Martin Fowler