pkg update and first config fix
org-brain not working, add org-roam
This commit is contained in:
@@ -1,6 +1,6 @@
|
||||
;;; ol-irc.el --- Links to IRC Sessions -*- lexical-binding: t; -*-
|
||||
;;
|
||||
;; Copyright (C) 2008-2021 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2008-2022 Free Software Foundation, Inc.
|
||||
;;
|
||||
;; Author: Philip Jackson <emacs@shellarchive.co.uk>
|
||||
;; Keywords: erc, irc, link, org
|
||||
@@ -48,6 +48,9 @@
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'org-macs)
|
||||
(org-assert-version)
|
||||
|
||||
(require 'ol)
|
||||
|
||||
(declare-function erc-buffer-filter "erc" (predicate &optional proc))
|
||||
@@ -135,13 +138,13 @@ result is a cons of the filename and search string."
|
||||
;; can we get a '::' part?
|
||||
(if (string= erc-line (erc-prompt))
|
||||
(progn
|
||||
(goto-char (point-at-bol))
|
||||
(goto-char (line-beginning-position))
|
||||
(when (search-backward-regexp "^[^ ]" nil t)
|
||||
(buffer-substring-no-properties (point-at-bol)
|
||||
(point-at-eol))))
|
||||
(buffer-substring-no-properties (line-beginning-position)
|
||||
(line-end-position))))
|
||||
(when (search-backward erc-line nil t)
|
||||
(buffer-substring-no-properties (point-at-bol)
|
||||
(point-at-eol)))))))
|
||||
(buffer-substring-no-properties (line-beginning-position)
|
||||
(line-end-position)))))))
|
||||
|
||||
(defun org-irc-erc-store-link ()
|
||||
"Store a link to the IRC log file or the session itself.
|
||||
@@ -151,7 +154,7 @@ the session itself."
|
||||
(require 'erc-log)
|
||||
(if org-irc-link-to-logs
|
||||
(let* ((erc-line (buffer-substring-no-properties
|
||||
(point-at-bol) (point-at-eol)))
|
||||
(line-beginning-position) (line-end-position)))
|
||||
(parsed-line (org-irc-erc-get-line-from-log erc-line)))
|
||||
(if (erc-logging-enabled nil)
|
||||
(progn
|
||||
|
||||
Reference in New Issue
Block a user