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-frame.el | 36 ------------------------------------
 1 file changed, 36 deletions(-)
 delete mode 100644 lisp/acdw-frame.el

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

diff --git a/lisp/acdw-frame.el b/lisp/acdw-frame.el
deleted file mode 100644
index 753fd14..0000000
--- a/lisp/acdw-frame.el
+++ /dev/null
@@ -1,36 +0,0 @@
-;;; acdw-frame.el -*- lexical-binding: t; coding: utf-8-unix -*-
-
-;;; Fonts
-
-(defun acdw/set-first-face-attribute (face font-list)
-  "Set FACE to the first font found in FONT-LIST.
-FONT-LIST is a list of `font-spec' plists to be passed to
-`set-face-attribute'."
-  (cond
-   ((or (null window-system)
-        (null font-list))
-    nil)
-   ((x-list-fonts (or (plist-get (car font-list) :font)
-                      (plist-get (car font-list) :family)))
-    (apply #'set-face-attribute face nil (car font-list)))
-   (t (acdw/set-first-face-attribute face (cdr font-list)))))
-
-(defun acdw/set-emoji-fonts (&rest emoji-fonts)
-  "Add all installed EMOJI-FONTS to the symbol fontset."
-  (let ((ffl (font-family-list)))
-    (dolist (font emoji-fonts)
-      (when (member font ffl)
-        (set-fontset-font t 'symbol
-                          (font-spec :family font) nil 'append)))))
-
-;;; Fringes
-
-(defun acdw/set-fringes (bitmap-list)
-  "Apply multiple fringes at once.
-BITMAP-LIST is a list of arglists passed directly to
-`define-fringe-bitmap', which see."
-  (dolist (bitmap bitmap-list)
-    (apply #'define-fringe-bitmap bitmap))
-  (redraw-frame))
-
-(provide 'acdw-frame)
-- 
cgit 1.4.1-21-gabe81