/
vimco.el
239 lines (221 loc) · 8.88 KB
/
vimco.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
;;; vimco.el --- Convert Vim themes to Emacs
;; Copyright (C) 2017, 2020 UwUnyaa
;; This program is free software: you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by the Free
;; Software Foundation, either version 3 of the License, or (at your option)
;; any later version.
;;
;; This program is distributed in the hope that it will be useful, but WITHOUT
;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
;; more details.
;;
;; You should have received a copy of the GNU General Public License along
;; with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; This file defines a vim to emacs theme converter. It should be used through
;; an interactive function `vimco-convert-vim-theme', which assumes vim themes
;; are located in "~/.vim/colors".
;;
;; There's no reason to have this file loaded in Emacs at all times, so it can
;; loaded with `load-file' or evaluated with `eval-buffer'.
;;
;; This code is based on code from
;; <https://github.com/zphr/vim-theme-converter.el>
(require 'cl-lib)
(require 'pp)
(defconst vimco-repo-link
"https://github.com/UwUnyaa/vimco"
"Link to the repository that holds this file.")
(defvar vimco-temp-file (concat temporary-file-directory "vimco")
"Path to temporary file used by `vimco'.")
(defvar vimco-face-name-alist
'(("Normal" default)
("Cursor" cursor)
("CursorLine" highline-face)
("Visual" region)
("StatusLine" mode-line mode-line-buffer-id) ; minibuffer-prompt
("StatusLineNC" mode-line-inactive)
("LineNr" linum fringe)
("MatchParen" show-paren-match-face)
("Search" isearch)
("IncSearch" isearch-lazy-highlight-face)
("Comment" font-lock-comment-face font-lock-doc-face)
("Statement" font-lock-builtin-face)
("Function" font-lock-function-name-face)
("Keyword" font-lock-keyword-face)
("String" font-lock-string-face)
("Type" font-lock-type-face)
("Identifier" font-lock-variable-name-face)
("Constant" font-lock-constant-face)
("Error" font-lock-warning-face)
("PreProc" font-lock-preprocessor-face)
("Underlined" underline)
("Directory" dired-directory)
("Pmenu" ac-candidate-face)
("PmenuSel" ac-selection-face)
("SpellBad" flyspell-incorrect)
("SpellRare" flyspell-duplicate)))
(defvar vimco-attribute-alist
'(("bold" :weight bold)
;; ("standout" . ) ; I have no idea what this one is supposed to do
("underline" :underline t)
("undercurl" :underline (:style wave))
("reverse" :inverse-video t)
("inverse" :inverse-video t)
("italic" :slant italic)))
;;; Code:
(defun vimco-separate-newline (&rest lines)
"Helper function to join LINES with newlines."
(mapconcat #'identity lines "\n"))
(defun vimco-get-lines ()
"Return an alist of line beginning and end characters."
(let (prev-line lines)
(goto-char (point-min))
(setq prev-line (point))
(while (/= (forward-line) 1)
(push (cons prev-line (- (point) 1)) lines)
(setq prev-line (point)))
(nreverse lines)))
(defun vimco-parse-line (region)
"Parse substring from characters in cons REGION into an alist.
REGION which should look like (beg . end), where both are
character numbers. Empty properties have cdr set to nil."
(let ((beg (car region))
(end (cdr region)))
(mapcar (lambda (word)
(if (string-match "=" word)
(let ((data (split-string word "=" t)))
(cons (car data) (cadr data)))
(cons word nil)))
(split-string (buffer-substring-no-properties beg end) " " t))))
(defun vimco-line-to-faces (line)
"Transforms LINE into a list of face definitions.
LINE should be an alist returned by `vimco-parse-line'."
(cl-flet ((get-prop (prop) (cdr (assoc prop line))))
(let ((face-names (cdr (assoc (caar line) vimco-face-name-alist))))
(when face-names
(let ((foreground (get-prop "guifg"))
(background (get-prop "guibg"))
(attributes (or (get-prop "gui")
(get-prop "term")
(get-prop "cterm")))
faces face-attributes)
;; replace "NONE" with nil
(mapc
(lambda (prop)
(let ((value (symbol-value prop)))
(when (and value
(string-equal value "NONE"))
(set prop nil))))
'(foreground background attributes))
;; turn attributes into a list
(when attributes
(setq attributes
(let (new-attributes)
(mapc
(lambda (attribute)
(setq attribute
(cdr (assoc attribute vimco-attribute-alist)))
(when attribute
(setq new-attributes
(append attribute new-attributes))))
(split-string attributes "," t))
new-attributes)))
;; turn foreground and background into proper lists
(mapc
(lambda (symbol)
(let ((value (symbol-value symbol)))
(when value
(set symbol
`(,(intern (format ":%s" symbol)) ,value)))))
'(foreground background))
;; put everything into a single plist
(mapc
(lambda (attribute)
(when attribute
(setq face-attributes
(append face-attributes attribute))))
(list attributes background foreground))
;; make face definitions
(mapc
(lambda (face)
(push
`'(,face ((((class color) (min-colors 89))
(,@face-attributes))))
faces))
face-names)
faces)))))
(defun vimco-convert-theme (file theme)
"Create a buffer FILE converted into an Emacs theme called THEME.
FILE should be a path to a Vim theme."
(let* ((theme-name (intern theme))
(theme-file (format "%s-theme.el" theme-name))
(buffer (get-buffer-create theme-file)))
(switch-to-buffer buffer)
(delete-region (point-min) (point-max))
;; switch to `emacs-lisp-mode' for nice syntax highlighting
(emacs-lisp-mode)
(insert
(vimco-separate-newline
;; comments at the beginning of a file
(format ";;; %s --- Custom face theme for Emacs\n" theme-file)
";; This theme was generated with vimco.el"
";; You can get it from:"
(format ";; <%s>\n" vimco-repo-link)
";;; Code:\n"
;; code
(pp-to-string `(deftheme ,theme-name))
(with-temp-buffer
(insert-file-contents-literally file)
(pp-to-string
`(custom-theme-set-faces
',theme-name
,@(let (faces)
(mapc
(lambda (line)
(let ((face-specifications
(vimco-line-to-faces (vimco-parse-line line))))
(when face-specifications
(setq faces (append face-specifications faces)))))
(vimco-get-lines))
faces))))
(pp-to-string `(provide-theme ',theme-name))
;; set file variables so the theme won't get compiled
(concat ";; Local" " Variables:")
;; previous line is split up like this, because emacs otherwise tries to
;; interpret file local variables and spits out error messages
";; no-byte-compile: t"
";; End:\n"))))
(defun vimco-convert-vim-theme (theme-name)
"Convert vim theme THEME-NAME into an Emacs theme."
(interactive
(list (completing-read
"Theme name: "
(mapcar
#'file-name-sans-extension
(directory-files "~/.vim/colors" nil "\\.vim$")))))
(let (file-name)
(call-process (executable-find "vim") nil nil nil
"-u" "NONE"
"-c"
(vimco-separate-newline
":set columns=3000"
(format ":colorscheme %s" theme-name)
(format ":redir > %s" vimco-temp-file)
":highlight"
":redir END"
":q"))
(vimco-convert-theme vimco-temp-file theme-name)
(delete-file vimco-temp-file)
(when (called-interactively-p 'interactive)
(let ((theme-file (format "%s-theme.el" theme-name)))
(write-file (concat
(expand-file-name
(read-directory-name
(format
"Directory to save %s in: " theme-file)
"~/.emacs.d/"))
theme-file))))))
(provide 'vimco)
;;; vimco.el ends here