@dev::make-ac-dcl-att

说明:创建

用法:

 (@dev::make-ac-dcl-att)

参数:

返回值:

示例:

(defun @dev::make-ac-dcl-att (/ fp *error* prefix page str-pre
				       str-pre-title qqq)
  (defun *error*(msg)
    (if fp (close fp))
    (if fi (close fi))
    (princ msg))
  (setq file-src (getfiled "要生成 vscode AC 的源文件" (strcat @::*prefix* ".cache/") "org" 8))
  (setq prefix "")(setq qprefix "")
  (setq fi (open file-src "r"))
  (if(> (@::acadver) 24)
      (setq fp (open (strcat @::*prefix* ".cache/snippets." (vl-filename-base file-src) ".json")"w" "utf8"))
    (setq fp (open (strcat @::*prefix* ".cache/snippets." (vl-filename-base file-src) ".json")"w")))
  ;; (write-line chat-title fp)  (write-line "{" fp)
  (setq str-pre-title "")
  (setq body nil)
  (setq str-desc "") (setq page 0)
  (while (setq str-line (read-line fi))
    (cond
     ((= "#+"  (substr str-line 1 2))
      )
     ((= "* " (substr str-line 1 2))
      (cond
       ((and (/= "" str-pre-title)
	     (/= "" str-desc)
	     )
	(princ str-pre-title)
	(setq qqq (@dev::parse-question str-pre-title))
	
	(write-line (strcat  "\"" (car qqq)"\": {") fp)
	(write-line (strcat "\"prefix\" : \"" (car qqq) "\",") fp)
	(write-line (strcat "\"body\": [") fp)
	(write-line (strcat "\""
			    (string:subst-all
			     "\\\"" "\""
			     (strcat (car qqq)
				     "=$1;"))
			    "\"")
		    fp)
	(write-line "],"fp)
	(write-line (strcat
		     "\"description\":"
		     "\""
		     (string:subst-all
		      " " "\n" (string:subst-all
				"\\\"" "\""str-desc))
		     "\"")
		    fp)
	(write-line "}," fp)
	(setq str-pre-title str-line)
	(setq body nil)
	(setq str-desc "")
	)
       (t
	(setq str-pre-title str-line))
       )
      )
     (t
      (if (/= "" (vl-string-trim " " str-line))
	  (if (= "" str-desc)
	      (setq str-desc str-line)
	    (setq str-desc (strcat str-desc "\\n " str-line) )))
      ))
    )
  ;; 写最后一个  (if (and (/= "" str-pre-title)
	   (/= "" str-desc)
	  	   )
      (progn 
	(setq qqq (@dev::parse-question str-pre-title))
    		
	(write-line (strcat  "\"" (strcat (car qqq)"\": {")) fp)
	(write-line (strcat "\"prefix\" : \"" (car qqq) "\",") fp)
	(write-line (strcat "\"body\": [") fp)
	(write-line (strcat "\""(car qqq)
			    "=$1;"
			    "\"")
		    fp)
	(write-line "],"fp)
	(write-line (strcat
		     "\"description\":"
		     "\""
		     (string:subst-all
		      " " "\n" (string:subst-all
				"\\\"" "\""str-desc))
		     "\"")
		    fp)
	(write-line "}" fp)
	(setq str-pre-title str-line)
	(setq str-body "")
	(setq body nil)
	(setq str-desc "")

))
  (write-line "}" fp)
  (close fp)
  (close fi)
  ;;(@::speak "已生成聊天数据库，请到微信对话开放平台导入。")  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@dev::make-ac-dcl-att

上传记录