УМННБJ, ЯХВ. Войти !bnw Сегодня Клубы
Господа емаксеры, вы же наверняка напиздячили некую надстройку над jabber-mode, или вообще что-то свое для работы с bnw. Как это вообще у вас выглядит? Желательно с описанием идеи и скриншотами
Рекомендовали: @ninesigns
#ZDQYMA / @kak_ge_ya_byl_slab_v_te_dny / 1025 дней назад

(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)
#ZDQYMA/G2H / @ninesigns / 1025 дней назад
@ninesigns чет я большего ожидал: например по хоткею грепаются N последних коментов из буфера и выбирается на какой из них ответить. Потом создается буфер в котором отображается целиком выбранный коммент в read-only зоне, а в обычной зоне можно было бы писать ответ. С красивой кнопочкой отправить конечно же :3
#ZDQYMA/HEI / @kak_ge_ya_byl_slab_v_te_dny --> #ZDQYMA/G2H / 1025 дней назад

@kak_ge_ya_byl_slab_v_te_dny мне кажется, если немного подумать, то при помощи helm можно сделать гораздо проще. отдельный буфер под сраный комент это оверкил.

#ZDQYMA/4XS / @ninesigns --> #ZDQYMA/HEI / 1025 дней назад
@ninesigns зато БАХАТО выглядит
#ZDQYMA/4E0 / @kak_ge_ya_byl_slab_v_te_dny --> #ZDQYMA/4XS / 1025 дней назад
идея: не делать из имакса ОС
#ZDQYMA/BEC / @anonymous / 1025 дней назад

@anonymous ето

#ZDQYMA/OQ1 / @0xd34dk4tz --> #ZDQYMA/BEC / 1025 дней назад

@kak_ge_ya_byl_slab_v_te_dny для параши вон побохаче сделано, можешь адаптировать для bnw
https://github.com/a13/point-im.el

#ZDQYMA/80M / @ninesigns --> #ZDQYMA/4E0 / 1025 дней назад
ipv6 ready BnW для ведрофона BnW на Реформале Викивач Котятки

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