emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Bastien <bastienguerry@googlemail.com>
To: James TD Smith <ahktenzero@mohorovi.cc>
Cc: emacs-orgmode@gnu.org
Subject: Re: [misc-new-features 3/5] Add an option to sort tags automatically.
Date: Tue, 14 Jul 2009 13:59:11 +0200	[thread overview]
Message-ID: <87bpnnv52j.fsf@bzg.ath.cx> (raw)
In-Reply-To: <1247473682-23338-4-git-send-email-ahktenzero@mohorovi.cc> (James TD Smith's message of "Mon, 13 Jul 2009 09:28:00 +0100")

Thanks James.

Can people try this and give some feedback if they find it useful?

James TD Smith <ahktenzero@mohorovi.cc> writes:

> ---
>  lisp/ChangeLog |    3 +++
>  lisp/org.el    |   17 ++++++++++++++++-
>  2 files changed, 19 insertions(+), 1 deletions(-)
>
> diff --git a/lisp/ChangeLog b/lisp/ChangeLog
> index 348ade3..9ce7a17 100755
> --- a/lisp/ChangeLog
> +++ b/lisp/ChangeLog
> @@ -11,6 +11,9 @@
>  	SINCE_IA. These give the time since any active or inactive
>  	timestamp in an entry.
>  	(org-special-properties): Add SINCE, SINCE_IA.
> +	(org-tags-sort-function): Add custom declaration for tags
> +	sorting function.
> +	(org-set-tags): Sort tags if org-tags-sort-function is set
>  
>  2009-07-08  Carsten Dominik  <carsten.dominik@gmail.com>
>  
> diff --git a/lisp/org.el b/lisp/org.el
> index d08155a..854d09c 100644
> --- a/lisp/org.el
> +++ b/lisp/org.el
> @@ -2337,6 +2337,15 @@ is better to limit inheritance to certain tags using the variables
>  	  (const :tag "Yes, do list them" t)
>  	  (const :tag "List them, indented with leading dots" indented)))
>  
> +(defcustom org-tags-sort-function nil
> +  "When set, tags are sorted using this function as a comparator"
> +  :group 'org-tags
> +  :type '(choice
> +	  (const :tag "No sorting" nil)
> +	  (const :tag "Alphabetical" string<)
> +	  (const :tag "Reverse alphabetical" string>)
> +	  (function :tag "Custom function" nil)))
> +
>  (defvar org-tags-history nil
>    "History of minibuffer reads for tags.")
>  (defvar org-last-tags-completion-table nil
> @@ -10840,11 +10849,17 @@ With prefix ARG, realign all tags in headings in the current buffer."
>  	  ;; No boolean logic, just a list
>  	  (setq tags (replace-match ":" t t tags))))
>  
> +      (if org-tags-sort-function
> +	  (setq tags (mapconcat 'identity
> +				(sort (org-split-string tags (org-re "[^[:alnum:]_@]+"))
> +				      org-tags-sort-function) ":")))
> +
>        (if (string-match "\\`[\t ]*\\'" tags)
> -          (setq tags "")
> +	  (setq tags "")
>  	(unless (string-match ":$" tags) (setq tags (concat tags ":")))
>  	(unless (string-match "^:" tags) (setq tags (concat ":" tags))))
>  
> +
>        ;; Insert new tags at the correct column
>        (beginning-of-line 1)
>        (cond

-- 
 Bastien

  parent reply	other threads:[~2009-07-14  6:10 UTC|newest]

Thread overview: 29+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2009-07-13  8:27 Working on org again James TD Smith
2009-07-13  8:27 ` [misc-new-features 1/5] Add two new special properties, SINCE and SINCE_IA James TD Smith
2009-07-13  8:27   ` [misc-new-features 2/5] Bugfixes, documentation and custom options for org-checklist James TD Smith
2009-07-13  8:28     ` [misc-new-features 3/5] Add an option to sort tags automatically James TD Smith
2009-07-13  8:28       ` [misc-new-features 4/5] Allow org-insert-link to check the X clipboard and the Emacs kill-ring for links, as well as the stored links. This makes getting URLs into org from a browser much easier, as you don't have to paste the URL into the minibuffer to insert a link James TD Smith
2009-07-13  8:28         ` [misc-new-features 5/5] Fix a problem I was having with plots using a script. Org-plot was deleting the data file before gnuplot read it in. I've moved the deletion of the temporary data file to an idle timer, which has fixed the problem James TD Smith
2009-07-13 11:56           ` Bernt Hansen
2009-07-14 11:57           ` Bastien
2009-07-17 17:03           ` Bastien
2009-07-13 11:55         ` [misc-new-features 4/5] Allow org-insert-link to check the X clipboard and the Emacs kill-ring for links, as well as the stored links. This makes getting URLs into org from a browser much easier, as you don't have to paste the URL into the minibuffer to insert a link Bernt Hansen
2009-07-13 12:13           ` [misc-new-features 4/5] extra long subject lines James TD Smith
2009-07-13 15:35             ` Bernt Hansen
2009-07-14 12:07         ` [misc-new-features 4/5] Allow org-insert-link to check the X clipboard and the Emacs kill-ring for links, as well as the stored links. This makes getting URLs into org from a browser much easier, as you don't have to paste the URL into the minibuffer to insert a link Bastien
2009-07-17 17:20         ` Bastien
2009-07-14 11:59       ` Bastien [this message]
2009-07-14 16:01         ` [misc-new-features 3/5] Add an option to sort tags automatically James TD Smith
2009-07-17 17:04           ` Bastien
2009-07-17 16:38       ` Bastien
2009-07-14 12:09     ` [misc-new-features 2/5] Bugfixes, documentation and custom options for org-checklist Bastien
2009-07-14  8:52       ` James TD Smith
2009-08-03 14:47     ` Carsten Dominik
2009-08-03 21:17       ` James TD Smith
2009-07-14 11:48   ` [misc-new-features 1/5] Add two new special properties, SINCE and SINCE_IA Bastien
2009-07-14 17:44     ` James TD Smith
2009-07-17 16:55   ` Bastien
2009-07-17 18:22     ` James TD Smith
2009-07-18  9:35       ` Bastien
2009-08-27 15:50         ` Manish
2009-08-28 17:59           ` James TD Smith

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=87bpnnv52j.fsf@bzg.ath.cx \
    --to=bastienguerry@googlemail.com \
    --cc=ahktenzero@mohorovi.cc \
    --cc=emacs-orgmode@gnu.org \
    /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).