forked from mirrors/org-mode
Long IRC log entry descriptions are now elipsified.
This commit is contained in:
parent
d0fafb8828
commit
2267d0cde6
|
@ -1,3 +1,8 @@
|
||||||
|
2008-02-28 Phil Jackson <phil@shellarchive.co.uk>
|
||||||
|
|
||||||
|
* org-irc.el (org-irc-erc-store-link): Long log entry descriptions
|
||||||
|
are now elipsified.
|
||||||
|
|
||||||
2008-02-28 Bastien Guerry <bzg@altern.org>
|
2008-02-28 Bastien Guerry <bzg@altern.org>
|
||||||
|
|
||||||
* org.el (org-activate-links): Fixed typo.
|
* org.el (org-activate-links): Fixed typo.
|
||||||
|
|
19
org-irc.el
19
org-irc.el
|
@ -4,7 +4,7 @@
|
||||||
;;
|
;;
|
||||||
;; Author: Philip Jackson <emacs@shellarchive.co.uk>
|
;; Author: Philip Jackson <emacs@shellarchive.co.uk>
|
||||||
;; Keywords: erc, irc, link, org
|
;; Keywords: erc, irc, link, org
|
||||||
;; Version: 1.2
|
;; Version: 1.3
|
||||||
;;
|
;;
|
||||||
;; This file is part of GNU Emacs.
|
;; This file is part of GNU Emacs.
|
||||||
;;
|
;;
|
||||||
|
@ -91,6 +91,20 @@ something IRC related"
|
||||||
((eq major-mode 'erc-mode)
|
((eq major-mode 'erc-mode)
|
||||||
(org-irc-erc-store-link))))
|
(org-irc-erc-store-link))))
|
||||||
|
|
||||||
|
(defun org-irc-elipsify-description (string &optional after)
|
||||||
|
"Strip starting and ending whitespace and replace any chars
|
||||||
|
that appear after the value in `after' with '...'"
|
||||||
|
(let* ((after (number-to-string (or after 30)))
|
||||||
|
(replace-map (list (cons "^[ \t]*" "")
|
||||||
|
(cons "[ \t]*$" "")
|
||||||
|
(cons (concat "^\\(.\\{" after
|
||||||
|
"\\}\\).*") "\\1..."))))
|
||||||
|
(mapc (lambda (x)
|
||||||
|
(when (string-match (car x) string)
|
||||||
|
(setq string (replace-match (cdr x) nil nil string))))
|
||||||
|
replace-map)
|
||||||
|
string))
|
||||||
|
|
||||||
;; ERC specific functions
|
;; ERC specific functions
|
||||||
|
|
||||||
(defun org-irc-erc-get-line-from-log (erc-line)
|
(defun org-irc-erc-get-line-from-log (erc-line)
|
||||||
|
@ -126,7 +140,8 @@ the session itself."
|
||||||
(progn
|
(progn
|
||||||
(org-store-link-props
|
(org-store-link-props
|
||||||
:type "file"
|
:type "file"
|
||||||
:description (concat "'" (cadr parsed-line)
|
:description (concat "'" (org-irc-elipsify-description
|
||||||
|
(cadr parsed-line) 20)
|
||||||
"' from an IRC conversation")
|
"' from an IRC conversation")
|
||||||
:link (concat "file:" (car parsed-line) "::"
|
:link (concat "file:" (car parsed-line) "::"
|
||||||
(cadr parsed-line)))
|
(cadr parsed-line)))
|
||||||
|
|
Loading…
Reference in a new issue