БЕГЕМОТИКОВ МОЖНО! Войти !bnw Сегодня Клубы

Костыль для емакса чтобы в конец буфера вставлялся первый встретившийся выше номер поста или комента (вида #foo/bar).

(defun do-reply-to-post-comment ()
(if (re-search-backward
"^#[0-9a-zA-Z]+\(/[0-9a-zA-Z]+\)?" nil t 1)
(progn
(end-of-buffer)
(insert-buffer-substring-no-properties (current-buffer)
(match-beginning 0) (match-end 0))
(insert " "))
(message "No comments found")))

(defun reply-to-post-comment()
(interactive)
(save-excursion
(do-reply-to-post-comment))
(end-of-buffer))

(global-set-key (kbd "C-c r") 'reply-to-post-comment)

#URWGTT / @ninesigns / 3949 дней назад

удобно
#URWGTT/Y01 / @238328 / 3949 дней назад
@238328 если чо будет глючить сообщай!
#URWGTT/4JX / @ninesigns --> #URWGTT/Y01 / 3949 дней назад
@4da хотел пилить что-то подобное, но я не использую емакс и вообще
#URWGTT/FJ8 / @238328 --> #URWGTT/4JX / 3949 дней назад
ебать сколько бойлерплейта
#URWGTT/MGJ / @krkm / 3949 дней назад
Я бы поюзал, но я использую текстовый редактор (ed), а не емакс.
#URWGTT/2HM / @anonymous / 3949 дней назад
@anonymous inb4: ?
#URWGTT/NUI / @anonymous --> #URWGTT/2HM / 3949 дней назад
@kurkuma погодь щас следующую версию высру.
#URWGTT/4NF / @ninesigns --> #URWGTT/MGJ / 3949 дней назад
@4da не забудь про разметку
#URWGTT/H9Q / @anonymous --> #URWGTT/4NF / 3949 дней назад
@anonymous какую?
#URWGTT/JEX / @ninesigns --> #URWGTT/H9Q / 3949 дней назад
@4da маркдаун бнвачевский
#URWGTT/H9E / @anonymous --> #URWGTT/JEX / 3949 дней назад
@anonymous нахер оно? я делаю чтобы чиста реплаиться на коменты (а не полноценный клиент (пока))
#URWGTT/IZ2 / @ninesigns --> #URWGTT/H9E / 3949 дней назад
@4da Я имею ввиду то, что оп-пост в веб-морде выглядит некрасиво.
#URWGTT/XF8 / @anonymous --> #URWGTT/IZ2 / 3949 дней назад
@anonymous а. ну кстати варик
#URWGTT/72G / @ninesigns --> #URWGTT/XF8 / 3949 дней назад
@4da *markdown поставить?
#URWGTT/SUD / @ninesigns --> #URWGTT/72G / 3949 дней назад
@4da тест1 ```lisp (defun do-reply-to-post-comment () (if (re-search-backward "^#[0-9a-zA-Z]+\\(/[0-9a-zA-Z]+\\)?" nil t 1) (progn (end-of-buffer) (insert-buffer-substring-no-properties (current-buffer) (match-beginning 0) (match-end 0)) (insert " ")) (message "No comments found"))) (defun reply-to-post-comment() (interactive) (save-excursion (do-reply-to-post-comment)) (end-of-buffer)) (global-set-key (kbd "C-c r") 'reply-to-post-comment) ```
#URWGTT/WEW / @anonymous --> #URWGTT/SUD / 3949 дней назад
@4da тест2 (defun do-reply-to-post-comment () (if (re-search-backward "^#[0-9a-zA-Z]+\\(/[0-9a-zA-Z]+\\)?" nil t 1) (progn (end-of-buffer) (insert-buffer-substring-no-properties (current-buffer) (match-beginning 0) (match-end 0)) (insert " ")) (message "No comments found"))) (defun reply-to-post-comment() (interactive) (save-excursion (do-reply-to-post-comment)) (end-of-buffer)) (global-set-key (kbd "C-c r") 'reply-to-post-comment)
#URWGTT/TU3 / @anonymous --> #URWGTT/SUD / 3949 дней назад
@anonymous 4 пробела перед каждой строчкой кода работает в дефолтной морде и мяу, ``` работает только в мяу
#URWGTT/67Q / @anonymous --> #URWGTT/TU3 / 3949 дней назад
@anonymous короч просто ставить 4 пробела и норм?
#URWGTT/NKR / @ninesigns --> #URWGTT/67Q / 3949 дней назад
@4da да
#URWGTT/BN2 / @anonymous --> #URWGTT/NKR / 3949 дней назад
@anonymous тест3 ```lisp (defun do-reply-to-post-comment () (if (re-search-backward "^#[0-9a-zA-Z]+\(/[0-9a-zA-Z]+\)?" nil t 1) (progn (end-of-buffer) (insert-buffer-substring-no-properties (current-buffer) (match-beginning 0) (match-end 0)) (insert " ")) (message "No comments found"))) (defun reply-to-post-comment() (interactive) (save-excursion (do-reply-to-post-comment)) (end-of-buffer)) (global-set-key (kbd "C-c r") 'reply-to-post-comment) ```
#URWGTT/VA3 / @238328 --> #URWGTT/WEW / 3949 дней назад
@238328 ну карочи ты понял, работает везде, просто в мяу с параграфами по-другому
#URWGTT/7A2 / @238328 --> #URWGTT/VA3 / 3949 дней назад
@4da делай лучше в ``` //не лучше, но дунно
#URWGTT/GYJ / @238328 --> #URWGTT/NKR / 3949 дней назад
@anonymous у телетайп вместо монитора и клавиатуры?
#URWGTT/NUS / @ninesigns --> #URWGTT/NUI / 3949 дней назад
Решил не постить исходники второй версии костыля //там чото дохуя вышло.
#URWGTT/NJK / @ninesigns / 3949 дней назад
ipv6 ready BnW для ведрофона BnW на Реформале Викивач Котятки

Цоперайт © 2010-2016 @stiletto.