emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] [patch] org-delete-indentation


From: Rasmus
Subject: [O] [patch] org-delete-indentation
Date: Sat, 16 May 2015 17:34:20 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/25.0.50 (gnu/linux)

Hi,

Due to recent controversy about Org being lacking Microsoftesque detail I
finally implemented org-delete-indentation, which is a function I have
been missing forever.

It only behaves differently from delete-indentation at headlines where it
add stuff to the headline text.  It is at least what I would expect.

Examples:

  * foo :tag:
  bar|
=> (org-delete-indentation)
  * foo bar :tag:

  * foo | :tag:
   bar
=> (org-delete-indentation t)
   * foo bar :tag:

—Rasmus

-- 
With monopolies the cake is a lie!
>From ef242f5d599d4888cdf57e1f6a65db8406626499 Mon Sep 17 00:00:00 2001
From: Rasmus <address@hidden>
Date: Sat, 16 May 2015 17:19:03 +0200
Subject: [PATCH 2/2] org.el: New function org-delete-indentation

* org.el (org-delete-indentation): New function.
  (org-mode-map): Bind org-delete-indentation to M-^.
* test-org.el (test-org-delete-indentation): Test org-delete-indentation.
* ORG-NEWS: Add entry on org-delete-indentation.
---
 etc/ORG-NEWS             |  3 +++
 lisp/org.el              | 25 +++++++++++++++++++++++++
 testing/lisp/test-org.el | 28 ++++++++++++++++++++++++++++
 3 files changed, 56 insertions(+)

diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index a3e1ae2..91e30f8 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -377,6 +377,9 @@ for details.
 Calling ~org-edit-footnote-reference~ (C-c ') on a footnote reference
 allows to edit its definition, as long as it is not anonymous, in
 a dedicated buffer.  It works even if buffer is currently narrowed.
+*** New function ~org-delete-indentation~ bound to ~M-^~
+Work as ~delete-indentation~ unless at heading, in which case text is
+added to headline text.
 ** Miscellaneous
 *** Strip all meta data from ITEM special property
 ITEM special property does not contain TODO, priority or tags anymore.
diff --git a/lisp/org.el b/lisp/org.el
index 93183f9..f30c25c 100755
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -19832,6 +19832,7 @@ boundaries."
 (org-defkey org-mode-map [remap comment-dwim] 'org-comment-dwim)
 (org-defkey org-mode-map [remap forward-paragraph] 'org-forward-paragraph)
 (org-defkey org-mode-map [remap backward-paragraph] 'org-backward-paragraph)
+(org-defkey org-mode-map "\M-^"     'org-delete-indentation)
 (org-defkey org-mode-map "\C-m"     'org-return)
 (org-defkey org-mode-map "\C-j"     'org-return-indent)
 (org-defkey org-mode-map "\C-c?"    'org-table-field-info)
@@ -21159,6 +21160,30 @@ This command does many different things, depending on 
context:
     (let ((org-note-abort t))
       (funcall org-finish-function))))
 
+(defun org-delete-indentation (&optional ARG)
+  "Join this line to previous and fix up whitespace at join.
+
+If previous row is a headline add to headline text."
+  (interactive "*P")
+  (if (save-excursion (if ARG
+                         (beginning-of-line)
+                       (forward-line -1))
+                     (looking-at org-complex-heading-regexp))
+      ;; At headline.
+      (let ((string (concat " " (prog2 (and ARG (forward-line 1))
+                                   (org-trim (delete-and-extract-region 
(line-beginning-position)
+                                                                        
(line-end-position)))))))
+       (when (eq (preceding-char) ?\n) (delete-region (point) (1- (point))))
+       (goto-char (or (match-beginning 5)
+                      (match-end 0)))
+       (skip-chars-backward " \t")
+       (when (and (match-beginning 5)
+                  (< (+ (point) (length string))
+                     (match-beginning 5)))
+         (delete-region (point) (+ (point) (length string))))
+       (save-excursion (insert string)))
+    (delete-indentation ARG)))
+
 (defun org-open-line (n)
   "Insert a new row in tables, call `open-line' elsewhere.
 If `org-special-ctrl-o' is nil, just call `open-line' everywhere."
diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el
index ecfece5..a241f26 100644
--- a/testing/lisp/test-org.el
+++ b/testing/lisp/test-org.el
@@ -833,6 +833,34 @@
 
 ;;; Editing
 
+(ert-deftest test-org-delete-indentation ()
+  "Test M-^ (`org-delete-indentation') specification."
+  ;; Regular test.
+  (should (equal "foo bar"
+               (org-test-with-temp-text
+                   "foo \n bar<point>"
+                 (org-delete-indentation)
+                 (buffer-string))))
+  ;; With optional argument.
+  (should (equal "foo bar"
+               (org-test-with-temp-text
+                   "foo<point> \n bar"
+                 (org-delete-indentation t)
+                 (buffer-string))))
+  ;; At headline text should be appended to the headline text.
+  (should
+   (equal "* foo bar :tag:"
+         (org-test-with-temp-text
+             "* foo :tag:\n bar<point>"
+           (org-delete-indentation)
+           (buffer-string))))
+  (should
+   (equal "* foo bar :tag:"
+         (org-test-with-temp-text
+             "* foo <point>:tag:\n bar"
+           (org-delete-indentation t)
+           (buffer-string)))))
+
 (ert-deftest test-org/return ()
   "Test RET (`org-return') specifications."
   ;; Regular test.
-- 
2.4.0


reply via email to

[Prev in Thread] Current Thread [Next in Thread]