From a2657993bad828af6743c68931a0e848bfcdec53 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sun, 21 Nov 2021 23:57:41 -0600
Subject: I DECLARE BANKRUPTCY ... 8

Didn't think to do this till pretty .. written, so here we are.
---
 lisp/acdw-eww.el | 38 --------------------------------------
 1 file changed, 38 deletions(-)
 delete mode 100644 lisp/acdw-eww.el

(limited to 'lisp/acdw-eww.el')

diff --git a/lisp/acdw-eww.el b/lisp/acdw-eww.el
deleted file mode 100644
index 8e7f42d..0000000
--- a/lisp/acdw-eww.el
+++ /dev/null
@@ -1,38 +0,0 @@
-;;; acdw-eww.el --- EWW customizations -*- lexical-binding: t -*-
-
-(require 'bookmark)
-(require 'eww)
-
-(defun bookmark-eww--make ()
-  "Make eww bookmark record."
-  `((filename . ,(plist-get eww-data :url))
-    (title . ,(plist-get eww-data :title))
-    (time . ,(current-time-string))
-    (handler . ,#'bookmark-eww-handler)
-    (defaults . (,(concat
-                   ;; url without the https and path
-                   (replace-regexp-in-string
-                    "/.*" ""
-                    (replace-regexp-in-string
-                     "\\`https?://" ""
-                     (plist-get eww-data :url)))
-                   " - "
-                   ;; page title
-                   (replace-regexp-in-string
-                    "\\` +\\| +\\'" ""
-                    (replace-regexp-in-string
-                     "[\n\t\r ]+" " "
-                     (plist-get eww-data :title))))))))
-
-
-
-(defun bookmark-eww-handler (bm)
-  "Handler for eww bookmarks."
-  (eww-browse-url (alist-get 'filename bm)))
-
-(defun bookmark-eww--setup ()
-  "Setup eww bookmark integration."
-  (setq-local bookmark-make-record-function #'bookmark-eww--make))
-
-(provide 'acdw-eww)
-;;; acdw-eww.el ends here
-- 
cgit 1.4.1-21-gabe81