comparison lisp/org/org-mouse.el @ 99139:8fa7ef477c04

2008-10-26 Carsten Dominik <[e-mail]> * org-agenda.el (org-format-agenda-item) (org-agenda-filter-make-matcher): Make sure tags are stored and compared donwcased. 2008-10-26 Carsten Dominik <[e-mail]> * org.el (org-insert-todo-heading): Fix bug with force-heading argument. 2008-10-26 Carsten Dominik <[e-mail]> * org-exp.el (org-export-as-ascii): Handle the case that we are bulishing from an indirect buffer. * org-table.el (org-table-copy-down): Fix bug with time stamp increment. * org-mouse.el (org-mouse-features): New option. (org-mode-hook): Turn on features depending on `org-mouse-features'. * org.el (org-insert-heading-respect-content): Force heading creation. (org-insert-heading): keep the folding state of the heading before the inserted one. 2008-10-26 Carsten Dominik <[e-mail]> * org-archive.el (org-archive-to-archive-sibling): Handle top level headlines better. 2008-10-26 Bastien Guerry <[e-mail]> * org-export-latex.el (org-export-latex-classes): Added \usepackage{graphicx} to the default list of packages. 2008-10-26 Carsten Dominik <[e-mail]> * org-agenda.el (org-agenda-filter): Renamed from `org-agenda-filter-tags'. 2008-10-26 Carsten Dominik <[e-mail]> * org.el (org-entry-properties): Add CATEGORY property, iven if it is not defined as a property in this entry. (org-add-log-note): Mask prefix argument when immediately storing the note. * org-agenda.el (org-agenda-filter-effort-default-operator): New option. 2008-10-26 James TD Smith <[e-mail]> * org.el (org-add-log-setup): Bugfix; code to find insertion point after drawers was skipping ahead one line too many, so notes were inserted after the first note instead of before it. 2008-10-26 Carsten Dominik <[e-mail]> * org-agenda.el (org-agenda-filter-tags,org-agenda-filter-form): New variables. (org-prepare-agenda): Reset the filter tags. (org-agenda-filter-by-tag, org-agenda-filter-by-tag-show-all): Show filter tags in mode line. * org-table.el (orgtbl-to-html): Bind `html-table-tag' for the formatter. * org-export-latex.el (org-latex-entities-regexp): New constant. (org-export-as-pdf): Use two calls to `shell-command'. 2008-10-26 Carsten Dominik <[e-mail]> * org-export-latex.el (org-export-latex-treat-sub-super-char): Honor the {} value of the subsuperscript setting. Make sure that longer subsuperscripts are typeset in a roman font. * org.el (org-clock-update-time-maybe): Compute negative clock intervals correctly. 2008-10-26 Carsten Dominik <[e-mail]> * org.el (org-add-log-setup): Respect `org-log-state-notes-insert-after-drawers'. (org-log-state-notes-insert-after-drawers): New option. (org-todo-trigger-tag-changes): New function. (org-todo): Call `org-todo-trigger-tag-changes'. 2008-10-26 James TD Smith <[e-mail]> * org.el (org-add-log-setup): Only skip drawers if the are immediately after the scheduling keywords. * org-clock.el (org-clock-in-switch-to-state): Allow this to be a function (org-clock-in): If `org-clock-in-switch-to-state' is a function, call it with the current todo state to get the state to switch to when clocking in. (org-clock-in): Use org-indent-line-function to indent clock lines. (org-clock-find-position): Fix indentation of empty clock drawers. 2008-10-26 Carsten Dominik <[e-mail]> * org-publish.el (org-publish-org-to): Handle case when org-export-to-pdf does return a file name, not a buffer. (org-publish-org-to-pdf): New function. * org-export-latex.el (org-export-as-pdf) (org-export-as-pdf-and-open): New commands. * org-table.el (org-table-eval-formula): Avoid parsing Calc's HMS forms as ranges. * org-export-latex.el (org-export-latex-lists): Ignore lists-like things in protexted regions. 2008-10-26 Carsten Dominik <[e-mail]> * org-export-latex.el (org-export-latex-preprocess): Improve quoting of LaTeX environments.

99138:a479c7f4849d

;; Copyright (C) 2006, 2007, 2008 Free Software Foundation
;;
;; Author: Piotr Zielinski <piotr dot zielinski at gmail dot com>
;; Maintainer: Carsten Dominik <carsten at orgmode dot org>
;; Version: 6.09a
;;
;; This file is part of GNU Emacs.
;;
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

(defcustom org-mouse-punctuation ":"
  "Punctuation used when inserting text by drag and drop."
  :group 'org-mouse
  :type 'string)


(defun org-mouse-re-search-line (regexp)
  "Search the current line for a given regular expression."
  (beginning-of-line)
  (re-search-forward regexp (point-at-eol) t))

   (loop for priority from ?A to org-lowest-priority
	 collect (char-to-string priority)))

(defun org-mouse-tag-menu ()		;todo
  (append
   (let ((tags (org-split-string (org-get-tags) ":")))
     (org-mouse-keyword-menu
      (sort (mapcar 'car (org-get-buffer-tags)) 'string-lessp)
      `(lambda (tag)
	 (org-mouse-set-tags
	  (sort (if (member tag (quote ,tags))

(add-hook 'org-mode-hook
  '(lambda ()
     (setq org-mouse-context-menu-function 'org-mouse-context-menu)

;     (define-key org-mouse-map [follow-link] 'mouse-face)
     (define-key org-mouse-map (if (featurep 'xemacs) [button3] [mouse-3]) nil)
     (define-key org-mode-map [mouse-3] 'org-mouse-show-context-menu)
     (define-key org-mode-map [down-mouse-1] 'org-mouse-down-mouse)
     (define-key org-mouse-map [C-drag-mouse-1] 'org-mouse-move-tree)
     (define-key org-mouse-map [C-down-mouse-1] 'org-mouse-move-tree-start)
     (define-key org-mode-map [S-mouse-2] 'org-mouse-yank-link)
     (define-key org-mode-map [drag-mouse-3] 'org-mouse-yank-link)
     (define-key org-mouse-map [drag-mouse-3] 'org-mouse-move-tree)
     (define-key org-mouse-map [down-mouse-3] 'org-mouse-move-tree-start)

     (font-lock-add-keywords nil
	`((,outline-regexp
	   0 `(face org-link mouse-face highlight keymap ,org-mouse-map)
	   'prepend)
	  ("^[ \t]*\\([-+*]\\|[0-9]+[.)]\\) +"
	   (1 `(face org-link keymap ,org-mouse-map mouse-face highlight) 'prepend))
	  ("^[ \t]*\\([-+*]\\|[0-9]+[.)]\\) +\\(\\[[ X]\\]\\)"
	   (2 `(face bold keymap ,org-mouse-map mouse-face highlight) t)))
 	t)

     (defadvice org-open-at-point (around org-mouse-open-at-point activate)
       (let ((context (org-context)))
	 (cond
	  ((assq :headline-stars context) (org-cycle))

99139:8fa7ef477c04

;; Copyright (C) 2006, 2007, 2008 Free Software Foundation
;;
;; Author: Piotr Zielinski <piotr dot zielinski at gmail dot com>
;; Maintainer: Carsten Dominik <carsten at orgmode dot org>
;; Version: 6.10c
;;
;; This file is part of GNU Emacs.
;;
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

(defcustom org-mouse-punctuation ":"
  "Punctuation used when inserting text by drag and drop."
  :group 'org-mouse
  :type 'string)

(defcustom org-mouse-features
  '(context-menu yank-link activate-stars activate-bullets activate-checkboxes)
  "The features of org-mouse that should be activated.
Changing this variable requires a restart of Emacs to get activated."
  :group 'org-mouse
  :type '(set :greedy t
	      (const :tag "Mouse-3 shows context menu" context-menu)
	      (const :tag "C-mouse-1 and mouse-3 move trees" move-tree)
	      (const :tag "S-mouse-2 and drag-mouse-3 yank link" yank-link)
	      (const :tag "Activate headline stars" activate-stars)
	      (const :tag "Activate item bullets" activate-bullets)
	      (const :tag "Activate checkboxes" activate-checkboxes)))	      

(defun org-mouse-re-search-line (regexp)
  "Search the current line for a given regular expression."
  (beginning-of-line)
  (re-search-forward regexp (point-at-eol) t))

   (loop for priority from ?A to org-lowest-priority
	 collect (char-to-string priority)))

(defun org-mouse-tag-menu ()		;todo
  (append
   (let ((tags (org-get-tags)))
     (org-mouse-keyword-menu
      (sort (mapcar 'car (org-get-buffer-tags)) 'string-lessp)
      `(lambda (tag)
	 (org-mouse-set-tags
	  (sort (if (member tag (quote ,tags))

(add-hook 'org-mode-hook
  '(lambda ()
     (setq org-mouse-context-menu-function 'org-mouse-context-menu)

     (when (memq 'context-menu org-mouse-features)
       (define-key org-mouse-map (if (featurep 'xemacs) [button3] [mouse-3]) nil)
       (define-key org-mode-map [mouse-3] 'org-mouse-show-context-menu))
     (define-key org-mode-map [down-mouse-1] 'org-mouse-down-mouse)
     (when (memq 'context-menu org-mouse-features)
       (define-key org-mouse-map [C-drag-mouse-1] 'org-mouse-move-tree)
       (define-key org-mouse-map [C-down-mouse-1] 'org-mouse-move-tree-start))
     (when (memq 'yank-link org-mouse-features)
       (define-key org-mode-map [S-mouse-2] 'org-mouse-yank-link)
       (define-key org-mode-map [drag-mouse-3] 'org-mouse-yank-link))
     (when (memq 'move-tree org-mouse-features)
       (define-key org-mouse-map [drag-mouse-3] 'org-mouse-move-tree)
       (define-key org-mouse-map [down-mouse-3] 'org-mouse-move-tree-start))

     (when (memq 'activate-stars org-mouse-features)
       (font-lock-add-keywords
	nil
	`((,outline-regexp
	   0 `(face org-link mouse-face highlight keymap ,org-mouse-map)
	   'prepend))
 	t))

     (when (memq 'activate-bullets org-mouse-features)
       (font-lock-add-keywords
	nil
	`(("^[ \t]*\\([-+*]\\|[0-9]+[.)]\\) +"
	   (1 `(face org-link keymap ,org-mouse-map mouse-face highlight)
	      'prepend)))
 	t))

     (when (memq 'activate-checkboxes org-mouse-features)
       (font-lock-add-keywords
	nil
	`(("^[ \t]*\\([-+*]\\|[0-9]+[.)]\\) +\\(\\[[ X]\\]\\)"
	   (2 `(face bold keymap ,org-mouse-map mouse-face highlight) t)))
 	t))

     (defadvice org-open-at-point (around org-mouse-open-at-point activate)
       (let ((context (org-context)))
	 (cond
	  ((assq :headline-stars context) (org-cycle))