From 5f9df8b8c6790c98831f7dc6a262fda9f84aefa8 Mon Sep 17 00:00:00 2001 From: BardofSprites <89086143+BardofSprites@users.noreply.github.com> Date: Sun, 29 Sep 2024 20:57:46 -0400 Subject: remove --- bard-elisp/bard-dashboard.el | 55 ------------------------------ bard-emacs-modules/bard-emacs-dashboard.el | 32 ----------------- 2 files changed, 87 deletions(-) delete mode 100644 bard-elisp/bard-dashboard.el delete mode 100644 bard-emacs-modules/bard-emacs-dashboard.el 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 "") #'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) -- cgit v1.2.3