Re: [O] org-date-toggle-inactive

[Bastien]

Bastien b...@altern.org writes:

 Or simply M-up/down on the angle/bracket of the time-stamp.

Er.. that's S-up/down of course.

-- 
 Bastien

[O] org-date-toggle-inactive

[Johan Sandblom]

I wrote the following which allows me ctrl-c-ctrl-c on a date in an org 
file and thereby toggle the inactive state of the date. I find it useful 
when applying to courses that I am later [not] admitted to. Perhaps it 
is useful to someone else. Perhaps also there are obvious improvements 
to the code. Lastly, perhaps there is a better place to submit such 
snippets. I appreciate feedback.


Regards, Johan

(setq org-date-regexp
  [\\[][0-9]\\{4\\}-[0-9][0-9]-[0-9][0-9] [[:alpha:]]\\{2,3\\} 
?.*?[]])


(defun org-at-date-p ()
  Am I inside an org date?
  (interactive)
  (save-excursion
(if (looking-at org-date-regexp)
t
  (if ( (skip-chars-backward -[:alnum:]: ) -40)
  (let ((left (- (point) 1)))
(progn
  (search-backward-regexp [\\[] left t)
(if (looking-at org-date-regexp)
t)))

(defun org-date-toggle-inactive ()
  (interactive)
  (if (org-at-date-p)
  (save-excursion
(progn
  (search-backward-regexp [\\[])
  (if (string-equal  (match-string 0))
  (replace-match [)
(replace-match ))
  (search-forward-regexp []])
  (if (string-equal  (match-string 0))
  (replace-match ])
(replace-match ))
  t))
nil))

(add-hook 'org-ctrl-c-ctrl-c-hook
  'org-date-toggle-inactive)


--
Johan Sandblom, MD PhD
m +46735521477
What is wanted is not the will to believe, but the
will to find out, which is the exact opposite
--Bertrand Russell

Re: [O] org-date-toggle-inactive

[Jonathan Leech-Pepin]

Hello Johan,

On 25 September 2012 14:09, Johan Sandblom j...@ndblom.se wrote:

 I wrote the following which allows me ctrl-c-ctrl-c on a date in an org
 file and thereby toggle the inactive state of the date. I find it useful
 when applying to courses that I am later [not] admitted to. Perhaps it is
 useful to someone else. Perhaps also there are obvious improvements to the
 code. Lastly, perhaps there is a better place to submit such snippets. I
 appreciate feedback.

 Regards, Johan

 (setq org-date-regexp
   [\\[][0-9]\\{4\\}-[0-9][0-9]**-[0-9][0-9] [[:alpha:]]\\{2,3\\}
 ?.*?[]])

 (defun org-at-date-p ()
   Am I inside an org date?
   (interactive)
   (save-excursion
 (if (looking-at org-date-regexp)
 t
   (if ( (skip-chars-backward -[:alnum:]: ) -40)
   (let ((left (- (point) 1)))
 (progn
   (search-backward-regexp [\\[] left t)
 (if (looking-at org-date-regexp)
 t)))

 (defun org-date-toggle-inactive ()
   (interactive)
   (if (org-at-date-p)
   (save-excursion
 (progn
   (search-backward-regexp [\\[])
   (if (string-equal  (match-string 0))
   (replace-match [)
 (replace-match ))
   (search-forward-regexp []])
   (if (string-equal  (match-string 0))
   (replace-match ])
 (replace-match ))
   t))
 nil))

 (add-hook 'org-ctrl-c-ctrl-c-hook
   'org-date-toggle-inactive)


You should be able to just use =org-toggle-timestamp-type=
instead of your snippet.  It performs the check and will toggle
back and forth between active and inactive timestamps.

(add-hook 'org-ctrl-c-ctrl-c-hook
  'org-toggle-timestamp-type)



 --
 Johan Sandblom, MD PhD
 m +46735521477
 What is wanted is not the will to believe, but the
 will to find out, which is the exact opposite
 --Bertrand Russell


Regards,

--
Jon

Re: [O] org-date-toggle-inactive

[Bastien]

Jonathan Leech-Pepin jonathan.leechpe...@gmail.com writes:

 You should be able to just use =org-toggle-timestamp-type=
 instead of your snippet.  It performs the check and will toggle
 back and forth between active and inactive timestamps.

 (add-hook 'org-ctrl-c-ctrl-c-hook
   'org-toggle-timestamp-type)
  

Or simply M-up/down on the angle/bracket of the time-stamp.

-- 
 Bastien