D
Size: a a a
2020 March 30
AP
А в чем сакральный смысл тоо, что емакс комментарии (начинающиеся с ;) по жмаканью на энтер переносит прямо на середину документа (или делает каокй-то нереальный отступ)?
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)
)))
)
посмотри доку по with-temp-file
Он автоматом сохраняет и киляет буфер. С ним лучше выйдет
Он автоматом сохраняет и киляет буфер. С ним лучше выйдет
VL
А в чем сакральный смысл тоо, что емакс комментарии (начинающиеся с ;) по жмаканью на энтер переносит прямо на середину документа (или делает каокй-то нереальный отступ)?
комментарии с одной точкой с запятой обычно пишут в конце строки
VL
;; - тот же уровень что и код
AP
комментарии с одной точкой с запятой обычно пишут в конце строки
А как принято временно не нужный код закомментить?
VL
;;;; заглавный комментарий для файла
VL
;;;- гланый комментарий, но менее главный чем ;;;;)
VL
А как принято временно не нужный код закомментить?
Я обычно делаю C-M-SPC M-;
VL
если мы про лисп говорим
VL
в языках без sexp'ов выгоднее по строкам комментить
AP
Я обычно делаю C-M-SPC M-;
Да, прям оно )
VL
C-x C-;
VL
или выделить и C-x C-; или M-;
VL
C-x C-;
это именно comment-line
VL
чтобы удалить коммент можно C-u M-;
AP
C-x C-;
это по умолчанию не задефайнено, а M-; по умолчанию ставит в конце строки, но если выделить - то да, вначале всех строк
DL
Я обычно делаю C-M-SPC M-;
(use-package smart-comment
:ensure t
:bind ("M-;" . smart-comment))
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)
)))
)
закрывающие скобки на отдельную строку переносить не нужно
VL
закрывающие скобки на отдельную строку переносить не нужно
+
забыл сказать)
забыл сказать)