Мохнатые уроды и моральные пёзды. Войти !bnw Сегодня Клубы

посоны, есть у кого плагин для бнв под емакс? а если аккаунт на гитхабе спрошу и найду?

#E4ZSK5 / @hirthwork / 2630 дней назад

https://github.com/rayslava/emacs-point-el sed'ом я думаю допилить сможешь, если в емаксе всё ещё редактор не завезли
#E4ZSK5/MM7 / @anonymous / 2630 дней назад

@anonymous анончик, ты чё, издеваешься? ты думаешь я программист штоле? мне ГОТОВОЕ РЕШЕНИЕ нужно

#E4ZSK5/EZW / @hirthwork --> #E4ZSK5/MM7 / 2630 дней назад
@hirthwork ну так напиши в треде в своём пидорахоинт.им опу, он за бутылку пива тебе всё решит
#E4ZSK5/36Q / @anonymous --> #E4ZSK5/EZW / 2630 дней назад

@hirthwork ```
(defvar last-comins-begin -1)
(defvar last-comins-end -1)
(defvar comment-search-count 1)

(defun is-ro-at-pt(where)
(member 'read-only (text-properties-at where)))

(defun find-readonly-end ()
(save-excursion
(end-of-buffer)
(let ((curpos (point)))
(while (and (not (is-ro-at-pt curpos))
(> curpos 0))
(setq curpos (previous-property-change curpos)))
curpos)))

(defun do-reply-to-post-comment ()
(if (eq last-command 'reply-to-post-comment)
(setq comment-search-count (+ 1 comment-search-count ))
(setq comment-search-count 1))

(let ((re (find-readonly-end)))
(if (is-ro-at-pt (point))
;; we might be on comment. jump to the next space sym
(progn (re-search-forward "\ ")
(goto-char (match-beginning 0)))
;; start searching from editable space (to avoid counting pasted commend)
(goto-char re))

(if (re-search-backward 
     "^#[0-9a-zA-Z]+\\(/[0-9a-zA-Z]+\\)?" nil t comment-search-count)
    (progn
      (when (> comment-search-count 1)
        (delete-region last-comins-begin last-comins-end))
      (end-of-buffer)
      (goto-char (+ 4 re)) ;; in jabber-el editable space begins 4 symbols starting from regions border (don't know why)
      (setq last-comins-begin (point))
      (setq last-comins-end (+ 1 (point) (- (match-end 0) 
                                            (match-beginning 0))))
      (insert-buffer-substring-no-properties (current-buffer)
                                             (match-beginning 0) 
                                             (match-end 0))
      (insert " "))
  (message "No comments found"))))

(defun reply-to-post-comment()
"Searches above the point for comment(post) #foo123/bar1 and
places it in the beginning of editable region. Further
invocations cause the insertion of farther comments."
(interactive)
(save-excursion
(do-reply-to-post-comment))
(end-of-buffer))

(provide 'comment-el)
```

ну и еще эти костылики на макросах, лень перепиливать
```
(fset 'juick-show-post
(lambda (&optional arg) "Keyboard macro." (interactive "p") (kmacro-exec-ring-item (quote ([67108896 134217830 134217847 134217790 25 43 13] 0 "%d")) arg)))

(fset 'juick-reply-post
(lambda (&optional arg) "Keyboard macro." (interactive "p") (kmacro-exec-ring-item (quote ([67108896 134217830 134217847 134217790 25 32] 0 "%d")) arg)))

(fset 'juick-reply-comment
(lambda (&optional arg) "Keyboard macro." (interactive "p") (kmacro-exec-ring-item (quote ([67108896 134217830 134217830 134217847 134217790 25 32] 0 "%d")) arg)))
```

#E4ZSK5/M9O / @ninesigns --> #E4ZSK5/EZW / 2630 дней назад

@ninesigns всякие point.el в рот ебал, говно какое-то

#E4ZSK5/SMA / @ninesigns --> #E4ZSK5/M9O / 2630 дней назад

@ninesigns пасяб, черкашик. соточек тебе

#E4ZSK5/JMA / @hirthwork --> #E4ZSK5/M9O / 2630 дней назад
ipv6 ready BnW для ведрофона BnW на Реформале Викивач Котятки

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