From: DEBRY.Edouard <edouard.debry@mbda-systems.com>
To: Ihor Radchenko <yantar92@posteo.net>
Cc: Edouard Debry <edouard.debry@gmail.com>,
"emacs-orgmode@gnu.org" <emacs-orgmode@gnu.org>
Subject: Re: *** BULK *** Re: How to set priority of a heading with the highest one among its children
Date: Mon, 24 Apr 2023 12:24:29 +0000 [thread overview]
Message-ID: <yu1m354pcvsz.fsf@mbda-systems.com> (raw)
In-Reply-To: <87o7ne321r.fsf@localhost> (Ihor Radchenko's message of "Sun, 23 Apr 2023 18:07:28 +0000")
Here is something working, probably not yet all cases proof
(defun local/set-priority1 ()
(org-with-wide-buffer
(when (org-goto-first-child)
(let ((ls (remove nil (cl-loop collect (local/set-priority1) while (org-goto-sibling)))))
(outline-up-heading 1)
(if ls (org-priority (seq-min ls)))))
(if (eq 'todo (org-element-property :todo-type (org-element-at-point)))
(string-to-number (org-entry-get nil "PRIORITY")))))
(defun local/set-priority2 ()
(save-excursion
(outline-up-heading (- (org-element-property :level (org-element-at-point)) 1))
(local/set-priority1)))
Ihor Radchenko <yantar92@posteo.net> writes:
> -------------------------------------------------------------------------------------------------------------------------------------------------------------------
> Attention, ce courriel provient d'Internet. L'emetteur n'est peut-etre pas celui que vous pensez.
> Merci de considerer ce point en lisant ce courriel, avant d'y repondre, de cliquer sur les liens ou d'ouvrir les pieces jointes.
> -------------------------------------------------------------------------------------------------------------------------------------------------------------------
>
> Edouard Debry <edouard.debry@gmail.com> writes:
>
>> But this involves org skills a bit beyond my understanding, I wonder if you could give
>> me some piece of advices on how to do that :
>> - is there a suitable hook for this function ?
>
> No hook, but you can advice `org-priority' using :after advice.
>
>> - when in a given tree, how can I select the top level heading ?
>
> (while (org-up-heading-safe))
>
> Try to play with this using M-: with point at different headings.
>
>> - when at a given heading, how can I change programmatically the priority ?
>
> (org-priority 1), for example.
>
>> For this latter question, I tried (org-entry-put nil "PRIORITY" "2"), but it replied that
>>
>> org-priority: Priority must be between ‘0’ and ‘5’
>
> That's because `org-entry-put' converts the argument into number,
> assuming a single-character string like "A". This is probably a bug.
___________________________________________________________________________________________________________________________________
This email and any attachments are confidential to the intended recipient and may also be privileged.
If you are not the intended recipient please delete it from your system and notify the sender.
You should not copy it or use it for any purpose nor disclose or distribute its contents to any other person.
Ce courriel et ses pieces-jointes sont envoyes de maniere confidentielle et doivent etre traites avec attention.
Si vous n'etes pas le destinataire, merci de le detruire et d'en informer son auteur.
Vous ne devez pas copier, utiliser, reveler ou diffuser son contenu a quiconque.
next prev parent reply other threads:[~2023-04-24 12:25 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2023-04-20 11:04 How to set priority of a heading with the highest one among its children Edouard Debry
2023-04-23 18:07 ` Ihor Radchenko
2023-04-24 12:24 ` DEBRY.Edouard [this message]
2023-04-24 12:31 ` *** BULK *** " Ihor Radchenko
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=yu1m354pcvsz.fsf@mbda-systems.com \
--to=edouard.debry@mbda-systems.com \
--cc=edouard.debry@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=yantar92@posteo.net \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).