From ad2e2d2bab15c31b1b9248fbeff20663c9e6e57f Mon Sep 17 00:00:00 2001
From: Jim Myhrberg <contact@jimeh.me>
Date: Mon, 2 May 2022 10:27:26 +0100
Subject: [PATCH] feat(text-editing): add siren-insert module

Defines two functions for inserting en-dash and em-dash characters which
are typically difficult to type directly into Emacs.
---
 core/siren-core-modules.el           |  1 +
 modules/text-editing/siren-insert.el | 21 +++++++++++++++++++++
 2 files changed, 22 insertions(+)
 create mode 100644 modules/text-editing/siren-insert.el

diff --git a/core/siren-core-modules.el b/core/siren-core-modules.el
index 1a0ede2..a8a4fd5 100644
--- a/core/siren-core-modules.el
+++ b/core/siren-core-modules.el
@@ -105,6 +105,7 @@
 
 ;; Text editing
 (require 'siren-expand-region)
+(require 'siren-insert)
 (require 'siren-move-dup)
 (require 'siren-multiple-cursors)
 (require 'siren-randomize-region)
diff --git a/modules/text-editing/siren-insert.el b/modules/text-editing/siren-insert.el
new file mode 100644
index 0000000..72e93e3
--- /dev/null
+++ b/modules/text-editing/siren-insert.el
@@ -0,0 +1,21 @@
+;;; siren-insert.el --- jimeh's Emacs Siren: misc text insert functions
+
+;;; Commentary:
+
+;; Misc text insert functions for characters or text which is normally not easy
+;; to type in Emacs.
+
+;;; Code:
+
+(defun insert-en-dash ()
+  "Insert an en dash (U+2013, –)."
+  (interactive)
+  (insert ?\u2013))
+
+(defun insert-em-dash ()
+  "Insert an em dash (U+2014, —)."
+  (interactive)
+  (insert ?\u2014))
+
+(provide 'siren-insert)
+;;; siren-insert.el ends here