本文共计4448个字，预计阅读时长17.8分钟。
;;; web-novel.el --- 网文创作助手 -*- lexical-binding: t -*-
;; Author: 猫叔
;; Version: 2.3
;; Package-Requires: ((emacs "25.1"))
;; Keywords: tools, writing
;;; Commentary:
;; 网文创作辅助工具，提供创作建议和写作指导
;;; Code:
(require 'cl-lib)
(defgroup web-novel nil
"网文创作助手配置组"
:group 'tools
:prefix "web-novel-")
(defcustom web-novel-default-type '玄幻
"默认创作类型"
:type '(choice (const :tag "玄幻" 玄幻)
(const :tag "都市" 都市)
(const :tag "科幻" 科幻)
(const :tag "仙侠" 仙侠))
:group 'web-novel)
(cl-defstruct (web-novel-config (:constructor web-novel-config-create)
(:copier nil))
(类型 web-novel-default-type)
(章节长度 7000)
(更新频率 "每日")
(目标读者 "年轻读者")
(写作风格 '(幽默 俏皮 流畅)))
(defconst web-novel-writer-profile
'((风格 . (幽默 俏皮 流畅))
(技能 . (对话 情节 段落))
(视角 . (上帝 全知 客观))
(特点 . (简洁 多行 互动))
(创作经验 . (读者分析 情节设计 人物塑造)))
"网文作家基础属性配置")
(defconst web-novel-writing-strategies
'((可操作性 . ((章节高潮 . "每章设置明确转折点")
(段落结构 . "短句多换行增加可读性")
(对话驱动 . "以对话推进情节发展")))
(逻辑性 . ((情节衔接 . "场景转换自然流畅")
(铺垫递进 . "避免突兀的情节转折")
(场景设计 . "每个场景都服务于剧情")))
(层次感 . ((内容丰富 . "避免重复，创造支线")
(场景描写 . "简洁而富有画面感")
(情节递进 . "主副线合理交织")))
(表达技巧 . ((用词简洁 . "现代表达，减少修饰")
(情感描写 . "准确传达人物情绪")
(互动冲突 . "增加人物立体感"))))
"写作策略配置")
(defconst web-novel-stop-words
'("的" "了" "而" "和" "与" "在" "是" "这" "那" "就" "都" "要")
"停用词列表")
(defun web-novel-extract-keywords (text)
"提取文本中的关键词"
(when (stringp text)
(let ((words (split-string text "[ \t\n\r]+" t)))
(cl-remove-if (lambda (word)
(or (member word web-novel-stop-words)
(< (length word) 2)))
words))))
(defun web-novel-analyze-type (type)
"分析创作类型特征"
(cond ((eq type '玄幻) '(奇幻 超能力 修炼))
((eq type '都市) '(现实 职场 感情))
((eq type '科幻) '(未来 科技 想象))
((eq type '仙侠) '(修仙 武功 江湖))
(t '(通用 基础))))
(defun web-novel-analyze-reader-preference (text &optional type)
"分析读者偏好"
(when (stringp text)
(let ((keywords (web-novel-extract-keywords text))
(type-features (web-novel-analyze-type type)))
(append keywords type-features))))
(defun web-novel-design-narrative (content &optional length)
"设计叙述策略"
(let ((base-length (or length 3000)))
`((总字数 . ,base-length)
(分段数 . ,(max 3 (/ base-length 500)))
(段落建议 . "保持段落简短清晰")
(叙述手法 . "以对话为主，穿插描写"))))
(defun web-novel-optimize-structure (content)
"优化文章结构"
(when (stringp content)
(let ((paragraphs (split-string content "\n\n" t)))
(mapcar (lambda (p)
(if (> (length p) 100)
(concat (substring p 0 100) "...")
p))
paragraphs))))
(defun web-novel-create-writing-guide (input &optional type length)
"生成写作指导建议"
(when (stringp input)
(let* ((config (web-novel-config-create))
(preferences (web-novel-analyze-reader-preference input type))
(narrative (web-novel-design-narrative input length))
(structure (web-novel-optimize-structure input))
(guide `((读者偏好 . ,preferences)
(叙述策略 . ,narrative)
(结构优化 . ,structure)
(写作建议 . ,web-novel-writing-strategies))))
(web-novel-save-guide guide)
guide)))
(defun web-novel-save-guide (guide)
"保存写作指导到文件"
(when guide
(let ((file (expand-file-name "web-novel-guide.el"
user-emacs-directory)))
(with-temp-file file
(let ((print-length nil)
(print-level nil))
(pp guide (current-buffer)))))))
(defun web-novel-load-guide ()
"加载历史写作指导"
(let ((file (expand-file-name "web-novel-guide.el"
user-emacs-directory)))
(when (file-exists-p file)
(with-temp-buffer
(insert-file-contents file)
(condition-case nil
(read (current-buffer))
(error nil))))))
;;;###autoload
(defun web-novel-start ()
"启动网文创作助手"
(interactive)
(let ((guide (web-novel-load-guide)))
(message "网文创作助手已启动")
(when guide
(message "发现历史写作记录"))))
(provide 'web-novel)
;;; web-novel.el ends here
TAGS
文案写作Prompt
