"Face used for index records.")
(defface elopher-text
- '((default :weight "bold")
- (((background dark)) :foreground "white"))
+ '((((background dark)) :foreground "white")
+ (((background light)) :weight bold))
"Face used for text records.")
(defface elopher-info '()
;; Text retrieval
-(defconst elopher-url-regex "\\(https?\\|gopher\\)://\\([a-zA-Z0-9.\-]+\\)\\(?3::[0-9]+\\)?\\(?4:/[^ \r\n\t(),]*\\)"
+(defconst elopher-url-regex "\\(https?\\|gopher\\)://\\([a-zA-Z0-9.\-]+\\)\\(?3::[0-9]+\\)?\\(?4:/[^ \r\n\t(),]*\\)?"
"Regexp used to locate and buttinofy URLs in text files loaded by elopher.")
(defun elopher-buttonify-urls (string)