From b4865c0a2a9dae628e7da36066def7fb96531dc9 Mon Sep 17 00:00:00 2001 From: JSDurand Date: Wed, 5 Jun 2024 17:06:10 +0800 Subject: dashboard: Add entry point for reading novels. --- dashboard.el | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) diff --git a/dashboard.el b/dashboard.el index 8dc698f..393df59 100644 --- a/dashboard.el +++ b/dashboard.el @@ -175,9 +175,20 @@ common functionalities more conveniently." (define-key m (vector ?c) #'dashboard-clear) (define-key m (vector ?C) #'dashboard-org-capture) (define-key m (vector ?p) #'project-switch-project) - (define-key m (vector ?x) #'execute-extended-command)) + (define-key m (vector ?x) #'execute-extended-command) + (define-key m (vector ?n) #'novel)) -;; load Org if not loaded already +;;; Define novel command as a wrapper, if not already loaded + +(cond + ((functionp 'novel)) + (t + (defun novel () + "Load novel package." + (load "/Users/durand/elisp_packages/novel/novel.el" + nil nil t)))) + +;;; load Org if not loaded already (defmacro dashboard-preload (symbol file-to-load) "Define a dispatch function for the symbol." @@ -203,7 +214,7 @@ calls `%s' otherwise." (dashboard-preload org-capture "org-conf.el") (dashboard-preload org-store-link "org-conf.el") -;; ibuffer clear +;;; ibuffer clear (defun dashboard-clear () "Run `durand-ibuffer-clear' while in the dashboard." -- cgit v1.2.3-18-g5258