From 2f29030adb3291ca3479247a2078dcdf60f87b2e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?tr=C3=A9meur?= <eheu48@gmail.com>
Date: Tue, 2 Aug 2022 19:54:03 +0100
Subject: [PATCH] Add snippets and functions for linking to DW/AO3 users

---
 custom/dwuser.el          | 29 +++++++++++++++++++++++++++++
 snippets/org-mode/ao3user |  4 ++++
 2 files changed, 33 insertions(+)
 create mode 100644 custom/dwuser.el
 create mode 100644 snippets/org-mode/ao3user

diff --git a/custom/dwuser.el b/custom/dwuser.el
new file mode 100644
index 0000000..52eb490
--- /dev/null
+++ b/custom/dwuser.el
@@ -0,0 +1,29 @@
+(defun dwuser ()
+  (interactive)
+  (setq theuser (read-string "DW username: "))
+  (insert (concat "<span style=\"white-space: nowrap;\" class=\"ljuser\"><a href=\"https://" theuser ".dreamwidth.org/profile\"><img src=\"https://www.dreamwidth.org/img/silk/identity/user.png\" alt=\"[personal profile]\" width=\"17\" height=\"17\" style=\"vertical-align: text-bottom; border: 0; padding-right: 1px;\" /></a><a href=\"https://" theuser ".dreamwidth.org/\"><b>" theuser "</b></a></span>")))
+
+(defun dwcomm ()
+  (interactive)
+  (setq theuser (read-string "DW comm name: "))
+  (insert (concat "<span style=\"white-space: nowrap;\" class=\"ljuser\"><a href=\"https://" theuser ".dreamwidth.org/profile\"><img src=\"https://www.dreamwidth.org/img/silk/identity/community.png\" alt=\"[community profile]\" width=\"17\" height=\"17\" style=\"vertical-align: text-bottom; border: 0; padding-right: 1px;\" /></a><a href=\"https://" theuser ".dreamwidth.org/\"><b>" theuser "</b></a></span>")))
+
+(defun ao3user ()
+  (interactive)
+  (setq theuser (read-string "AO3 username: "))
+  (insert (concat "<span style=\"white-space: nowrap;\" class=\"ljuser\"><a href=\"https://archiveofourown.org/users/" theuser "/profile\"><img src=\"https://p.dreamwidth.org/b164c54b26e4/-/archiveofourown.org/favicon.ico\" alt=\"[archiveofourown.org profile]\" width=\"16\" height=\"16\" style=\"vertical-align: text-bottom; border: 0; padding-right: 1px;\" /></a><a href=\"https://archiveofourown.org/users/" theuser "\"><b>" theuser "</b></a></span>")))
+
+(defun ao3safe-dwuser ()
+  (interactive)
+  (setq theuser (read-string "DW username: "))
+  (insert (concat "<a href=\"https://" theuser ".dreamwidth.org/profile\" rel=\"nofollow\"><img src=\"https://www.dreamwidth.org/img/silk/identity/user.png\" width=\"17\" height=\"17\" /></a><b><a href=\"https://" theuser ".dreamwidth.org\" rel=\"nofollow\">" theuser "</a></b>")))
+
+(defun ao3safe-dwcomm ()
+  (interactive)
+  (setq theuser (read-string "DW comm name: "))
+  (insert (concat "<a href=\"https://" theuser ".dreamwidth.org/profile\" rel=\"nofollow\"><img src=\"https://www.dreamwidth.org/img/silk/identity/community.png\" width=\"17\" height=\"17\" /></a><b><a href=\"https://" theuser ".dreamwidth.org\" rel=\"nofollow\">" theuser "</a></b>")))
+
+(defun ao3safe-ao3user ()
+  (interactive)
+  (setq theuser (read-string "AO3 username: "))
+  (insert (concat "<a href=\"https://archiveofourown.org/users/" theuser "/profile\" rel=\"nofollow\"><img src=\"https://p.dreamwidth.org/b164c54b26e4/-/archiveofourown.org/favicon.ico\" width=\"16\" height=\"16\" /></a><b><a href=\"https://archiveofourown.org/users/" theuser "\" rel=\"nofollow\">" theuser "</a></b>")))
diff --git a/snippets/org-mode/ao3user b/snippets/org-mode/ao3user
new file mode 100644
index 0000000..3fdfd81
--- /dev/null
+++ b/snippets/org-mode/ao3user
@@ -0,0 +1,4 @@
+# name: ao3-user
+# key: ao3user
+# --
+@@html:<user name="$1" site="ao3">@@$0
\ No newline at end of file