dotemacs: elpa/mastodon-0.8.0/mastodon-tl.el annotate

author	Jordi Gutiérrez Hermoso <jordigh@octave.org>
date	Wed, 13 Feb 2019 15:38:33 -0500
parents
children

rev	line source
188 cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	1 ;;; mastodon-tl.el --- HTTP request/response functions for mastodon.el -- lexical-binding: t --
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	2
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	3 ;; Copyright (C) 2017 Johnson Denen
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	4 ;; Author: Johnson Denen <johnson.denen@gmail.com>
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	5 ;; Version: 0.8.0
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	6 ;; Homepage: https://github.com/jdenen/mastodon.el
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	7 ;; Package-Requires: ((emacs "24.4"))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	8
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	9 ;; This file is not part of GNU Emacs.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	10
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	11 ;; This file is part of mastodon.el.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	12
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	13 ;; mastodon.el is free software: you can redistribute it and/or modify
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	14 ;; it under the terms of the GNU General Public License as published by
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	15 ;; the Free Software Foundation, either version 3 of the License, or
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	16 ;; (at your option) any later version.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	17
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	18 ;; mastodon.el is distributed in the hope that it will be useful,
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	21 ;; GNU General Public License for more details.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	22
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	23 ;; You should have received a copy of the GNU General Public License
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	24 ;; along with mastodon.el. If not, see <http://www.gnu.org/licenses/>.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	25
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	26 ;;; Commentary:
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	27
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	28 ;; mastodon-tl.el provides timeline functions.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	29
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	30 ;;; Code:
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	31
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	32 (require 'shr)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	33 (require 'thingatpt) ;; for word-at-point
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	34 (require 'time-date)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	35
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	36 (autoload 'mastodon-http--api "mastodon-http")
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	37 (autoload 'mastodon-http--get-json "mastodon-http")
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	38 (autoload 'mastodon-media--get-avatar-rendering "mastodon-media")
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	39 (autoload 'mastodon-media--get-media-link-rendering "mastodon-media")
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	40 (autoload 'mastodon-media--inline-images "mastodon-media")
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	41 (autoload 'mastodon-mode "mastodon")
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	42 (autoload 'mastodon-profile--account-from-id "mastodon.el-profile.el")
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	43 (autoload 'mastodon-profile--make-author-buffer "mastodon-profile.el")
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	44 (autoload 'mastodon-profile--search-account-by-handle "mastodon.el-profile.el")
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	45 (defvar mastodon-instance-url)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	46 (defvar mastodon-toot-timestamp-format)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	47 (defvar shr-use-fonts) ;; need to declare it since Emacs24 didn't have this
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	48
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	49 (defgroup mastodon-tl nil
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	50 "Timelines in Mastodon."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	51 :prefix "mastodon-tl-"
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	52 :group 'mastodon)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	53
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	54 (defcustom mastodon-tl--enable-relative-timestamps t
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	55 "Nonnil to enable showing relative (to the current time) timestamps.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	56
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	57 This will require periodic updates of a timeline buffer to
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	58 keep the timestamps current as time progresses."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	59 :group 'mastodon-tl
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	60 :type '(boolean :tag "Enable relative timestamps and background updater task"))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	61
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	62 (defcustom mastodon-tl--enable-proportional-fonts nil
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	63 "Nonnil to enable using proportional fonts when rendering HTML.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	64
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	65 By default fixed width fonts are used."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	66 :group 'mastodon-tl
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	67 :type '(boolean :tag "Enable using proportional rather than fixed \
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	68 width fonts when rendering HTML text"))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	69
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	70 (defvar mastodon-tl--buffer-spec nil
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	71 "A unique identifier and functions for each Mastodon buffer.")
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	72 (make-variable-buffer-local 'mastodon-tl--buffer-spec)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	73
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	74 (defvar mastodon-tl--show-avatars-p
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	75 (image-type-available-p 'imagemagick)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	76 "A boolean value stating whether to show avatars in timelines.")
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	77
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	78 (defvar mastodon-tl--update-point nil
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	79 "When updating a mastodon buffer this is where new toots will be inserted.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	80
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	81 If nil `(point-min)' is used instead.")
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	82 (make-variable-buffer-local 'mastodon-tl--update-point)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	83
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	84 (defvar mastodon-tl--display-media-p t
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	85 "A boolean value stating whether to show media in timelines.")
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	86
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	87 (defvar mastodon-tl--timestamp-next-update nil
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	88 "The timestamp when the buffer should next be scanned to update the timestamps.")
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	89 (make-variable-buffer-local 'mastodon-tl--timestamp-next-update)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	90
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	91 (defvar mastodon-tl--timestamp-update-timer nil
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	92 "The timer that, when set will scan the buffer to update the timestamps.")
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	93 (make-variable-buffer-local 'mastodon-tl--timestamp-update-timer)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	94
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	95 (defvar mastodon-tl--link-keymap
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	96 (let ((map (make-sparse-keymap)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	97 (define-key map [return] 'mastodon-tl--do-link-action-at-point)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	98 (define-key map [mouse-2] 'mastodon-tl--do-link-action)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	99 (define-key map [follow-link] 'mouse-face)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	100 (keymap-canonicalize map))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	101 "The keymap set for things in the buffer that act like links (except for shr.el generate links).
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	102
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	103 This will make the region of text act like like a link with mouse
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	104 highlighting, mouse click action tabbing to next/previous link
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	105 etc.")
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	106
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	107 (defvar mastodon-tl--shr-map-replacement
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	108 (let ((map (copy-keymap shr-map)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	109 ;; Replace the move to next/previous link bindings with our
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	110 ;; version that knows about more types of links.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	111 (define-key map [remap shr-next-link] 'mastodon-tl--next-tab-item)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	112 (define-key map [remap shr-previous-link] 'mastodon-tl--previous-tab-item)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	113 (keymap-canonicalize map))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	114 "The keymap to be set for shr.el generated links that are not images.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	115
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	116 We need to override the keymap so tabbing will navigate to all
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	117 types of mastodon links and not just shr.el-generated ones.")
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	118
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	119 (defvar mastodon-tl--shr-image-map-replacement
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	120 (let ((map (copy-keymap (if (boundp 'shr-image-map)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	121 shr-image-map
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	122 shr-map))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	123 ;; Replace the move to next/previous link bindings with our
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	124 ;; version that knows about more types of links.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	125 (define-key map [remap shr-next-link] 'mastodon-tl--next-tab-item)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	126 (define-key map [remap shr-previous-link] 'mastodon-tl--previous-tab-item)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	127 (keymap-canonicalize map))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	128 "The keymap to be set for shr.el generated image links.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	129
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	130 We need to override the keymap so tabbing will navigate to all
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	131 types of mastodon links and not just shr.el-generated ones.")
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	132
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	133 (defun mastodon-tl--next-tab-item ()
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	134 "Move to the next interesting item.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	135
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	136 This could be the next toot, link, or image; whichever comes first.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	137 Don't move if nothing else to move to is found, i.e. near the end of the buffer.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	138 This also skips tab items in invisible text, i.e. hidden spoiler text."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	139 (interactive)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	140 (let (next-range
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	141 (search-pos (point)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	142 (while (and (setq next-range (mastodon-tl--find-next-or-previous-property-range
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	143 'mastodon-tab-stop search-pos nil))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	144
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	145 (get-text-property (car next-range) 'invisible)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	146 (setq search-pos (1+ (cdr next-range))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	147 ;; do nothing, all the action in in the while condition
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	148 )
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	149 (if (null next-range)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	150 (message "Nothing else here.")
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	151 (goto-char (car next-range))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	152 (message "%s" (get-text-property (point) 'help-echo)))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	153
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	154 (defun mastodon-tl--previous-tab-item ()
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	155 "Move to the previous interesting item.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	156
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	157 This could be the previous toot, link, or image; whichever comes first.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	158 Don't move if nothing else to move to is found, i.e. near the start of the buffer.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	159 This also skips tab items in invisible text, i.e. hidden spoiler text."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	160 (interactive)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	161 (let (next-range
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	162 (search-pos (point)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	163 (while (and (setq next-range (mastodon-tl--find-next-or-previous-property-range
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	164 'mastodon-tab-stop search-pos t))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	165 (get-text-property (car next-range) 'invisible)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	166 (setq search-pos (1- (car next-range))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	167 ;; do nothing, all the action in in the while condition
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	168 )
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	169 (if (null next-range)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	170 (message "Nothing else before this.")
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	171 (goto-char (car next-range))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	172 (message "%s" (get-text-property (point) 'help-echo)))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	173
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	174 (defun mastodon-tl--get-federated-timeline ()
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	175 "Opens federated timeline."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	176 (interactive)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	177 (mastodon-tl--init
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	178 "federated" "timelines/public" 'mastodon-tl--timeline))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	179
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	180 (defun mastodon-tl--get-home-timeline ()
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	181 "Opens home timeline."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	182 (interactive)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	183 (mastodon-tl--init
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	184 "home" "timelines/home" 'mastodon-tl--timeline))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	185
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	186 (defun mastodon-tl--get-local-timeline ()
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	187 "Opens local timeline."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	188 (interactive)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	189 (mastodon-tl--init
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	190 "local" "timelines/public?local=true" 'mastodon-tl--timeline))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	191
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	192 (defun mastodon-tl--get-tag-timeline ()
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	193 "Prompts for tag and opens its timeline."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	194 (interactive)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	195 (let* ((word (or (word-at-point) ""))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	196 (input (read-string (format "Tag(%s): " word)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	197 (tag (if (equal input "") word input)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	198 (mastodon-tl--show-tag-timeline tag)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	199
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	200 (defun mastodon-tl--show-tag-timeline (tag)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	201 "Opens a new buffer showing the timeline of posts with hastag TAG."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	202 (mastodon-tl--init
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	203 (concat "tag-" tag) (concat "timelines/tag/" tag) 'mastodon-tl--timeline))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	204
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	205 (defun mastodon-tl--goto-toot-pos (find-pos refresh &optional pos)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	206 "Search for toot with FIND-POS.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	207 If search returns nil, execute REFRESH function.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	208
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	209 Optionally start from POS."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	210 (let* ((npos (funcall find-pos
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	211 (or pos (point))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	212 'byline
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	213 (current-buffer))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	214 (if npos
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	215 (if (not (get-text-property npos 'toot-id))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	216 (mastodon-tl--goto-toot-pos find-pos refresh npos)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	217 (goto-char npos))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	218 (funcall refresh))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	219
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	220 (defun mastodon-tl--goto-next-toot ()
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	221 "Jump to next toot header."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	222 (interactive)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	223 (mastodon-tl--goto-toot-pos 'next-single-property-change
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	224 'mastodon-tl--more))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	225
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	226 (defun mastodon-tl--goto-prev-toot ()
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	227 "Jump to last toot header."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	228 (interactive)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	229 (mastodon-tl--goto-toot-pos 'previous-single-property-change
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	230 'mastodon-tl--update))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	231
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	232 (defun mastodon-tl--remove-html (toot)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	233 "Remove unrendered tags from TOOT."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	234 (let* ((t1 (replace-regexp-in-string "<\/p>" "\n\n" toot))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	235 (t2 (replace-regexp-in-string "<\/?span>" "" t1)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	236 (replace-regexp-in-string "<span class=\"h-card\">" "" t2)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	237
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	238 (defun mastodon-tl--byline-author (toot)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	239 "Propertize author of TOOT."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	240 (let* ((account (cdr (assoc 'account toot)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	241 (handle (cdr (assoc 'acct account)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	242 (name (cdr (assoc 'display_name account)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	243 (profile-url (cdr (assoc 'url account)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	244 (avatar-url (cdr (assoc 'avatar account))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	245 ;; TODO: Once we have a view for a user (e.g. their posts
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	246 ;; timeline) make this a tab-stop and attach an action
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	247 (concat
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	248 (when (and mastodon-tl--show-avatars-p mastodon-tl--display-media-p)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	249 (mastodon-media--get-avatar-rendering avatar-url))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	250 (propertize name 'face 'mastodon-display-name-face)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	251 " ("
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	252 (propertize (concat "@" handle)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	253 'face 'mastodon-handle-face
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	254 'mouse-face 'highlight
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	255 ;; TODO: Replace url browsing with native profile viewing
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	256 'mastodon-tab-stop 'user-handle
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	257 'account account
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	258 'shr-url profile-url
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	259 'keymap mastodon-tl--link-keymap
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	260 'mastodon-handle (concat "@" handle)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	261 'help-echo (concat "Browse user profile of @" handle))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	262 ")")))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	263
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	264 (defun mastodon-tl--byline-boosted (toot)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	265 "Add byline for boosted data from TOOT."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	266 (let ((reblog (cdr (assoc 'reblog toot))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	267 (when reblog
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	268 (concat
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	269 " "
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	270 (propertize "Boosted" 'face 'mastodon-boosted-face)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	271 " "
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	272 (mastodon-tl--byline-author reblog)))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	273
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	274 (defun mastodon-tl--field (field toot)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	275 "Return FIELD from TOOT.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	276
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	277 Return value from boosted content if available."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	278 (or (cdr (assoc field (cdr (assoc 'reblog toot))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	279 (cdr (assoc field toot))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	280
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	281 (defun mastodon-tl--relative-time-details (timestamp &optional current-time)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	282 "Returns cons of (descriptive string . next change) for the TIMESTAMP.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	283
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	284 Use the optional CURRENT-TIME as the current time (only used for
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	285 reliable testing).
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	286
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	287 The descriptive string is a human readable version relative to
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	288 the current time while the next change timestamp give the first
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	289 time that this description will change in the future.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	290
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	291 TIMESTAMP is assumed to be in the past."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	292 (let* ((now (or current-time (current-time)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	293 (time-difference (time-subtract now timestamp))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	294 (seconds-difference (float-time time-difference))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	295 (regular-response
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	296 (lambda (seconds-difference multiplier unit-name)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	297 (let ((n (floor (+ 0.5 (/ seconds-difference multiplier)))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	298 (cons (format "%d %ss ago" n unit-name)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	299 (* (+ 0.5 n) multiplier)))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	300 (relative-result
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	301 (cond
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	302 ((< seconds-difference 60)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	303 (cons "less than a minute ago"
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	304 60))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	305 ((< seconds-difference (* 1.5 60))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	306 (cons "one minute ago"
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	307 90)) ;; at 90 secs
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	308 ((< seconds-difference (* 60 59.5))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	309 (funcall regular-response seconds-difference 60 "minute"))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	310 ((< seconds-difference (* 1.5 60 60))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	311 (cons "one hour ago"
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	312 (* 60 90))) ;; at 90 minutes
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	313 ((< seconds-difference (* 60 60 23.5))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	314 (funcall regular-response seconds-difference (* 60 60) "hour"))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	315 ((< seconds-difference (* 1.5 60 60 24))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	316 (cons "one day ago"
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	317 (* 1.5 60 60 24))) ;; at a day and a half
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	318 ((< seconds-difference (* 60 60 24 6.5))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	319 (funcall regular-response seconds-difference (* 60 60 24) "day"))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	320 ((< seconds-difference (* 1.5 60 60 24 7))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	321 (cons "one week ago"
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	322 (* 1.5 60 60 24 7))) ;; a week and a half
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	323 ((< seconds-difference (* 60 60 24 7 52))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	324 (if (= 52 (floor (+ 0.5 (/ seconds-difference 60 60 24 7))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	325 (cons "52 weeks ago"
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	326 (* 60 60 24 7 52))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	327 (funcall regular-response seconds-difference (* 60 60 24 7) "week")))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	328 ((< seconds-difference (* 1.5 60 60 24 365))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	329 (cons "one year ago"
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	330 (* 60 60 24 365 1.5))) ;; a year and a half
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	331 (t
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	332 (funcall regular-response seconds-difference (* 60 60 24 365.25) "year")))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	333 (cons (car relative-result)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	334 (time-add timestamp (seconds-to-time (cdr relative-result))))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	335
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	336 (defun mastodon-tl--relative-time-description (timestamp &optional current-time)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	337 "Returns a string with a human readable description of TIMESTMAP relative to the current time.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	338
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	339 Use the optional CURRENT-TIME as the current time (only used for
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	340 reliable testing).
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	341
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	342 E.g. this could return something like \"1 min ago\", \"yesterday\", etc.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	343 TIME-STAMP is assumed to be in the past."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	344 (car (mastodon-tl--relative-time-details timestamp current-time)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	345
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	346 (defun mastodon-tl--byline (toot author-byline action-byline)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	347 "Generate byline for TOOT.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	348
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	349 AUTHOR-BYLINE is function for adding the author portion of
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	350 the byline that takes one variable.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	351 ACTION-BYLINE is a function for adding an action, such as boosting
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	352 favouriting and following to the byline. It also takes a single function. By default
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	353 it is `mastodon-tl--byline-boosted'"
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	354 (let ((parsed-time (date-to-time (mastodon-tl--field 'created_at toot)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	355 (faved (equal 't (mastodon-tl--field 'favourited toot)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	356 (boosted (equal 't (mastodon-tl--field 'reblogged toot))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	357 (concat
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	358 (propertize "\n \| " 'face 'default)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	359 (propertize
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	360 (concat (when boosted
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	361 (format "(%s) "
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	362 (propertize "B" 'face 'mastodon-boost-fave-face)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	363 (when faved
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	364 (format "(%s) "
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	365 (propertize "F" 'face 'mastodon-boost-fave-face)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	366 (funcall author-byline toot)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	367 (funcall action-byline toot)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	368 " "
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	369 ;; TODO: Once we have a view for toot (responses etc.) make
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	370 ;; this a tab stop and attach an action.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	371 (propertize
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	372 (format-time-string mastodon-toot-timestamp-format parsed-time)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	373 'timestamp parsed-time
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	374 'display (if mastodon-tl--enable-relative-timestamps
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	375 (mastodon-tl--relative-time-description parsed-time)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	376 parsed-time))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	377 (propertize "\n ------------" 'face 'default))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	378 'favourited-p faved
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	379 'boosted-p boosted
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	380 'byline t))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	381
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	382 (defun mastodon-tl--render-text (string toot)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	383 "Returns a propertized text giving the rendering of the given HTML string STRING.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	384
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	385 The contents comes from the given TOOT which is used in parsing
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	386 links in the text. If TOOT is nil no parsing occurs."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	387 (with-temp-buffer
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	388 (insert string)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	389 (let ((shr-use-fonts mastodon-tl--enable-proportional-fonts)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	390 (shr-width (when mastodon-tl--enable-proportional-fonts
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	391 (window-width))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	392 (shr-render-region (point-min) (point-max)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	393 ;; Make all links a tab stop recognized by our own logic, make things point
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	394 ;; to our own logic (e.g. hashtags), and update keymaps where needed:
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	395 (when toot
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	396 (let (region)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	397 (while (setq region (mastodon-tl--find-property-range
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	398 'shr-url (or (cdr region) (point-min))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	399 (mastodon-tl--process-link toot
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	400 (car region) (cdr region)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	401 (get-text-property (car region) 'shr-url)))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	402 (buffer-string)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	403
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	404 (defun mastodon-tl--process-link (toot start end url)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	405 (let* (mastodon-tab-stop-type
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	406 keymap
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	407 (help-echo (get-text-property start 'help-echo))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	408 extra-properties
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	409 (toot-url (mastodon-tl--field 'url toot))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	410 (toot-url (when toot-url (url-generic-parse-url toot-url)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	411 (toot-instance-url (if toot-url
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	412 (concat (url-type toot-url) "://"
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	413 (url-host toot-url))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	414 mastodon-instance-url))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	415 (maybe-hashtag (mastodon-tl--extract-hashtag-from-url
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	416 url toot-instance-url))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	417 (maybe-userhandle (mastodon-tl--extract-userhandle-from-url
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	418 url (buffer-substring-no-properties start end))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	419 (cond (;; Hashtags:
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	420 maybe-hashtag
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	421 (setq mastodon-tab-stop-type 'hashtag
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	422 keymap mastodon-tl--link-keymap
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	423 help-echo (concat "Browse tag #" maybe-hashtag)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	424 extra-properties (list 'mastodon-tag maybe-hashtag)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	425
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	426 (;; User handles:
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	427 maybe-userhandle
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	428 (let ((maybe-userid (mastodon-tl--extract-userid-toot
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	429 toot maybe-userhandle)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	430 (setq mastodon-tab-stop-type 'user-handle
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	431 keymap mastodon-tl--link-keymap
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	432 help-echo (concat "Browse user profile of " maybe-userhandle)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	433 extra-properties (append
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	434 (list 'mastodon-handle maybe-userhandle)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	435 (when maybe-userid
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	436 (list 'acccount-id maybe-userid))))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	437 ;; Anything else:
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	438 (t
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	439 ;; Leave it as a url handled by shr.el.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	440 ;; (We still have to replace the keymap so that tabbing works.)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	441 (setq keymap (if (eq shr-map (get-text-property start 'keymap))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	442 mastodon-tl--shr-map-replacement
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	443 mastodon-tl--shr-image-map-replacement)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	444 mastodon-tab-stop-type 'shr-url)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	445 (add-text-properties start end
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	446 (append
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	447 (list 'mastodon-tab-stop mastodon-tab-stop-type
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	448 'keymap keymap
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	449 'help-echo help-echo)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	450 extra-properties))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	451
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	452 (defun mastodon-tl--extract-userid-toot (toot acct)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	453 "Extract a user id for an ACCT from mentions in a TOOT."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	454 (let* ((mentions (append (cdr (assoc 'mentions toot)) nil))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	455 (mention (pop mentions))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	456 (short-acct (substring acct 1 (length acct)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	457 return)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	458 (while mention
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	459 (when (string= (cdr (assoc 'acct mention))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	460 short-acct)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	461 (setq return (cdr (assoc 'id mention))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	462 (setq mention (pop mentions)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	463 return))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	464
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	465 (defun mastodon-tl--extract-userhandle-from-url (url buffer-text)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	466 "Returns the user hande the URL points to or nil if it is not a profile link.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	467
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	468 BUFFER-TEXT is the text covered by the link with URL, for a user profile
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	469 this should be of the form <at-sign><user id>, e.g. \"@Gargon\"."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	470 (let ((parsed-url (url-generic-parse-url url)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	471 (when (and (string= "@" (substring buffer-text 0 1))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	472 (string= (downcase buffer-text)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	473 (downcase (substring (url-filename parsed-url) 1))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	474 (concat buffer-text "@" (url-host parsed-url)))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	475
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	476 (defun mastodon-tl--extract-hashtag-from-url (url instance-url)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	477 "Returns the hashtag that URL points to or nil if URL is not a tag link.
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	478
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	479 INSTANCE-URL is the url of the instance for the toot that the link
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	480 came from (tag links always point to a page on the instance publishing
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	481 the toot)."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	482 (cond
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	483 ;; Mastodon type tag link:
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	484 ((string-prefix-p (concat instance-url "/tags/") url)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	485 (substring url (length (concat instance-url "/tags/"))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	486 ;; Link from some other ostatus site we've encountered:
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	487 ((string-prefix-p (concat instance-url "/tag/") url)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	488 (substring url (length (concat instance-url "/tag/"))))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	489 ;; If nothing matches we assume it is not a hashtag link:
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	490 (t nil)))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	491
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	492 (defun mastodon-tl--set-face (string face)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	493 "Returns the propertized STRING with the face property set to FACE."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	494 (propertize string 'face face))
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	495
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	496 (defun mastodon-tl--toggle-spoiler-text (position)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	497 "Toggle the visibility of the spoiler text at/after POSITION."
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	498 (let ((inhibit-read-only t)
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	499 (spoiler-text-region (mastodon-tl--find-property-range
cf476cceb7b2 mastodon: new package Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: diff changeset	500 'mastodon-content-warning-body position nil)))

188

cf476cceb7b2 mastodon: new package