[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master ba8a788: Add a <a id=...> skeleton to html-mode
From: |
Lars Ingebrigtsen |
Subject: |
master ba8a788: Add a <a id=...> skeleton to html-mode |
Date: |
Sun, 3 Nov 2019 10:06:41 -0500 (EST) |
branch: master
commit ba8a7882de5bbdb39c9c1d74297a9613aa28463f
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Add a <a id=...> skeleton to html-mode
* lisp/textmodes/sgml-mode.el (html-id-anchor): New skeleton
and keystroke (bug#37651).
---
etc/NEWS | 5 +++++
lisp/textmodes/sgml-mode.el | 8 ++++++++
2 files changed, 13 insertions(+)
diff --git a/etc/NEWS b/etc/NEWS
index 033cb48..e897fe0 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -575,6 +575,11 @@ current and the previous or the next line, as before.
* Changes in Specialized Modes and Packages in Emacs 27.1
+---
+** New HTML mode skeleton 'html-id-anchor'.
+This new command (which inserts an <a id="foo">_</a> skeleton) is
+bound to 'C-c C-c #'.
+
+++
** New command 'font-lock-refontify'.
This is an interactive convenience function to be used when developing
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index d821003..f75ce90 100644
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -1801,6 +1801,7 @@ This takes effect when first loading the library.")
(define-key map "\C-c\C-cl" 'html-list-item)
(define-key map "\C-c\C-ch" 'html-href-anchor)
(define-key map "\C-c\C-cn" 'html-name-anchor)
+ (define-key map "\C-c\C-c#" 'html-id-anchor)
(define-key map "\C-c\C-ci" 'html-image)
(when html-quick-keys
(define-key map "\C-c-" 'html-horizontal-rule)
@@ -1812,6 +1813,7 @@ This takes effect when first loading the library.")
(define-key map "\C-cl" 'html-list-item)
(define-key map "\C-ch" 'html-href-anchor)
(define-key map "\C-cn" 'html-name-anchor)
+ (define-key map "\C-c#" 'html-id-anchor)
(define-key map "\C-ci" 'html-image)
(define-key map "\C-cs" 'html-span))
(define-key map "\C-c\C-s" 'html-autoview-mode)
@@ -1839,6 +1841,7 @@ This takes effect when first loading the library.")
(define-key menu-map "i" '("Image" . html-image))
(define-key menu-map "h" '("Href Anchor" . html-href-anchor))
(define-key menu-map "n" '("Name Anchor" . html-name-anchor))
+ (define-key menu-map "#" '("ID Anchor" . html-id-anchor))
map)
"Keymap for commands for use in HTML mode.")
@@ -2451,6 +2454,11 @@ HTML Autoview mode is a buffer-local minor mode for use
with
(if sgml-xml-mode (concat " id=\"" str "\""))
">" _ "</a>")
+(define-skeleton html-id-anchor
+ "HTML anchor tag with id attribute."
+ "ID: "
+ "<a id=\"" str "\">" _ "</a>")
+
(define-skeleton html-headline-1
"HTML level 1 headline tags."
nil
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master ba8a788: Add a <a id=...> skeleton to html-mode,
Lars Ingebrigtsen <=