remove

2 files changed, 0 insertions, 87 deletions

diff --git a/bard-elisp/bard-dashboard.el b/bard-elisp/bard-dashboard.el
deleted file mode 100644
index 567ad50..0000000
--- a/bard-elisp/bard-dashboard.el
+++ /dev/null
@@ -1,55 +0,0 @@
- (defun dashboard-insert-custom (list-size)
-	"Insert custom itemes LIST-SIZE."
-	(interactive)
-	(insert "  TODOs (A)   Cal: (c) ♪ Music: (m)   Mail: (M)   Emacs: (e)"))
-
-(add-hook 'dashboard-mode-hook
-          (lambda()
-            (define-key dashboard-mode-map (kbd "A") #'(lambda ()(interactive)(org-agenda nil "D")))
-            ;; FIXME look at browse url for explanation
-            ;; (define-key global-map (kbd "g") #')
-            (define-key dashboard-mode-map (kbd "c") #'calendar)
-            (define-key dashboard-mode-map (kbd "M") #'notmuch)
-            (define-key dashboard-mode-map (kbd "e") #'(lambda ()(interactive)(dired user-emacs-directory)))
-            (define-key dashboard-mode-map (kbd "m") #'(lambda ()(interactive)(emms)))
-            ))
-
-(defvar dashboard-recover-layout-p nil
-  "Whether recovers the layout.")
-
-(defun open-dashboard ()
-  "Open the *dashboard* buffer and jump to the first widget."
-  (interactive)
-  (setq dashboard-recover-layout-p t)
-  (delete-other-windows)
-  (dashboard-refresh-buffer)
-  (dashboard-goto-recent-files))
-
-(defun quit-dashboard ()
-  "Quit dashboard window."
-  (interactive)
-  (quit-window t)
-  (when (and dashboard-recover-layout-p
-             (bound-and-true-p winner-mode))
-    (winner-undo)
-    (setq dashboard-recover-layout-p nil)))
-
-;; TODO replace with browse-url librewolf that opens to localhost new tab
-;; (defun bard/open-librewolf ()
-;;   (interactive)
-;;   (if (string-match "\\`bardiel" system-name)
-;;     (async-shell-command "librewolf-bin"))
-;;   '(async-shell-command "librewolf"))
-
-;; TODO replace this with browse-url that opens to localhost new tab
-;; (defun bard/open-firefox ()
-;;   (interactive)
-;;   (if (string-match "\\`bardiel" system-name)
-;;     (async-shell-command "firefox-bin"))
-;;   '(async-shell-command "firefox"))
-
-;; FIXME browse-url-librewolf is incomplete
-;; (defun bard/open-user-github ()
-;;   (browse-url-librewolf 'user-github-url))
-
-(provide 'bard-dashboard)
diff --git a/bard-emacs-modules/bard-emacs-dashboard.el b/bard-emacs-modules/bard-emacs-dashboard.el
deleted file mode 100644
index 87f9044..0000000
--- a/bard-emacs-modules/bard-emacs-dashboard.el
+++ /dev/null
@@ -1,32 +0,0 @@
-(require 'bard-dashboard)
-
-(use-package dashboard
-  :ensure t
-  :config
-  (define-key global-map (kbd "<home>") #'dashboard-open)
-  (define-key global-map (kbd "C-z d") #'dashboard-open)
-  (setq initial-buffer-choice 'dashboard-open)
-  (dashboard-setup-startup-hook)
-  (setq dashboard-startup-banner "~/.emacs.d/img/emacslogo.png")
-  (setq dashboard-banner-logo-width 50)
-  (setq dashboard-banner-logo-height 50)
-  (setq dashboard-center-content t)
-  ;; dashboar items
-  (setq dashboard-items '((recents   . 5)
-			  (agenda . 5)))
-
-  ;; Insert custom item
-  (add-to-list 'dashboard-item-generators  '(custom . dashboard-insert-custom))
-  (add-to-list 'dashboard-items '(custom) t)
-
-  (setq dashboard-banner-logo-title "Time for another recreational programming session.")
-  (setq dashboard-startupify-list '(dashboard-insert-banner
-				    dashboard-insert-newline
-				    dashboard-insert-banner-title
-				    dashboard-insert-newline
-				    dashboard-insert-items
-				    dashboard-insert-newline))
-
-  (setq dashboard-set-init-info nil))
-
-(provide 'bard-emacs-dashboard)