|
|
@@ -328,7 +328,6 @@ nor a function, elements of KEYWORDS are used directly."
|
|
|
(goto-char (match-end (or subexp 0)))
|
|
|
(just-one-space)))
|
|
|
|
|
|
-
|
|
|
(defun org-mouse-keyword-replace-menu (keywords &optional group itemformat
|
|
|
nosurround)
|
|
|
"A helper function.
|
|
|
@@ -394,15 +393,6 @@ DEFAULT is returned if no priority is given in the headline."
|
|
|
(match-string 1)
|
|
|
(when default (char-to-string org-default-priority)))))
|
|
|
|
|
|
-;; (defun org-mouse-at-link ()
|
|
|
-;; (and (eq (get-text-property (point) 'face) 'org-link)
|
|
|
-;; (save-excursion
|
|
|
-;; (goto-char (previous-single-property-change (point) 'face))
|
|
|
-;; (or (looking-at org-bracket-link-regexp)
|
|
|
-;; (looking-at org-angle-link-re)
|
|
|
-;; (looking-at org-plain-link-re)))))
|
|
|
-
|
|
|
-
|
|
|
(defun org-mouse-delete-timestamp ()
|
|
|
"Deletes the current timestamp as well as the preceding keyword.
|
|
|
SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:"
|
|
|
@@ -453,7 +443,6 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:"
|
|
|
["Align Tags in Buffer" (org-set-tags t t) t]
|
|
|
["Set Tags ..." (org-set-tags) t])))
|
|
|
|
|
|
-
|
|
|
(defun org-mouse-set-tags (tags)
|
|
|
(save-excursion
|
|
|
;; remove existing tags first
|
|
|
@@ -484,7 +473,6 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:"
|
|
|
('occur-tree "Occur tree: ")
|
|
|
(t "Agenda command ???")))
|
|
|
|
|
|
-
|
|
|
(defun org-mouse-list-options-menu (alloptions &optional function)
|
|
|
(let ((options (save-match-data
|
|
|
(split-string (match-string-no-properties 1)))))
|
|
|
@@ -570,7 +558,6 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:"
|
|
|
["Plain List to Outline" org-mouse-transform-to-outline
|
|
|
:visible (org-at-item-p)])))
|
|
|
|
|
|
-
|
|
|
(defun org-mouse-get-context (contextlist context)
|
|
|
(let ((contextdata (assq context contextlist)))
|
|
|
(when contextdata
|
|
|
@@ -598,19 +585,16 @@ This means, between the beginning of line and the point."
|
|
|
(open-line 1)
|
|
|
(org-indent-to-column (- (match-end 0) (match-beginning 0)))
|
|
|
(insert "+ "))
|
|
|
-
|
|
|
(:middle ; insert after
|
|
|
(end-of-line)
|
|
|
(newline t)
|
|
|
(indent-relative)
|
|
|
(insert "+ "))
|
|
|
-
|
|
|
(:end ; insert text here
|
|
|
(skip-chars-backward " \t")
|
|
|
(kill-region (point) (point-at-eol))
|
|
|
(unless (org-looking-back org-mouse-punctuation)
|
|
|
(insert (concat org-mouse-punctuation " ")))))
|
|
|
-
|
|
|
(insert text)
|
|
|
(beginning-of-line))
|
|
|
|
|
|
@@ -660,7 +644,6 @@ This means, between the beginning of line and the point."
|
|
|
(progn (save-excursion (goto-char (region-beginning)) (insert "[["))
|
|
|
(save-excursion (goto-char (region-end)) (insert "]]")))]
|
|
|
["Insert Link Here" (org-mouse-yank-link ',event)]))))
|
|
|
-
|
|
|
((save-excursion (beginning-of-line) (looking-at "#\\+STARTUP: \\(.*\\)"))
|
|
|
(popup-menu
|
|
|
`(nil
|
|
|
@@ -871,18 +854,6 @@ This means, between the beginning of line and the point."
|
|
|
(t
|
|
|
(org-mouse-popup-global-menu))))))
|
|
|
|
|
|
-;; (defun org-mouse-at-regexp (regexp)
|
|
|
-;; (save-excursion
|
|
|
-;; (let ((point (point))
|
|
|
-;; (bol (progn (beginning-of-line) (point)))
|
|
|
-;; (eol (progn (end-of-line) (point))))
|
|
|
-;; (goto-char point)
|
|
|
-;; (re-search-backward regexp bol 1)
|
|
|
-;; (and (not (eolp))
|
|
|
-;; (progn (forward-char)
|
|
|
-;; (re-search-forward regexp eol t))
|
|
|
-;; (<= (match-beginning 0) point)))))
|
|
|
-
|
|
|
(defun org-mouse-mark-active ()
|
|
|
(and mark-active transient-mark-mode))
|
|
|
|
Bastien Guerry