VL
(use-package smart-comment
:ensure t
:bind ("M-;" . smart-comment))
а он автоматом секспы комментит?
Size: a a a
2020 March 30
DL
а он автоматом секспы комментит?
не обращал внимания
DL
Нужна критика, советы и предложения. Написал скрипт создания директории для контестов по спортивному программированию, но вышло как-то громоздко
(defun start-olymp ()
(interactive)
(letrec ((name (read-string "Olymp's name: " "Opencups/"))
(olymp-dir (concat "~/Codes/olymp/" name "/"))
(how-many (string-to-number (read-string "How many tasks: " "13")))
(suffix "-olymp.cpp")
(input "input.txt")
(output "output.txt")
(template "~/.emacs.d/template.cpp") ; template for olympiads
(start-char (string-to-char "A"))
)
(progn
;; creating olymp directory if not exists
(unless (file-exists-p olymp-dir)
(make-directory olymp-dir))
;; creating in-out files
(find-file (concat olymp-dir input))
(save-buffer (concat olymp-dir input))
(find-file (concat olymp-dir output))
(save-buffer (concat olymp-dir output))
;; creating buffers for task files
(dotimes (i how-many)
(find-file (concat olymp-dir (char-to-string (+ i start-char)) suffix))
(when (eq 1 (point-max))
(insert-file-contents template nil))
(save-buffer)
)))
)
темплейты я бы использовал встроенные, типа auto-insert
DL
а
(concat olymp-dir input) и подобное лучше в let завернутьVL
Нужна критика, советы и предложения. Написал скрипт создания директории для контестов по спортивному программированию, но вышло как-то громоздко
(defun start-olymp ()
(interactive)
(letrec ((name (read-string "Olymp's name: " "Opencups/"))
(olymp-dir (concat "~/Codes/olymp/" name "/"))
(how-many (string-to-number (read-string "How many tasks: " "13")))
(suffix "-olymp.cpp")
(input "input.txt")
(output "output.txt")
(template "~/.emacs.d/template.cpp") ; template for olympiads
(start-char (string-to-char "A"))
)
(progn
;; creating olymp directory if not exists
(unless (file-exists-p olymp-dir)
(make-directory olymp-dir))
;; creating in-out files
(find-file (concat olymp-dir input))
(save-buffer (concat olymp-dir input))
(find-file (concat olymp-dir output))
(save-buffer (concat olymp-dir output))
;; creating buffers for task files
(dotimes (i how-many)
(find-file (concat olymp-dir (char-to-string (+ i start-char)) suffix))
(when (eq 1 (point-max))
(insert-file-contents template nil))
(save-buffer)
)))
)
еще progn лишний
VL
(use-package smart-comment
:ensure t
:bind ("M-;" . smart-comment))
я просто смотрел его и не счел полезным)
строку закомментить можно и C-x C-;
строку закомментить можно и C-x C-;
DL
ещё вместо concat лучше юзать
expand-file-nameDL
я просто смотрел его и не счел полезным)
строку закомментить можно и C-x C-;
строку закомментить можно и C-x C-;
а раскомментить?
S
походу дальше только худеть конфигом, если что и везде ну и переносы строк жрет
VL
а раскомментить?
C-x C-; раскоменчивает
DL
C-x C-; раскоменчивает
хз, имхо проще M-; для всего, я уже привык и хз как раньше без этого плагина жил
VL
Наверное ты прав)
DL
Нужна критика, советы и предложения. Написал скрипт создания директории для контестов по спортивному программированию, но вышло как-то громоздко
(defun start-olymp ()
(interactive)
(letrec ((name (read-string "Olymp's name: " "Opencups/"))
(olymp-dir (concat "~/Codes/olymp/" name "/"))
(how-many (string-to-number (read-string "How many tasks: " "13")))
(suffix "-olymp.cpp")
(input "input.txt")
(output "output.txt")
(template "~/.emacs.d/template.cpp") ; template for olympiads
(start-char (string-to-char "A"))
)
(progn
;; creating olymp directory if not exists
(unless (file-exists-p olymp-dir)
(make-directory olymp-dir))
;; creating in-out files
(find-file (concat olymp-dir input))
(save-buffer (concat olymp-dir input))
(find-file (concat olymp-dir output))
(save-buffer (concat olymp-dir output))
;; creating buffers for task files
(dotimes (i how-many)
(find-file (concat olymp-dir (char-to-string (+ i start-char)) suffix))
(when (eq 1 (point-max))
(insert-file-contents template nil))
(save-buffer)
)))
)
ещё строковые литералы, и особенно пути/имена, вынести из функции в defcustom-ы
VL
Нужна критика, советы и предложения. Написал скрипт создания директории для контестов по спортивному программированию, но вышло как-то громоздко
(defun start-olymp ()
(interactive)
(letrec ((name (read-string "Olymp's name: " "Opencups/"))
(olymp-dir (concat "~/Codes/olymp/" name "/"))
(how-many (string-to-number (read-string "How many tasks: " "13")))
(suffix "-olymp.cpp")
(input "input.txt")
(output "output.txt")
(template "~/.emacs.d/template.cpp") ; template for olympiads
(start-char (string-to-char "A"))
)
(progn
;; creating olymp directory if not exists
(unless (file-exists-p olymp-dir)
(make-directory olymp-dir))
;; creating in-out files
(find-file (concat olymp-dir input))
(save-buffer (concat olymp-dir input))
(find-file (concat olymp-dir output))
(save-buffer (concat olymp-dir output))
;; creating buffers for task files
(dotimes (i how-many)
(find-file (concat olymp-dir (char-to-string (+ i start-char)) suffix))
(when (eq 1 (point-max))
(insert-file-contents template nil))
(save-buffer)
)))
)
вместо dotimes я бы заюзал loop, тк логика более сложная
VL
Как-то так
(loop for c from ?A upto (+ ?A how-many))DL
(make-directory DIR &optional PARENTS), можно просто указать parents non-nil, тогда даже проверять на существование не надоPG
Нужна критика, советы и предложения. Написал скрипт создания директории для контестов по спортивному программированию, но вышло как-то громоздко
(defun start-olymp ()
(interactive)
(letrec ((name (read-string "Olymp's name: " "Opencups/"))
(olymp-dir (concat "~/Codes/olymp/" name "/"))
(how-many (string-to-number (read-string "How many tasks: " "13")))
(suffix "-olymp.cpp")
(input "input.txt")
(output "output.txt")
(template "~/.emacs.d/template.cpp") ; template for olympiads
(start-char (string-to-char "A"))
)
(progn
;; creating olymp directory if not exists
(unless (file-exists-p olymp-dir)
(make-directory olymp-dir))
;; creating in-out files
(find-file (concat olymp-dir input))
(save-buffer (concat olymp-dir input))
(find-file (concat olymp-dir output))
(save-buffer (concat olymp-dir output))
;; creating buffers for task files
(dotimes (i how-many)
(find-file (concat olymp-dir (char-to-string (+ i start-char)) suffix))
(when (eq 1 (point-max))
(insert-file-contents template nil))
(save-buffer)
)))
)
Про with-temp-file уже написали
(defcustom olymp-default-directory
"~/Codes/olymp/Opencups/"
"🤔"
:group 'emacs
:type 'file)
(defun start-olymp (&optional olymp-dir how-many)
(interactive
(list
(read-file-name "Olymp's name: " t olymp-default-directory nil)
(read-number "How many tasks: " 13)))
...)
DL
D
Вау, спасибо вам всем!
G(
@greenest_pig, а можно твой конфиг глянуть?