[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 01/01: [aa2u] New command: aa2u-mark-rectangle-as-text
From: |
Thien-Thi Nguyen |
Subject: |
[elpa] 01/01: [aa2u] New command: aa2u-mark-rectangle-as-text |
Date: |
Thu, 29 May 2014 09:06:47 +0000 |
ttn pushed a commit to branch master
in repository elpa.
commit 11213155089e10af066994a0670d4debdd5e0713
Author: Thien-Thi Nguyen <address@hidden>
Date: Thu May 29 11:04:37 2014 +0200
[aa2u] New command: aa2u-mark-rectangle-as-text
* packages/ascii-art-to-unicode/ascii-art-to-unicode.el:
Arrange to autoload "rect" for ‘apply-on-rectangle’.
(aa2u-mark-rectangle-as-text): New command, w/ autoload cookie.
---
packages/ascii-art-to-unicode/NEWS | 3 +++
.../ascii-art-to-unicode/ascii-art-to-unicode.el | 18 +++++++++++++++++-
2 files changed, 20 insertions(+), 1 deletions(-)
diff --git a/packages/ascii-art-to-unicode/NEWS
b/packages/ascii-art-to-unicode/NEWS
index 6978fe5..58aa282 100644
--- a/packages/ascii-art-to-unicode/NEWS
+++ b/packages/ascii-art-to-unicode/NEWS
@@ -2,6 +2,9 @@ NEWS for ascii-art-to-unicode.el
See the end for copying conditions.
+- 1.9 | NOT YET RELEASED
+ - new command: ‘aa2u-mark-rectangle-as-text’
+
- 1.8 | 2014-05-21
- new command: ‘aa2u-mark-as-text’
- package keywords added (to help discovery)
diff --git a/packages/ascii-art-to-unicode/ascii-art-to-unicode.el
b/packages/ascii-art-to-unicode/ascii-art-to-unicode.el
index 03f613a..a353c9e 100644
--- a/packages/ascii-art-to-unicode/ascii-art-to-unicode.el
+++ b/packages/ascii-art-to-unicode/ascii-art-to-unicode.el
@@ -81,7 +81,6 @@
;; `aa2u-mark-as-text'. A prefix arg clears the property, instead.
;; (You can use `describe-text-properties' to check.) For example:
;;
-;;
;; ┌───────────────────┐
;; │ │
;; │ |\/| │
@@ -92,6 +91,8 @@
;; │
;; """""""""
;;
+;; Command `aa2u-mark-rectangle-as-text' is similar, for rectangles.
+;;
;;
;; See Also
;; - HACKING:
<http://git.sv.gnu.org/cgit/emacs/elpa.git/tree/packages/ascii-art-to-unicode/HACKING>
@@ -102,6 +103,8 @@
(require 'cl-lib)
(require 'pcase)
+(autoload 'apply-on-rectangle "rect")
+
(defvar aa2u-uniform-weight 'LIGHT
"A symbol, either `LIGHT' or `HEAVY'.
This specifies the weight of all the lines.")
@@ -308,6 +311,19 @@ Prefix arg means to remove property `aa2u-text', instead."
start end
'(aa2u-text t)))
+;;;###autoload
+(defun aa2u-mark-rectangle-as-text (start end &optional unmark)
+ "Like `aa2u-mark-as-text' on the region-rectangle.
+When called from a program the rectangle's corners
+are START (top left) and END (bottom right)."
+ (interactive "r\nP")
+ (apply-on-rectangle
+ (lambda (scol ecol unmark)
+ (let ((p (point)))
+ (aa2u-mark-as-text (+ p scol) (+ p ecol) unmark)))
+ start end
+ unmark))
+
;;;---------------------------------------------------------------------------
;;; that's it