[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ascii-art-to-unicode 9b97434 22/42: [aa2u] New command:
From: |
Stefan Monnier |
Subject: |
[elpa] externals/ascii-art-to-unicode 9b97434 22/42: [aa2u] New command: aa2u-mark-rectangle-as-text |
Date: |
Sun, 29 Nov 2020 18:57:06 -0500 (EST) |
branch: externals/ascii-art-to-unicode
commit 9b97434759f612c547f97cec1cb5f7bd9fa7f1f9
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>
[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.
---
NEWS | 3 +++
ascii-art-to-unicode.el | 18 +++++++++++++++++-
2 files changed, 20 insertions(+), 1 deletion(-)
diff --git a/NEWS b/NEWS
index 6978fe5..58aa282 100644
--- a/NEWS
+++ b/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/ascii-art-to-unicode.el b/ascii-art-to-unicode.el
index 03f613a..a353c9e 100644
--- a/ascii-art-to-unicode.el
+++ b/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
- [elpa] externals/ascii-art-to-unicode dfc56c7 18/42: [aa2u int] Add abstraction: gsr, (continued)
- [elpa] externals/ascii-art-to-unicode dfc56c7 18/42: [aa2u int] Add abstraction: gsr, Stefan Monnier, 2020/11/29
- [elpa] externals/ascii-art-to-unicode c25476c 19/42: [aa2u] New command: aa2u-mark-as-text, Stefan Monnier, 2020/11/29
- [elpa] externals/ascii-art-to-unicode b9fcf21 21/42: [aa2u maint] Mention TAB infelicity in HACKING; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/ascii-art-to-unicode 01635f7 07/42: [aa2u int] Add "Tip Jar" URL in Commentary; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/ascii-art-to-unicode 1de2351 09/42: [aa2u int] Compute vertical/horizontal components separately., Stefan Monnier, 2020/11/29
- [elpa] externals/ascii-art-to-unicode 1dd85cc 10/42: [aa2u] Make weight dynamically customizable., Stefan Monnier, 2020/11/29
- [elpa] externals/ascii-art-to-unicode 9ab9dbc 03/42: [aa2u] Release: 1.5, Stefan Monnier, 2020/11/29
- [elpa] externals/ascii-art-to-unicode c6fac9c 12/42: fixup! [aa2u] Make weight dynamically customizable., Stefan Monnier, 2020/11/29
- [elpa] externals/ascii-art-to-unicode 770d0eb 13/42: ascii-art-to-unicode.el (aa2u-replacement): Use cl-case instead of case., Stefan Monnier, 2020/11/29
- [elpa] externals/ascii-art-to-unicode 5e2eb49 16/42: [aa2u maint] Add ‘Maintainer’ header per top-level README; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/ascii-art-to-unicode 9b97434 22/42: [aa2u] New command: aa2u-mark-rectangle-as-text,
Stefan Monnier <=
- [elpa] externals/ascii-art-to-unicode 507bf63 29/42: [aa2u slog] Handle ‘ucs-names’ that returns a hash table., Stefan Monnier, 2020/11/29
- [elpa] externals/ascii-art-to-unicode 461be39 31/42: [aa2u slog] Fix botched bifurcation., Stefan Monnier, 2020/11/29
- [elpa] externals/ascii-art-to-unicode c6c696d 33/42: [aa2u maint] Add Kaushal Modi to THANKS; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/ascii-art-to-unicode 6990a31 35/42: [aa2u maint] Update years in copyright notice; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/ascii-art-to-unicode 9ad8a5f 37/42: [aa2u] Mention ‘DOUBLE’ in ‘aa2u-uniform-weight’ docstring., Stefan Monnier, 2020/11/29
- [elpa] externals/ascii-art-to-unicode a09ace3 39/42: [aa2u] Handle modern ‘ucs-names’ being a hash table., Stefan Monnier, 2020/11/29
- [elpa] externals/ascii-art-to-unicode 1b5a928 38/42: [aa2u] Release: 1.12, Stefan Monnier, 2020/11/29
- [elpa] externals/ascii-art-to-unicode 83ec71a 41/42: [aa2u] Release: 1.13, Stefan Monnier, 2020/11/29
- [elpa] externals/ascii-art-to-unicode 4e95135 17/42: [aa2u] Declare package keywords., Stefan Monnier, 2020/11/29
- [elpa] externals/ascii-art-to-unicode f7de720 20/42: [aa2u] Release: 1.8, Stefan Monnier, 2020/11/29