diff options
Diffstat (limited to 'bard-elisp')
| -rw-r--r-- | bard-elisp/bard-dashboard.el | 104 | ||||
| -rw-r--r-- | bard-elisp/bard-eshell.el | 2 | ||||
| -rw-r--r-- | bard-elisp/bard-modeline.el | 2 | ||||
| -rw-r--r-- | bard-elisp/bard-search.el | 2 |
4 files changed, 56 insertions, 54 deletions
diff --git a/bard-elisp/bard-dashboard.el b/bard-elisp/bard-dashboard.el index 9c6b3b2..fe222cf 100644 --- a/bard-elisp/bard-dashboard.el +++ b/bard-elisp/bard-dashboard.el @@ -1,55 +1,55 @@ - (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 () +;; (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) -;; (if (string-match "\\`bardiel" system-name) -;; (async-shell-command "librewolf-bin")) -;; '(async-shell-command "librewolf")) +;; (setq dashboard-recover-layout-p t) +;; (delete-other-windows) +;; (dashboard-refresh-buffer) +;; (dashboard-goto-recent-files)) -;; TODO replace this with browse-url that opens to localhost new tab -;; (defun bard/open-firefox () +;; (defun quit-dashboard () +;; "Quit dashboard window." ;; (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) +;; (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-elisp/bard-eshell.el b/bard-elisp/bard-eshell.el index 856bd55..0a2f9c5 100644 --- a/bard-elisp/bard-eshell.el +++ b/bard-elisp/bard-eshell.el @@ -79,4 +79,4 @@ open the directory in a `dired' buffer." ((not in-eshellp) (switch-to-buffer (car buffers))) (t (select-or-create (completing-read "Select Shell:" (cons "New eshell" names))))))) -(provide 'bard-eshell.el) +(provide 'bard-eshell) diff --git a/bard-elisp/bard-modeline.el b/bard-elisp/bard-modeline.el index df6944f..d870418 100644 --- a/bard-elisp/bard-modeline.el +++ b/bard-elisp/bard-modeline.el @@ -554,4 +554,4 @@ Specific to the current window's mode line.") prot-modeline-misc-info)) (put construct 'risky-local-variable t)) -(provide 'bard-modeline.el) +(provide 'bard-modeline) diff --git a/bard-elisp/bard-search.el b/bard-elisp/bard-search.el index 949a9d1..dbea35f 100644 --- a/bard-elisp/bard-search.el +++ b/bard-elisp/bard-search.el @@ -46,3 +46,5 @@ (run-hooks 'prot-search-outline-hook))) (define-key global-map (kbd "M-s M-o") #'prot-search-outline) + +(provide 'bard-search) |