非IT专业没什么,这个群里有许多大牛都是非IT专业
版面不会排高亮, 先图片, 后文件
输出的结果
类似 没处理前的, 输出
代码文本, 可以高亮啊, 要用 “预格式化” 文本这个功能;; $file_name_list 最终需要 提取出 的 文件名
(defun zzf-test-7 ()
(interactive)
(let ($y $t7
$extension_name_list $window_list $file_name_list)
;; 需要 提取的 文件类型
(setq $extension_name_list
'(".el" ".org" ".html" ".css" ".js" ".php" ".txt"))
;; 当前窗格 中打开的 窗口
(setq $window_list
(cdr (split-string
(mapconcat
(lambda (x)
(format "%S" x))
(window-list) "")
"#") ;
)) ;
(dolist ($y $window_list)
;; 先正则 提取 符合的 文件类型
(when (string-match "\\(\\..*[A-Za-z0-9]\\)" $y)
;; 判断 是否是 需要的 文件类型
(when (member (match-string 1 $y) $extension_name_list)
(push (match-string 1 $y) $t7) ; 这个 测试用
;; 提取文件名
(string-match "\\(on .*>\\)" $y)
(push (substring (match-string 1 $y) 3 (1- (length (match-string 1 $y))))
$file_name_list) ;
) ; when 2
) ; when 1
)
(with-output-to-temp-buffer "*xah temp out*"
(print $file_name_list ) ;
(print $t7 )) ;
))
前面 问时, 主要是想, 有没有这样的
(frame-parameter nil 'name)
直接 就提出来了, 找来找出, 找不到,
难道这种格式
非要, 用 正则, 没有 API 可以直接用吗? 还是像 org-mode 一样,
只有 基本的 API