From 42c531e6c74d9e91dbddd120a5ebe359f195599c Mon Sep 17 00:00:00 2001
From: noa
Date: Sun, 16 Feb 2025 22:08:05 +0800
Subject: Add alternative browse-url function to email pages to myself

---
 emacs/init.el | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'emacs')

diff --git a/emacs/init.el b/emacs/init.el
index 6f1f41f..2cb8681 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -974,6 +974,11 @@ With prefix argument TIME, also add the current time."
            (common-lisp-hyperspec-root "file:///usr/share/doc/hyperspec/"))
   :mode ((rx (or ".lisp" ".cl") eos) . common-lisp-mode))
 
+;; Write url to text file
+(defvar noa/record-url-file "~/Documents/Library/urls")
+(defun noa/record-url (url &rest args)
+  "An alternative browser function that appends the url to a file.  We do not pay attention to any arguments."
+  (write-region (concat url "\n") nil noa/record-url-file 'append))
 
 (defvar note/directory "~/Documents/Notes"
   "The directory in which notes are stored.")
-- 
cgit 1.4.1-2-gfad0