;; Or with ‘use-package’ and deferred loading:
;;
;; (use-package pelican-mode
-;; :after (:any org rst markdown-mode adoc-mode)
+;; :demand :after (:any org rst markdown-mode adoc-mode)
;; :config
;; (pelican-global-mode))
;;
For more information about Pelican see URL https://blog.getpelican.com/."
:group 'convenience)
-(defcustom pelican-mode-keymap-prefix (kbd "C-c P")
+(defcustom pelican-mode-keymap-prefix (kbd "C-c =")
"Pelican mode keymap prefix."
:group 'pelican
:type 'string)
(defun pelican-make (target)
"Execute TARGET in a Makefile at the root of the site."
(interactive "sMake Pelican target: ")
- (if-let (default-directory (pelican-mode-find-root))
- (compilation-start (format "make %s" target)
- nil (lambda (_) "*pelican*"))
- (user-error "No Pelican site root could be found")))
+ (let ((default-directory (pelican-mode-find-root)))
+ (if default-directory
+ (compilation-start (format "make %s" target)
+ nil (lambda (_) "*pelican*"))
+ (user-error "No Pelican site root could be found"))))
(defun pelican-make-html ()
"Generate HTML via a Makefile at the root of the site."
(provide 'pelican-mode)
;;; pelican-mode.el ends here
-
-\f
-
-;; Local Variables:
-;; sentence-end-double-space: t
-;; End: