Config: add lexical-binding: t to all files.
This commit is contained in:
@@ -1,5 +1,8 @@
|
||||
;;; init-org.el
|
||||
;;; -*- lexical-binding: t -*-
|
||||
;;; init-org.el --- org-mode config -*- lexical-binding: t -*-
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(use-package org)
|
||||
|
||||
@@ -263,7 +266,7 @@ See `org-capture-templates' for more information."
|
||||
|
||||
;; 快速部署
|
||||
(defun my-blog-publish ()
|
||||
"publish blog , git add/commit/push , generate commit message"
|
||||
"Publish blog , git add/commit/push , generate commit message."
|
||||
(interactive)
|
||||
(let* ((blog-dir "d:/emacs/hugo/this-is-my-blog/")
|
||||
(timestamp (format-time-string "%Y-%m-%d %H:%M:%S"))
|
||||
@@ -291,11 +294,12 @@ See `org-capture-templates' for more information."
|
||||
|
||||
;; 预览博客
|
||||
(defun my-blog-preview ()
|
||||
"Save and preview blog."
|
||||
(interactive)
|
||||
(save-buffer)
|
||||
(let ((default-directory "d:/emacs/hugo/this-is-my-blog/"))
|
||||
;; 启动 Hugo server
|
||||
(start-process "hugo-server" "*hugo-server*"
|
||||
(start-process "hugo-server" "*hugo-server*"
|
||||
"hugo" "server" "-D" "--bind" "0.0.0.0" "--port" "1313")
|
||||
;; 等待服务器启动
|
||||
(sleep-for 2)
|
||||
@@ -305,3 +309,5 @@ See `org-capture-templates' for more information."
|
||||
(global-set-key (kbd "C-c o v") 'my-blog-preview)
|
||||
|
||||
(provide 'init-org)
|
||||
|
||||
;;; init-org.el ends here
|
||||
|
||||
Reference in New Issue
Block a user