...\""},{"Add":"  (if (org-export-read-attribute :attr_html src-block :textarea)"},{"Add":"      (org-html--textarea-block src-block)"},{"Add":"    (let ((lang (pcase (org-element-property :language src-block)"},{"Add":"                  ;; Riot's syntax coloring doesn't support \"elisp\", but \"lisp\" works."},{"Add":"                  (\"elisp\" \"lisp\")"},{"Add":"                  (else else)))"},{"Add":"\t  (code (org-html-format-code src-block info))"},{"Add":"\t  (label (let ((lbl (and (org-element-property :name src-block)"},{"Add":"\t\t\t\t (org-export-get-reference src-block info))))"},{"Add":"\t\t   (if lbl (format \" id=\\\"%s\\\"\" lbl) \"\"))))"},{"Add":"      (if (not lang) (format \"\\n%s
\" label code)"},{"Add":"\t(format \"\\n%s%s\\n
\""},{"Add":"\t\t;; Build caption."},{"Add":"\t\t(let ((caption (org-export-get-caption src-block)))"},{"Add":"\t\t  (if (not caption) \"\""},{"Add":"\t\t    (let ((listing-number"},{"Add":"\t\t\t   (format"},{"Add":"\t\t\t    \"%s \""},{"Add":"\t\t\t    (format"},{"Add":"\t\t\t     (org-html--translate \"Listing %d:\" info)"},{"Add":"\t\t\t     (org-export-get-ordinal"},{"Add":"\t\t\t      src-block info nil #'org-html--has-caption-p)))))"},{"Add":"\t\t      (format \"%s%s\""},{"Add":"\t\t\t      listing-number"},{"Add":"\t\t\t      (string-trim (org-export-data caption info))))))"},{"Add":"\t\t;; Contents."},{"Add":"\t\t(format \"%s
\""},{"Add":"\t\t\tlang label code))))))"},{"Add":""},{"Add":";;;;; Completion"},{"Add":""},{"Add":";; Completing member and room names."},{"Add":""},{"Add":"(defun ement-room--complete-members-at-point ()"},{"Add":"  \"Complete member names and IDs at point."},{"Add":"Uses members in the current buffer's room.  For use in"},{"Add":"`completion-at-point-functions'.\""},{"Add":"  (let ((beg (save-excursion"},{"Add":"               (when (re-search-backward (rx (or bol bos blank)) nil t)"},{"Add":"                 (if (minibufferp)"},{"Add":"                     (1+ (point))"},{"Add":"                   (point)))))"},{"Add":"        (end (point))"},{"Add":"        (collection-fn (completion-table-dynamic"},{"Add":"                        ;; The manual seems to show the FUN ignoring any"},{"Add":"                        ;; arguments, but the `completion-table-dynamic' docstring"},{"Add":"                        ;; seems to say that it should use the argument."},{"Add":"                        (lambda (_ignore)"},{"Add":"                          (ement-room--member-names-and-ids)))))"},{"Add":"    (when beg"},{"Add":"      (list beg end collection-fn :exclusive 'no))))"},{"Add":""},{"Add":"(defun ement-room--complete-rooms-at-point ()"},{"Add":"  \"Complete room aliases and IDs at point."},{"Add":"For use in `completion-at-point-functions'.\""},{"Add":"  (let ((beg (save-excursion"},{"Add":"               (when (re-search-backward (rx (or bol bos blank) (or \"!\" \"#\")) nil t)"},{"Add":"                 (if (minibufferp)"},{"Add":"                     (1+ (point))"},{"Add":"                   (point)))))"},{"Add":"        (end (point))"},{"Add":"        (collection-fn (completion-table-dynamic"},{"Add":"                        ;; The manual seems to show the FUN ignoring any"},{"Add":"                        ;; arguments, but the `completion-table-dynamic' docstring"},{"Add":"                        ;; seems to say that it should use the argument."},{"Add":"                        (lambda (_ignore)"},{"Add":"                          (ement-room--room-aliases-and-ids)))))"},{"Add":"    (when beg"},{"Add":"      (list beg end collection-fn :exclusive 'no))))"},{"Add":""},{"Add":";; TODO: Use `cl-pushnew' in these two functions instead of `delete-dups'."},{"Add":""},{"Add":"(defun ement-room--member-names-and-ids ()"},{"Add":"  \"Return a list of member names and IDs seen in current room."},{"Add":"If room's `members' table is filled, use it; otherwise, fetch"},{"Add":"members list and return already-seen members instead.  For use in"},{"Add":"`completion-at-point-functions'.\""},{"Add":"  ;; For now, we just collect a list of members from events we've seen."},{"Add":"  ;; TODO: In the future, we may maintain a per-room table of members, which"},{"Add":"  ;; would be more suitable for completing names according to the spec."},{"Add":"  (pcase-let* ((room (if (minibufferp)"},{"Add":"                         (buffer-local-value"},{"Add":"                          'ement-room (window-buffer (minibuffer-selected-window)))"},{"Add":"                       ement-room))"},{"Add":"               (session (if (minibufferp)"},{"Add":"                            (buffer-local-value"},{"Add":"                             'ement-session (window-buffer (minibuffer-selected-window)))"},{"Add":"                          ement-session))"},{"Add":"               ((cl-struct ement-room members) room)"},{"Add":"               (members (if (alist-get 'fetched-members-p (ement-room-local room))"},{"Add":"                            (hash-table-values members)"},{"Add":"                          ;; HACK: Members table empty: update list and use known events"},{"Add":"                          ;; for now."},{"Add":"                          (ement-singly (alist-get 'getting-members-p (ement-room-local room))"},{"Add":"                            (ement--get-joined-members room session"},{"Add":"                              :then (lambda (_) (setf (alist-get 'getting-members-p (ement-room-local room)) nil))"},{"Add":"                              :else (lambda (_) (setf (alist-get 'getting-members-p (ement-room-local room)) nil))))"},{"Add":"                          (mapcar #'ement-event-sender"},{"Add":"                                  (ement-room-timeline ement-room)))))"},{"Add":"    (delete-dups"},{"Add":"     (cl-loop for member in members"},{"Add":"              collect (ement-user-id member)"},{"Add":"              collect (ement--user-displayname-in room member)))))"},{"Add":""},{"Add":"(defun ement-room--room-aliases-and-ids ()"},{"Add":"  \"Return a list of room names and aliases seen in current session."},{"Add":"For use in `completion-at-point-functions'.\""},{"Add":"  (let* ((session (if (minibufferp)"},{"Add":"                      (buffer-local-value"},{"Add":"                       'ement-session (window-buffer (minibuffer-selected-window)))"},{"Add":"                    ement-session)))"},{"Add":"    (delete-dups"},{"Add":"     (delq nil (cl-loop for room in (ement-session-rooms session)"},{"Add":"                        collect (ement-room-id room)"},{"Add":"                        collect (ement-room-canonical-alias room))))))"},{"Add":""},{"Add":";;;;; Transient"},{"Add":""},{"Add":"(require 'transient)"},{"Add":""},{"Add":"(transient-define-prefix ement-room-transient ()"},{"Add":"  \"Transient for Ement Room buffers.\""},{"Add":"  [:pad-keys t"},{"Add":"             [\"Movement\""},{"Add":"              (\"TAB\" \"Next event\" ement-room-goto-next)"},{"Add":"              (\"\" \"Previous event\" ement-room-goto-prev)"},{"Add":"              (\"SPC\" \"Scroll up and mark read\" ement-room-scroll-up-mark-read)"},{"Add":"              (\"S-SPC\" \"Scroll down\" ement-room-scroll-down-command)"},{"Add":"              (\"M-SPC\" \"Jump to fully-read marker\" ement-room-goto-fully-read-marker)]"},{"Add":"             [\"Switching\""},{"Add":"              (\"M-g M-l\" \"List rooms\" ement-room-list)"},{"Add":"              (\"M-g M-r\" \"Switch to other room\" ement-view-room)"},{"Add":"              (\"M-g M-m\" \"Switch to mentions buffer\" ement-notify-switch-to-mentions-buffer)"},{"Add":"              (\"M-g M-n\" \"Switch to notifications buffer\" ement-notify-switch-to-notifications-buffer)"},{"Add":"              (\"q\" \"Quit window\" quit-window)]]"},{"Add":"  [:pad-keys t"},{"Add":"             [\"Messages\""},{"Add":"              (\"c\" \"Composition format\" ement-room-set-composition-format"},{"Add":"               :description (lambda ()"},{"Add":"                              (concat \"Composition format: \""},{"Add":"                                      (propertize (car (cl-rassoc ement-room-send-message-filter"},{"Add":"                                                                  (list (cons \"Plain-text\" nil)"},{"Add":"                                                                        (cons \"Org-mode\" 'ement-room-send-org-filter))"},{"Add":"                                                                  :test #'equal))"},{"Add":"                                                  'face 'transient-value))))"},{"Add":"              (\"RET\" \"Write message\" ement-room-send-message)"},{"Add":"              (\"S-RET\" \"Write reply\" ement-room-write-reply)"},{"Add":"              (\"M-RET\" \"Compose message in buffer\" ement-room-compose-message)"},{"Add":"              (\"\" \"Edit message\" ement-room-edit-message)"},{"Add":"              (\"C-k\" \"Delete message\" ement-room-delete-message)"},{"Add":"              (\"s r\" \"Send reaction\" ement-room-send-reaction)"},{"Add":"              (\"s e\" \"Send emote\" ement-room-send-emote)"},{"Add":"              (\"s f\" \"Send file\" ement-room-send-file)"},{"Add":"              (\"s i\" \"Send image\" ement-room-send-image)]"},{"Add":"             [\"Users\""},{"Add":"              (\"u RET\" \"Send direct message\" ement-send-direct-message)"},{"Add":"              (\"u i\" \"Invite user\" ement-invite-user)"},{"Add":"              (\"u I\" \"Ignore user\" ement-ignore-user)]]"},{"Add":"  [:pad-keys t"},{"Add":"             [\"Room\""},{"Add":"              (\"M-s o\" \"Occur search in room\" ement-room-occur)"},{"Add":"              (\"r d\" \"Describe room\" ement-describe-room)"},{"Add":"              (\"r m\" \"List members\" ement-list-members)"},{"Add":"              (\"r t\" \"Set topic\" ement-room-set-topic)"},{"Add":"              (\"r f\" \"Set message format\" ement-room-set-message-format)"},{"Add":"              (\"r N\" \"Override name\" ement-room-override-name"},{"Add":"               :description (lambda ()"},{"Add":"                              (format \"Name override: %s\""},{"Add":"                                      (if-let* ((event (alist-get \"org.matrix.msc3015.m.room.name.override\""},{"Add":"                                                                  (ement-room-account-data ement-room) nil nil #'equal))"},{"Add":"                                                (name (map-nested-elt event '(content name))))"},{"Add":"                                          (propertize name 'face 'transient-value)"},{"Add":"                                        (propertize \"none\" 'face 'transient-inactive-value)))))"},{"Add":"              (\"r n\" \"Set notification state\" ement-room-set-notification-state"},{"Add":"               :description (lambda ()"},{"Add":"                              (let ((state (ement-room-notification-state ement-room ement-session)))"},{"Add":"                                (format \"Notifications (%s|%s|%s|%s|%s)\""},{"Add":"                                        (propertize \"default\""},{"Add":"                                                    'face (pcase state"},{"Add":"                                                            (`nil 'transient-value)"},{"Add":"                                                            (_ 'transient-inactive-value)))"},{"Add":"                                        (propertize \"all-loud\""},{"Add":"                                                    'face (pcase state"},{"Add":"                                                            ('all-loud 'transient-value)"},{"Add":"                                                            (_ 'transient-inactive-value)))"},{"Add":"                                        (propertize \"all\""},{"Add":"                                                    'face (pcase state"},{"Add":"                                                            ('all 'transient-value)"},{"Add":"                                                            (_ 'transient-inactive-value)))"},{"Add":"                                        (propertize \"mentions\""},{"Add":"                                                    'face (pcase state"},{"Add":"                                                            ('mentions-and-keywords 'transient-value)"},{"Add":"                                                            (_ 'transient-inactive-value)))"},{"Add":"                                        (propertize \"none\""},{"Add":"                                                    'face (pcase state"},{"Add":"                                                            ('none 'transient-value)"},{"Add":"                                                            (_ 'transient-inactive-value)))))))"},{"Add":"              (\"r T\" \"Tag/untag room\" ement-tag-room"},{"Add":"               :description (lambda ()"},{"Add":"                              (format \"Tag/untag room (%s|%s)\""},{"Add":"                                      (propertize \"Fav\""},{"Add":"                                                  'face (if (ement--room-tagged-p \"m.favourite\" ement-room)"},{"Add":"                                                            'transient-value 'transient-inactive-value))"},{"Add":"                                      (propertize \"Low-prio\""},{"Add":"                                                  'face (if (ement--room-tagged-p \"m.lowpriority\" ement-room)"},{"Add":"                                                            'transient-value 'transient-inactive-value)))))]"},{"Add":"             [\"Room membership\""},{"Add":"              (\"R c\" \"Create room\" ement-create-room)"},{"Add":"              (\"R j\" \"Join room\" ement-join-room)"},{"Add":"              (\"R l\" \"Leave room\" ement-leave-room)"},{"Add":"              (\"R F\" \"Forget room\" ement-forget-room)"},{"Add":"              (\"R n\" \"Set nick\" ement-room-set-display-name"},{"Add":"               :description (lambda ()"},{"Add":"                              (format \"Set nick (%s)\""},{"Add":"                                      (propertize (ement--user-displayname-in"},{"Add":"                                                   ement-room (gethash (ement-user-id (ement-session-user ement-session))"},{"Add":"                                                                       ement-users))"},{"Add":"                                                  'face 'transient-value))))"},{"Add":"              (\"R s\" \"Toggle spaces\" ement-room-toggle-space"},{"Add":"               :description (lambda ()"},{"Add":"                              (format \"Toggle spaces (%s)\""},{"Add":"                                      (if-let ((spaces (ement--room-spaces ement-room ement-session)))"},{"Add":"                                          (string-join"},{"Add":"                                           (mapcar (lambda (space)"},{"Add":"                                                     (propertize (ement-room-display-name space)"},{"Add":"                                                                 'face 'transient-value))"},{"Add":"                                                   spaces)"},{"Add":"                                           \", \")"},{"Add":"                                        (propertize \"none\" 'face 'transient-inactive-value)))))]]"},{"Add":"  [\"Other\""},{"Add":"   (\"v\" \"View event\" ement-room-view-event)"},{"Add":"   (\"g\" \"Sync new messages\" ement-room-sync"},{"Add":"    :if (lambda ()"},{"Add":"          (interactive)"},{"Add":"          (or (not ement-auto-sync)"},{"Add":"              (not (map-elt ement-syncs ement-session)))))])"},{"Add":""},{"Add":";;;; Footer"},{"Add":""},{"Add":"(provide 'ement-room)"},{"Add":""},{"Add":";;; ement-room.el ends here"}]}},{"FileAdd":{"meta":{"basename":"ement-room-list.el","metadata":0},"context":[{"change":0,"pos":483987}],"contents":[{"Add":";;; ement-room-list.el --- List Ement rooms  -*- lexical-binding: t; -*-"},{"Add":""},{"Add":";; Copyright (C) 2022  Free Software Foundation, Inc."},{"Add":""},{"Add":";; Author: Adam Porter "},{"Add":";; Maintainer: Adam Porter "},{"Add":""},{"Add":";; This program is free software; you can redistribute it and/or modify"},{"Add":";; it under the terms of the GNU General Public License as published by"},{"Add":";; the Free Software Foundation, either version 3 of the License, or"},{"Add":";; (at your option) any later version."},{"Add":""},{"Add":";; This program is distributed in the hope that it will be useful,"},{"Add":";; but WITHOUT ANY WARRANTY; without even the implied warranty of"},{"Add":";; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the"},{"Add":";; GNU General Public License for more details."},{"Add":""},{"Add":";; You should have received a copy of the GNU General Public License"},{"Add":";; along with this program.  If not, see ."},{"Add":""},{"Add":";;; Commentary:"},{"Add":""},{"Add":";; This library implements a room list view using `taxy' and `taxy-magit-section' for"},{"Add":";; dynamic, programmable grouping."},{"Add":""},{"Add":";;; Code:"},{"Add":""},{"Add":"(require 'button)"},{"Add":"(require 'rx)"},{"Add":""},{"Add":"(require 'persist)"},{"Add":"(require 'svg-lib)"},{"Add":"(require 'taxy)"},{"Add":"(require 'taxy-magit-section)"},{"Add":""},{"Add":"(require 'ement-lib)"},{"Add":""},{"Add":"(defgroup ement-room-list nil"},{"Add":"  \"Group Ement rooms with Taxy.\""},{"Add":"  :group 'ement)"},{"Add":""},{"Add":";;;; Mouse commands"},{"Add":""},{"Add":";; Since mouse-activated commands must handle mouse events, we define a simple macro to"},{"Add":";; wrap a command into a mouse-event-accepting one."},{"Add":""},{"Add":"(defmacro ement-room-list-define-mouse-command (command)"},{"Add":"  \"Define a command that calls COMMAND interactively with point at mouse event."},{"Add":"COMMAND should be a form that evaluates to a function symbol; if"},{"Add":"a symbol, it should be unquoted..\""},{"Add":"  (let ((docstring (format \"Call command `%s' interactively with point at EVENT.\" command))"},{"Add":"        (name (intern (format \"ement-room-list-mouse-%s\" command))))"},{"Add":"    `(defun ,name (event)"},{"Add":"       ,docstring"},{"Add":"       (interactive \"e\")"},{"Add":"       (mouse-set-point event)"},{"Add":"       (call-interactively #',command))))"},{"Add":""},{"Add":";;;; Variables"},{"Add":""},{"Add":"(declare-function ement-room-toggle-space \"ement-room\")"},{"Add":""},{"Add":"(defvar ement-room-list-mode-map"},{"Add":"  (let ((map (make-sparse-keymap)))"},{"Add":"    (define-key map (kbd \"RET\") #'ement-room-list-RET)"},{"Add":"    (define-key map (kbd \"SPC\") #'ement-room-list-next-unread)"},{"Add":"    (define-key map [tab] #'ement-room-list-section-toggle)"},{"Add":"    (define-key map [mouse-1] (ement-room-list-define-mouse-command ement-room-list-RET))"},{"Add":"    (define-key map [mouse-2] (ement-room-list-define-mouse-command ement-room-list-kill-buffer))"},{"Add":"    (define-key map (kbd \"k\") #'ement-room-list-kill-buffer)"},{"Add":"    (define-key map (kbd \"s\") #'ement-room-toggle-space)"},{"Add":"    map)"},{"Add":"  \"Keymap for `ement-room-list' buffers."},{"Add":"See also `ement-room-list-button-map'.\")"},{"Add":""},{"Add":"(defvar ement-room-list-button-map"},{"Add":"  ;; This map is needed because some columns are propertized as buttons, which override"},{"Add":"  ;; the main keymap."},{"Add":"  ;; TODO: Is it possible to adjust the button properties to obviate this map?"},{"Add":"  (let ((map (make-sparse-keymap)))"},{"Add":"    (define-key map [mouse-1] (ement-room-list-define-mouse-command ement-room-list-RET))"},{"Add":"    (define-key map [mouse-2] (ement-room-list-define-mouse-command ement-room-list-kill-buffer))"},{"Add":"    map)"},{"Add":"  \"Keymap for buttonized text in `ement-room-list' buffers.\")"},{"Add":""},{"Add":"(defvar ement-room-list-timestamp-colors nil"},{"Add":"  \"List of colors used for timestamps."},{"Add":"Set automatically when `ement-room-list-mode' is activated.\")"},{"Add":""},{"Add":"(defvar ement-room)"},{"Add":"(defvar ement-session)"},{"Add":"(defvar ement-sessions)"},{"Add":"(defvar ement-room-prism-minimum-contrast)"},{"Add":""},{"Add":";;;;; Persistent variables"},{"Add":""},{"Add":"(persist-defvar ement-room-list-visibility-cache nil"},{"Add":"                \"Applied to `magit-section-visibility-cache', which see.\")"},{"Add":""},{"Add":";;;; Customization"},{"Add":""},{"Add":"(defcustom ement-room-list-auto-update t"},{"Add":"  \"Automatically update the taxy-based room list buffer.\""},{"Add":"  :type 'boolean)"},{"Add":""},{"Add":"(defcustom ement-room-list-avatars (display-images-p)"},{"Add":"  \"Show room avatars in the room list.\""},{"Add":"  :type 'boolean)"},{"Add":""},{"Add":";;;;; Faces"},{"Add":""},{"Add":"(defface ement-room-list-direct"},{"Add":"  ;; In case `font-lock-constant-face' is bold, we set the weight to normal, so it can be"},{"Add":"  ;; made bold for unread rooms only."},{"Add":"  '((t (:weight normal :inherit (font-lock-constant-face ement-room-list-name))))"},{"Add":"  \"Direct rooms.\")"},{"Add":""},{"Add":"(defface ement-room-list-favourite '((t (:inherit (font-lock-doc-face ement-room-list-name))))"},{"Add":"  \"Favourite rooms.\")"},{"Add":""},{"Add":"(defface ement-room-list-invited"},{"Add":"  '((t (:inherit italic ement-room-list-name)))"},{"Add":"  \"Invited rooms.\")"},{"Add":""},{"Add":"(defface ement-room-list-left"},{"Add":"  '((t (:strike-through t :inherit ement-room-list-name)))"},{"Add":"  \"Left rooms.\")"},{"Add":""},{"Add":"(defface ement-room-list-low-priority '((t (:inherit (font-lock-comment-face ement-room-list-name))))"},{"Add":"  \"Low-priority rooms.\")"},{"Add":""},{"Add":"(defface ement-room-list-name"},{"Add":"  '((t (:inherit font-lock-function-name-face button)))"},{"Add":"  \"Non-direct rooms.\")"},{"Add":""},{"Add":"(defface ement-room-list-space '((t (:inherit (font-lock-regexp-grouping-backslash ement-room-list-name))))"},{"Add":"  \"Space rooms.\""},{"Add":"  :group 'ement-room-list)"},{"Add":""},{"Add":"(defface ement-room-list-unread"},{"Add":"  '((t (:inherit bold ement-room-list-name)))"},{"Add":"  \"Unread rooms.\")"},{"Add":""},{"Add":"(defface ement-room-list-recent '((t (:inherit font-lock-warning-face)))"},{"Add":"  \"Latest timestamp of recently updated rooms."},{"Add":"The foreground color is used to generate a gradient of colors"},{"Add":"from recent to non-recent for rooms updated in the past 24"},{"Add":"hours but at least one hour ago.\")"},{"Add":""},{"Add":"(defface ement-room-list-very-recent '((t (:inherit error)))"},{"Add":"  \"Latest timestamp of very recently updated rooms."},{"Add":"The foreground color is used to generate a gradient of colors"},{"Add":"from recent to non-recent for rooms updated in the past hour.\")"},{"Add":""},{"Add":";;;; Keys"},{"Add":""},{"Add":";; Since some of these keys need access to the session, and room"},{"Add":";; structs don't include the session, we use a two-element vector in"},{"Add":";; which the session is the second element."},{"Add":""},{"Add":"(eval-and-compile"},{"Add":"  (taxy-define-key-definer ement-room-list-define-key"},{"Add":"    ement-room-list-keys \"ement-room-list-key\" \"FIXME: Docstring.\"))"},{"Add":""},{"Add":"(ement-room-list-define-key membership (&key name status)"},{"Add":"  ;; FIXME: Docstring: status should be a symbol of either `invite', `join', `leave'."},{"Add":"  (cl-labels ((format-membership (membership)"},{"Add":"                                 (pcase membership"},{"Add":"                                   ('join \"Joined\")"},{"Add":"                                   ('invite \"Invited\")"},{"Add":"                                   ('leave \"[Left]\"))))"},{"Add":"    (pcase-let ((`[,(cl-struct ement-room (status membership)) ,_session] item))"},{"Add":"      (if status"},{"Add":"          (when (equal status membership)"},{"Add":"            (or name (format-membership membership)))"},{"Add":"        (format-membership membership)))))"},{"Add":""},{"Add":"(ement-room-list-define-key alias (&key name regexp)"},{"Add":"  (pcase-let ((`[,(cl-struct ement-room canonical-alias) ,_session] item))"},{"Add":"    (when canonical-alias"},{"Add":"      (when (string-match-p regexp canonical-alias)"},{"Add":"        name))))"},{"Add":""},{"Add":"(ement-room-list-define-key buffer ()"},{"Add":"  (pcase-let ((`[,(cl-struct ement-room (local (map buffer))) ,_session] item))"},{"Add":"    (when buffer"},{"Add":"      #(\"Buffers\" 0 7 (help-echo \"Rooms with open buffers\")))))"},{"Add":""},{"Add":"(ement-room-list-define-key direct ()"},{"Add":"  (pcase-let ((`[,room ,session] item))"},{"Add":"    (when (ement--room-direct-p room session)"},{"Add":"      \"Direct\")))"},{"Add":""},{"Add":"(ement-room-list-define-key people ()"},{"Add":"  (pcase-let ((`[,room ,session] item))"},{"Add":"    (when (ement--room-direct-p room session)"},{"Add":"      (propertize \"People\" 'face 'ement-room-list-direct))))"},{"Add":""},{"Add":"(ement-room-list-define-key space (&key name id)"},{"Add":"  (pcase-let* ((`[,room ,session] item)"},{"Add":"               ((cl-struct ement-session rooms) session)"},{"Add":"               ((cl-struct ement-room type (local (map parents))) room))"},{"Add":"    (cl-labels ((format-space"},{"Add":"                 (id) (let* ((parent-room (cl-find id rooms :key #'ement-room-id :test #'equal))"},{"Add":"                             (space-name (if parent-room"},{"Add":"                                             (ement-room-display-name parent-room)"},{"Add":"                                           id)))"},{"Add":"                        (concat \"Space: \" space-name))))"},{"Add":"      (when-let ((key (if id"},{"Add":"                          ;; ID specified."},{"Add":"                          (cond ((or (member id parents)"},{"Add":"                                     (equal id (ement-room-id room)))"},{"Add":"                                 ;; Room is in specified space."},{"Add":"                                 (or name (format-space id)))"},{"Add":"                                ((and (equal type \"m.space\")"},{"Add":"                                      (equal id (ement-room-id room)))"},{"Add":"                                 ;; Room is a specified space."},{"Add":"                                 (or name (concat \"Space: \" (ement-room-display-name room)))"},{"Add":"                                 ))"},{"Add":"                        ;; ID not specified."},{"Add":"                        (pcase (length parents)"},{"Add":"                          (0 nil)"},{"Add":"                          (1"},{"Add":"                           ;; TODO: Make the rooms list a hash table to avoid this lookup."},{"Add":"                           (format-space (car parents)))"},{"Add":"                          (_"},{"Add":"                           ;; TODO: How to handle this better?  (though it should be very rare)"},{"Add":"                           (string-join (mapcar #'format-space parents) \", \"))))))"},{"Add":"        (propertize key 'face 'ement-room-list-space)))))"},{"Add":""},{"Add":"(ement-room-list-define-key space-p ()"},{"Add":"  \"Groups rooms that are themselves spaces.\""},{"Add":"  (pcase-let* ((`[,room ,_session] item)"},{"Add":"               ((cl-struct ement-room type) room))"},{"Add":"    (when (equal \"m.space\" type)"},{"Add":"      \"Spaces\")))"},{"Add":""},{"Add":"(ement-room-list-define-key name (&key name regexp)"},{"Add":"  (pcase-let* ((`[,room ,_session] item)"},{"Add":"               (display-name (ement--room-display-name room)))"},{"Add":"    (when display-name"},{"Add":"      (when (string-match-p regexp display-name)"},{"Add":"        (or name regexp)))))"},{"Add":""},{"Add":"(ement-room-list-define-key latest (&key name newer-than older-than)"},{"Add":"  (pcase-let* ((`[,room ,_session] item)"},{"Add":"               ((cl-struct ement-room latest-ts) room)"},{"Add":"               (age))"},{"Add":"    (when latest-ts"},{"Add":"      (setf age (- (time-convert nil 'integer) (/ latest-ts 1000)))"},{"Add":"      (cond (newer-than"},{"Add":"             (when (<= age newer-than)"},{"Add":"               (or name (format \"Newer than %s seconds\" newer-than))))"},{"Add":"            (older-than"},{"Add":"             (when (>= age older-than)"},{"Add":"               (or name (format \"Older than %s seconds\" newer-than))))"},{"Add":"            (t"},{"Add":"             ;; Default to rooms with traffic in the last day."},{"Add":"             (if (<= age 86400)"},{"Add":"                 \"Last 24 hours\""},{"Add":"               \"Older than 24 hours\"))))))"},{"Add":""},{"Add":"(ement-room-list-define-key freshness"},{"Add":"  (&key (intervals '((86400 . \"Past 24h\")"},{"Add":"                     (604800 . \"Past week\")"},{"Add":"                     (2419200 . \"Past month\")"},{"Add":"                     (31536000 . \"Past year\"))))"},{"Add":"  (pcase-let* ((`[,room ,_session] item)"},{"Add":"               ((cl-struct ement-room latest-ts) room)"},{"Add":"               (age))"},{"Add":"    (when latest-ts"},{"Add":"      (setf age (- (time-convert nil 'integer) (/ latest-ts 1000)))"},{"Add":"      (or (alist-get age intervals nil nil #'>)"},{"Add":"          \"Older than a year\"))))"},{"Add":""},{"Add":"(ement-room-list-define-key session (&optional user-id)"},{"Add":"  (pcase-let ((`[,_room ,(cl-struct ement-session"},{"Add":"                                    (user (cl-struct ement-user id)))]"},{"Add":"               item))"},{"Add":"    (pcase user-id"},{"Add":"      (`nil id)"},{"Add":"      (_ (when (equal user-id id)"},{"Add":"           user-id)))))"},{"Add":""},{"Add":"(ement-room-list-define-key topic (&key name regexp)"},{"Add":"  (pcase-let ((`[,(cl-struct ement-room topic) ,_session] item))"},{"Add":"    (when (and topic (string-match-p regexp topic))"},{"Add":"      name)))"},{"Add":""},{"Add":"(ement-room-list-define-key unread ()"},{"Add":"  (pcase-let ((`[,room ,session] item))"},{"Add":"    (when (ement--room-unread-p room session)"},{"Add":"      \"Unread\")))"},{"Add":""},{"Add":"(ement-room-list-define-key favourite ()"},{"Add":"  :then #'identity"},{"Add":"  (pcase-let ((`[,room ,_session] item))"},{"Add":"    (when (ement--room-favourite-p room)"},{"Add":"      (propertize \"Favourite\" 'face 'ement-room-list-favourite))))"},{"Add":""},{"Add":"(ement-room-list-define-key low-priority ()"},{"Add":"  :then #'identity"},{"Add":"  (pcase-let ((`[,room ,_session] item))"},{"Add":"    (when (ement--room-low-priority-p room)"},{"Add":"      \"Low-priority\")))"},{"Add":""},{"Add":"(defcustom ement-room-list-default-keys"},{"Add":"  '(;; First, group all invitations (this group will appear first since the rooms are"},{"Add":"    ;; already sorted first)."},{"Add":"    ((membership :status 'invite))"},{"Add":"    ;; Group all left rooms (this group will appear last, because the rooms are already"},{"Add":"    ;; sorted last)."},{"Add":"    ((membership :status 'leave))"},{"Add":"    ;; Group all favorite rooms, which are already sorted first."},{"Add":"    (favourite)"},{"Add":"    ;; Group all low-priority rooms, which are already sorted last, and within that group,"},{"Add":"    ;; group them by their space, if any."},{"Add":"    (low-priority space)"},{"Add":"    ;; Group other rooms which are opened in a buffer."},{"Add":"    (buffer)"},{"Add":"    ;; Group other rooms which are unread."},{"Add":"    (unread)"},{"Add":"    ;; Group other rooms which are in a space by freshness, then by space."},{"Add":"    ((and :name \"Spaced\""},{"Add":"          :keys ((not space-p)"},{"Add":"                 space))"},{"Add":"     freshness space)"},{"Add":"    ;; Group spaces themselves by their parent space (since space headers can't also be"},{"Add":"    ;; items, we have to handle them separately; a bit of a hack, but not too bad)."},{"Add":"    ((and :name \"Spaces\" :keys (space-p))"},{"Add":"     space)"},{"Add":"    ;; Group rooms which aren't in spaces by their freshness."},{"Add":"    ((and :name \"Unspaced\""},{"Add":"          :keys ((not space)"},{"Add":"                 (not people)))"},{"Add":"     freshness)"},{"Add":"    ;; Group direct rooms by freshness."},{"Add":"    (people freshness))"},{"Add":"  \"Default keys.\""},{"Add":"  :type 'sexp)"},{"Add":""},{"Add":";;;; Columns"},{"Add":""},{"Add":"(eval-and-compile"},{"Add":"  (taxy-magit-section-define-column-definer \"ement-room-list\"))"},{"Add":""},{"Add":"(ement-room-list-define-column #(\"🐱\" 0 1 (help-echo \"Avatar\")) (:align 'right)"},{"Add":"  (pcase-let* ((`[,room ,_session] item)"},{"Add":"               ((cl-struct ement-room avatar display-name"},{"Add":"                           (local (map room-list-avatar)))"},{"Add":"                room))"},{"Add":"    (if ement-room-list-avatars"},{"Add":"        (or room-list-avatar"},{"Add":"            (let ((new-avatar"},{"Add":"                   (if avatar"},{"Add":"                       ;; NOTE: We resize every avatar to be suitable for this buffer, rather than using"},{"Add":"                       ;; the one cached in the room's struct.  If the buffer's faces change height, this"},{"Add":"                       ;; will need refreshing, but it should be worth it to avoid resizing the images on"},{"Add":"                       ;; every update."},{"Add":"                       (propertize \" \" 'display"},{"Add":"                                   (ement--resize-image (get-text-property 0 'display avatar)"},{"Add":"                                                        nil (frame-char-height)))"},{"Add":"                     ;; Room has no avatar: make one."},{"Add":"                     (let* ((string (or display-name (ement--room-display-name room)))"},{"Add":"                            (ement-room-prism-minimum-contrast 1)"},{"Add":"                            (color (ement--prism-color string :contrast-with \"white\")))"},{"Add":"                       (when (string-match (rx bos (or \"#\" \"!\" \"@\")) string)"},{"Add":"                         (setf string (substring string 1)))"},{"Add":"                       (propertize \" \" 'display (svg-lib-tag (substring string 0 1) nil"},{"Add":"                                                             :background color :foreground \"white\""},{"Add":"                                                             :stroke 0))))))"},{"Add":"              (setf (alist-get 'room-list-avatar (ement-room-local room)) new-avatar)))"},{"Add":"      ;; Avatars disabled: use a two-space string."},{"Add":"      \" \")))"},{"Add":""},{"Add":"(ement-room-list-define-column \"Name\" (:max-width 25)"},{"Add":"  (pcase-let* ((`[,room ,session] item)"},{"Add":"               ((cl-struct ement-room type) room)"},{"Add":"               (display-name (ement--room-display-name room))"},{"Add":"               (face))"},{"Add":"    (or (when display-name"},{"Add":"          ;; TODO: Use code from ement-room-list and put in a dedicated function."},{"Add":"          (setf face (cl-copy-list '(:inherit (ement-room-list-name))))"},{"Add":"          ;; In concert with the \"Unread\" column, this is roughly equivalent to the"},{"Add":"          ;; \"red/gray/bold/idle\" states listed in ."},{"Add":"          (when (ement--room-unread-p room session)"},{"Add":"            ;; For some reason, `push' doesn't work with `map-elt'...or does it?"},{"Add":"            (push 'ement-room-list-unread (map-elt face :inherit)))"},{"Add":"          (when (equal \"m.space\" type)"},{"Add":"            (push 'ement-room-list-space (map-elt face :inherit)))"},{"Add":"          (when (ement--room-direct-p room session)"},{"Add":"            (push 'ement-room-list-direct (map-elt face :inherit)))"},{"Add":"          (when (ement--room-favourite-p room)"},{"Add":"            (push 'ement-room-list-favourite (map-elt face :inherit)))"},{"Add":"          (when (ement--room-low-priority-p room)"},{"Add":"            (push 'ement-room-list-low-priority (map-elt face :inherit)))"},{"Add":"          (pcase (ement-room-status room)"},{"Add":"            ('invite"},{"Add":"             (push 'ement-room-list-invited (map-elt face :inherit)))"},{"Add":"            ('leave"},{"Add":"             (push 'ement-room-list-left (map-elt face :inherit))))"},{"Add":"          (propertize display-name"},{"Add":"                      'face face"},{"Add":"                      'mouse-face 'highlight"},{"Add":"                      'keymap ement-room-list-button-map))"},{"Add":"        \"\")))"},{"Add":""},{"Add":"(ement-room-list-define-column #(\"Unread\" 0 6 (help-echo \"Unread events (Notifications:Highlights)\")) (:align 'right)"},{"Add":"  (pcase-let* ((`[,(cl-struct ement-room unread-notifications) ,_session] item)"},{"Add":"               ((map notification_count highlight_count) unread-notifications))"},{"Add":"    (if (or (not unread-notifications)"},{"Add":"            (and (equal 0 notification_count)"},{"Add":"                 (equal 0 highlight_count)))"},{"Add":"        \"\""},{"Add":"      (concat (propertize (number-to-string notification_count)"},{"Add":"                          'face (if (zerop highlight_count)"},{"Add":"                                    'default"},{"Add":"                                  'ement-room-mention))"},{"Add":"              \":\""},{"Add":"              (propertize (number-to-string highlight_count)"},{"Add":"                          'face 'highlight)))))"},{"Add":""},{"Add":"(ement-room-list-define-column \"Latest\" ()"},{"Add":"  (pcase-let ((`[,(cl-struct ement-room latest-ts) ,_session] item))"},{"Add":"    (if latest-ts"},{"Add":"        (let* ((difference-seconds (- (float-time) (/ latest-ts 1000)))"},{"Add":"               (n (cl-typecase difference-seconds"},{"Add":"                    ((number 0 3599) ;; <1 hour: 10-minute periods."},{"Add":"                     (truncate (/ difference-seconds 600)))"},{"Add":"                    ((number 3600 86400) ;; 1 hour to 1 day: 24 1-hour periods."},{"Add":"                     (+ 6 (truncate (/ difference-seconds 3600))))"},{"Add":"                    (otherwise ;; Difference in weeks."},{"Add":"                     (min (/ (length ement-room-list-timestamp-colors) 2)"},{"Add":"                          (+ 24 (truncate (/ difference-seconds 86400 7)))))))"},{"Add":"               (face (list :foreground (elt ement-room-list-timestamp-colors n)))"},{"Add":"               (formatted-ts (ement--human-format-duration difference-seconds 'abbreviate)))"},{"Add":"          (string-match (rx (1+ digit) (repeat 1 alpha)) formatted-ts)"},{"Add":"          (propertize (match-string 0 formatted-ts) 'face face"},{"Add":"                      'help-echo formatted-ts))"},{"Add":"      \"\")))"},{"Add":""},{"Add":"(ement-room-list-define-column \"Topic\" (:max-width 35)"},{"Add":"  (pcase-let ((`[,(cl-struct ement-room topic status) ,_session] item))"},{"Add":"    ;; FIXME: Can the status and type unified, or is this inherent to the spec?"},{"Add":"    (when topic"},{"Add":"      (setf topic (replace-regexp-in-string \"\\n\" \" \" topic 'fixedcase 'literal)))"},{"Add":"    (pcase status"},{"Add":"      ('invite (concat (propertize \"[invited]\""},{"Add":"                                   'face 'ement-room-list-invited)"},{"Add":"                       \" \" topic))"},{"Add":"      ('leave (concat (propertize \"[left]\""},{"Add":"                                  'face 'ement-room-list-left)"},{"Add":"                      \" \" topic))"},{"Add":"      (_ (or topic \"\")))))"},{"Add":""},{"Add":"(ement-room-list-define-column \"Members\" (:align 'right)"},{"Add":"  (pcase-let ((`[,(cl-struct ement-room"},{"Add":"                             (summary (map ('m.joined_member_count member-count))))"},{"Add":"                 ,_session]"},{"Add":"               item))"},{"Add":"    (if member-count"},{"Add":"        (number-to-string member-count)"},{"Add":"      \"\")))"},{"Add":""},{"Add":"(ement-room-list-define-column #(\"Notifications\" 0 5 (help-echo \"Notification state\")) ()"},{"Add":"  (pcase-let* ((`[,room ,session] item))"},{"Add":"    (pcase (ement-room-notification-state room session)"},{"Add":"      ('nil \"default\")"},{"Add":"      ('all-loud \"all (loud)\")"},{"Add":"      ('all \"all\")"},{"Add":"      ('mentions-and-keywords \"mentions\")"},{"Add":"      ('none \"none\"))))"},{"Add":""},{"Add":"(ement-room-list-define-column #(\"B\" 0 1 (help-echo \"Buffer exists for room\")) ()"},{"Add":"  (pcase-let ((`[,(cl-struct ement-room (local (map buffer))) ,_session] item))"},{"Add":"    (if buffer"},{"Add":"        #(\"B\" 0 1 (help-echo \"Buffer exists for room\"))"},{"Add":"      \" \")))"},{"Add":""},{"Add":"(ement-room-list-define-column \"Session\" ()"},{"Add":"  (pcase-let ((`[,_room ,(cl-struct ement-session (user (cl-struct ement-user id)))] item))"},{"Add":"    id))"},{"Add":""},{"Add":"(unless ement-room-list-columns"},{"Add":"  ;; TODO: Automate this or document it"},{"Add":"  (setq-default ement-room-list-columns"},{"Add":"                (get 'ement-room-list-columns 'standard-value)))"},{"Add":""},{"Add":";;;; Bookmark support"},{"Add":""},{"Add":";; Especially useful with Burly: "},{"Add":""},{"Add":"(require 'bookmark)"},{"Add":""},{"Add":"(defun ement-room-list-bookmark-make-record ()"},{"Add":"  \"Return a bookmark record for the `ement-room-list' buffer.\""},{"Add":"  (list \"*Ement Room List*\""},{"Add":"        (cons 'handler #'ement-room-list-bookmark-handler)))"},{"Add":""},{"Add":"(defun ement-room-list-bookmark-handler (bookmark)"},{"Add":"  \"Show `ement-room-list' room list buffer for BOOKMARK.\""},{"Add":"  (pcase-let* ((`(,_bookmark-name . ,_) bookmark))"},{"Add":"    (unless ement-sessions"},{"Add":"      ;; MAYBE: Automatically connect."},{"Add":"      (user-error \"No sessions connected: call `ement-connect' first\"))"},{"Add":"    (ement-room-list)))"},{"Add":""},{"Add":";;;; Commands"},{"Add":""},{"Add":"(defun ement-room-list-section-toggle ()"},{"Add":"  \"Toggle the section at point.\""},{"Add":"  ;; HACK: For some reason, when a section's body is hidden, then the buffer is refreshed,"},{"Add":"  ;; and then the section's body is shown again, the body is empty--but then, refreshing"},{"Add":"  ;; the buffer shows its body.  So we work around that by refreshing the buffer when a"},{"Add":"  ;; section is toggled.  In a way, it makes sense to do this anyway, so the user has the"},{"Add":"  ;; most up-to-date information in the buffer.  This hack also works around a minor"},{"Add":"  ;; visual bug that sometimes causes room avatars to be displayed in a section heading"},{"Add":"  ;; when a section is hidden."},{"Add":"  (interactive)"},{"Add":"  (ignore-errors"},{"Add":"    ;; Ignore an error in case point is past the top-level section."},{"Add":"    (cl-typecase (aref (oref (magit-current-section) value) 0)"},{"Add":"      (ement-room"},{"Add":"       ;; HACK: Don't hide rooms themselves (they end up permanently hidden)."},{"Add":"       nil)"},{"Add":"      (otherwise"},{"Add":"       (call-interactively #'magit-section-toggle)"},{"Add":"       (revert-buffer)))))"},{"Add":""},{"Add":";;;###autoload"},{"Add":"(defun ement-room-list--after-initial-sync (&rest _ignore)"},{"Add":"  \"Call `ement-room-list', ignoring arguments."},{"Add":"To be called from `ement-after-initial-sync-hook'.\""},{"Add":"  (ement-room-list))"},{"Add":""},{"Add":";;;###autoload"},{"Add":"(defalias 'ement-list-rooms 'ement-room-list)"},{"Add":""},{"Add":";;;###autoload"},{"Add":"(cl-defun ement-room-list (&key (buffer-name \"*Ement Room List*\")"},{"Add":"                                (keys ement-room-list-default-keys)"},{"Add":"                                (display-buffer-action '((display-buffer-reuse-window display-buffer-same-window)))"},{"Add":"                                ;; visibility-fn"},{"Add":"                                )"},{"Add":"  \"Show a buffer listing Ement rooms, grouped with Taxy KEYS."},{"Add":"After showing it, its window is selected.  The buffer is named"},{"Add":"BUFFER-NAME and is shown with DISPLAY-BUFFER-ACTION; or if"},{"Add":"DISPLAY-BUFFER-ACTION is nil, the buffer is not displayed.\""},{"Add":"  (interactive)"},{"Add":"  (let ((inhibit-read-only t)"},{"Add":"        pos format-table column-sizes window-start room-session-vectors)"},{"Add":"    (cl-labels (;; (heading-face"},{"Add":"                ;;  (depth) (list :inherit (list 'bufler-group (bufler-level-face depth))))"},{"Add":"                (format-item (item) (gethash item format-table))"},{"Add":"                ;; NOTE: Since these functions take an \"item\" (which is a [room session]"},{"Add":"                ;; vector), they're prefixed \"item-\" rather than \"room-\"."},{"Add":"                (item-latest-ts"},{"Add":"                 (item) (or (ement-room-latest-ts (elt item 0))"},{"Add":"                            ;; Room has no latest timestamp.  FIXME: This shouldn't"},{"Add":"                            ;; happen, but it can, maybe due to oversights elsewhere."},{"Add":"                            0))"},{"Add":"                (item-unread-p"},{"Add":"                 (item) (pcase-let ((`[,room ,session] item))"},{"Add":"                          (ement--room-unread-p room session)))"},{"Add":"                (item-left-p"},{"Add":"                 (item) (pcase-let ((`[,(cl-struct ement-room status) ,_session] item))"},{"Add":"                          (equal 'leave status)))"},{"Add":"                (item-buffer-p"},{"Add":"                 (item) (pcase-let ((`[,(cl-struct ement-room (local (map buffer))) ,_session] item))"},{"Add":"                          (buffer-live-p buffer)))"},{"Add":"                (taxy-unread-p"},{"Add":"                 (taxy) (or (cl-some #'item-unread-p (taxy-items taxy))"},{"Add":"                            (cl-some #'taxy-unread-p (taxy-taxys taxy))))"},{"Add":"                (item-space-p"},{"Add":"                 (item) (pcase-let ((`[,(cl-struct ement-room type) ,_session] item))"},{"Add":"                          (equal \"m.space\" type)))"},{"Add":"                (item-favourite-p"},{"Add":"                 (item) (pcase-let ((`[,room ,_session] item))"},{"Add":"                          (ement--room-favourite-p room)))"},{"Add":"                (item-low-priority-p"},{"Add":"                 (item) (pcase-let ((`[,room ,_session] item))"},{"Add":"                          (ement--room-low-priority-p room)))"},{"Add":"                (visible-p"},{"Add":"                 ;; This is very confusing and doesn't currently work."},{"Add":"                 (section) (let ((value (oref section value)))"},{"Add":"                             (if (cl-typecase value"},{"Add":"                                   (taxy-magit-section (item-unread-p value))"},{"Add":"                                   (ement-room nil))"},{"Add":"                                 'show"},{"Add":"                               'hide)))"},{"Add":"                (item-invited-p"},{"Add":"                 (item) (pcase-let ((`[,(cl-struct ement-room status) ,_session] item))"},{"Add":"                          (equal 'invite status)))"},{"Add":"                (taxy-latest-ts"},{"Add":"                 (taxy) (apply #'max most-negative-fixnum"},{"Add":"                               (delq nil"},{"Add":"                                     (list"},{"Add":"                                      (when (taxy-items taxy)"},{"Add":"                                        (item-latest-ts (car (taxy-items taxy))))"},{"Add":"                                      (when (taxy-taxys taxy)"},{"Add":"                                        (cl-loop for sub-taxy in (taxy-taxys taxy)"},{"Add":"                                                 maximizing (taxy-latest-ts sub-taxy)))))))"},{"Add":"                (tnil (a b) (and (not a) b))"},{"Add":"                (make-fn (&rest args)"},{"Add":"                         (apply #'make-taxy-magit-section"},{"Add":"                                :make #'make-fn"},{"Add":"                                :format-fn #'format-item"},{"Add":"                                :level-indent ement-room-list-level-indent"},{"Add":"                                ;; :visibility-fn #'visible-p"},{"Add":"                                ;; :heading-indent 2"},{"Add":"                                :item-indent 2"},{"Add":"                                ;; :heading-face-fn #'heading-face"},{"Add":"                                args)))"},{"Add":"      ;; (when (get-buffer buffer-name)"},{"Add":"      ;;   (kill-buffer buffer-name))"},{"Add":"      (unless ement-sessions"},{"Add":"        (error \"Ement: Not connected.  Use `ement-connect' to connect\"))"},{"Add":"      (setf room-session-vectors"},{"Add":"            (cl-loop for (_id . session) in ement-sessions"},{"Add":"                     append (cl-loop for room in (ement-session-rooms session)"},{"Add":"                                     collect (vector room session))))"},{"Add":"      (with-current-buffer (get-buffer-create buffer-name)"},{"Add":"        (setf pos (point))"},{"Add":"        (ement-room-list-mode)"},{"Add":"        (delete-all-overlays)"},{"Add":"        (erase-buffer)"},{"Add":"        (if (not room-session-vectors)"},{"Add":"            (insert \"No joined rooms.  Use command `ement-join-room' to join a room, or `ement-directory' or `ement-directory-search' to find rooms.\")"},{"Add":"          (let* ((taxy (cl-macrolet ((first-item"},{"Add":"                                      (pred) `(lambda (taxy)"},{"Add":"                                                (when (taxy-items taxy)"},{"Add":"                                                  (,pred (car (taxy-items taxy))))))"},{"Add":"                                     (name= (name) `(lambda (taxy)"},{"Add":"                                                      (equal ,name (taxy-name taxy)))))"},{"Add":"                         (thread-last"},{"Add":"                           (make-fn"},{"Add":"                            :name \"Ement Rooms\""},{"Add":"                            :take (taxy-make-take-function keys ement-room-list-keys))"},{"Add":"                           (taxy-fill room-session-vectors)"},{"Add":"                           (taxy-sort #'> #'item-latest-ts)"},{"Add":"                           (taxy-sort #'tnil #'item-low-priority-p)"},{"Add":"                           (taxy-sort #'tnil #'item-left-p)"},{"Add":"                           (taxy-sort* #'string< #'taxy-name)"},{"Add":"                           (taxy-sort* #'> #'taxy-latest-ts)"},{"Add":"                           (taxy-sort* #'tnil (first-item item-space-p))"},{"Add":"                           (taxy-sort* #'t>nil (name= \"Low-priority\"))"},{"Add":"                           (taxy-sort* #'t>nil (first-item item-left-p)))))"},{"Add":"                 (taxy-magit-section-insert-indent-items nil)"},{"Add":"                 (format-cons (taxy-magit-section-format-items"},{"Add":"                               ement-room-list-columns ement-room-list-column-formatters taxy))"},{"Add":"                 (section-ident (when (magit-current-section)"},{"Add":"                                  (magit-section-ident (magit-current-section)))))"},{"Add":"            (setf format-table (car format-cons)"},{"Add":"                  column-sizes (cdr format-cons)"},{"Add":"                  header-line-format (taxy-magit-section-format-header"},{"Add":"                                      column-sizes ement-room-list-column-formatters)"},{"Add":"                  window-start (if (get-buffer-window buffer-name)"},{"Add":"                                   (window-start (get-buffer-window buffer-name))"},{"Add":"                                 0))"},{"Add":"            (when ement-room-list-visibility-cache"},{"Add":"              (setf magit-section-visibility-cache ement-room-list-visibility-cache))"},{"Add":"            (add-hook 'kill-buffer-hook #'ement-room-list--cache-visibility nil 'local)"},{"Add":"            (save-excursion"},{"Add":"              (taxy-magit-section-insert taxy :items 'first"},{"Add":"                ;; :blank-between-depth bufler-taxy-blank-between-depth"},{"Add":"                :initial-depth 0))"},{"Add":"            (goto-char pos)"},{"Add":"            (when (and section-ident (magit-get-section section-ident))"},{"Add":"              (goto-char (oref (magit-get-section section-ident) start))))))"},{"Add":"      (when display-buffer-action"},{"Add":"        (when-let ((window (display-buffer buffer-name display-buffer-action)))"},{"Add":"          (select-window window)))"},{"Add":"      (when (get-buffer-window buffer-name)"},{"Add":"        (set-window-start (get-buffer-window buffer-name) window-start))"},{"Add":"      ;; NOTE: In order for `bookmark--jump-via' to work properly, the restored buffer"},{"Add":"      ;; must be set as the current buffer, so we have to do this explicitly here."},{"Add":"      (set-buffer buffer-name))))"},{"Add":""},{"Add":"(cl-defun ement-room-list-side-window (&key (side 'left))"},{"Add":"  \"Show room list in side window on SIDE."},{"Add":"Interactively, with prefix, show on right side; otherwise, on"},{"Add":"left.\""},{"Add":"  (interactive (when current-prefix-arg"},{"Add":"                 (list :side 'right)))"},{"Add":"  (let ((display-buffer-mark-dedicated t))"},{"Add":"    ;; Not sure if binding `display-buffer-mark-dedicated' is still necessary."},{"Add":"    (ement-room-list"},{"Add":"     :display-buffer-action `(display-buffer-in-side-window"},{"Add":"                              (dedicated . t)"},{"Add":"                              (side . ,side)"},{"Add":"                              (window-parameters"},{"Add":"\t\t\t       (no-delete-other-windows . t))))))"},{"Add":""},{"Add":"(defun ement-room-list-revert (&optional _ignore-auto _noconfirm)"},{"Add":"  \"Revert current Ement-Room-List buffer.\""},{"Add":"  (interactive)"},{"Add":"  (with-current-buffer \"*Ement Room List*\""},{"Add":"    ;; FIXME: This caching of the visibility only supports the main buffer with the"},{"Add":"    ;; default name, not any special ones with different names."},{"Add":"    (setf ement-room-list-visibility-cache magit-section-visibility-cache))"},{"Add":"  (ement-room-list :display-buffer-action nil))"},{"Add":""},{"Add":"(defun ement-room-list-kill-buffer (room)"},{"Add":"  \"Kill ROOM's buffer.\""},{"Add":"  (interactive"},{"Add":"   (ement-with-room-and-session"},{"Add":"     (ignore ement-session)"},{"Add":"     (list ement-room)))"},{"Add":"  (pcase-let (((cl-struct ement-room (local (map buffer))) room)"},{"Add":"              (kill-buffer-query-functions))"},{"Add":"    (when (buffer-live-p buffer)"},{"Add":"      (kill-buffer buffer)"},{"Add":"      (ement-room-list-revert))))"},{"Add":""},{"Add":"(declare-function ement-view-room \"ement-room\")"},{"Add":"(defun ement-room-list-RET ()"},{"Add":"  \"View room at point, or cycle section at point.\""},{"Add":"  (interactive)"},{"Add":"  (cl-etypecase (oref (magit-current-section) value)"},{"Add":"    (vector (pcase-let ((`[,room ,session] (oref (magit-current-section) value)))"},{"Add":"              (ement-view-room room session)))"},{"Add":"    (taxy-magit-section (call-interactively #'ement-room-list-section-toggle))"},{"Add":"    (null nil)))"},{"Add":""},{"Add":"(declare-function ement-room-goto-fully-read-marker \"ement-room\")"},{"Add":"(defun ement-room-list-next-unread ()"},{"Add":"  \"Show next unread room.\""},{"Add":"  (interactive)"},{"Add":"  (unless (button-at (point))"},{"Add":"    (call-interactively #'forward-button))"},{"Add":"  (unless (cl-loop with starting-line = (line-number-at-pos)"},{"Add":"                   for value = (oref (magit-current-section) value)"},{"Add":"                   for room = (elt value 0)"},{"Add":"                   for session = (elt value 1)"},{"Add":"                   if (ement--room-unread-p room session)"},{"Add":"                   do (progn"},{"Add":"                        (goto-char (button-end (button-at (point))))"},{"Add":"                        (push-button (1- (point)))"},{"Add":"                        (ement-room-goto-fully-read-marker)"},{"Add":"                        (cl-return t))"},{"Add":"                   else do (call-interactively #'forward-button)"},{"Add":"                   while (> (line-number-at-pos) starting-line))"},{"Add":"    ;; No more unread rooms."},{"Add":"    (message \"No more unread rooms\")))"},{"Add":""},{"Add":"(define-derived-mode ement-room-list-mode magit-section-mode \"Ement-Room-List\""},{"Add":"  :global nil"},{"Add":"  (setq-local bookmark-make-record-function #'ement-room-list-bookmark-make-record"},{"Add":"              revert-buffer-function #'ement-room-list-revert"},{"Add":"              ement-room-list-timestamp-colors (ement-room-list--timestamp-colors)))"},{"Add":""},{"Add":";;;; Functions"},{"Add":""},{"Add":"(defun ement-room-list--cache-visibility ()"},{"Add":"  \"Save visibility cache."},{"Add":"Sets `ement-room-list-visibility-cache' to the value of"},{"Add":"`magit-section-visibility-cache'.  To be called in"},{"Add":"`kill-buffer-hook'.\""},{"Add":"  (ignore-errors"},{"Add":"    (when magit-section-visibility-cache"},{"Add":"      (setf ement-room-list-visibility-cache magit-section-visibility-cache))))"},{"Add":""},{"Add":";;;###autoload"},{"Add":"(defun ement-room-list-auto-update (_session)"},{"Add":"  \"Automatically update the Taxy room list buffer."},{"Add":"+Does so when variable `ement-room-list-auto-update' is non-nil."},{"Add":"+To be called in `ement-sync-callback-hook'.\""},{"Add":"  (when (and ement-room-list-auto-update"},{"Add":"             (buffer-live-p (get-buffer \"*Ement Room List*\")))"},{"Add":"    (with-current-buffer (get-buffer \"*Ement Room List*\")"},{"Add":"      (unless (region-active-p)"},{"Add":"        ;; Don't refresh the list if the region is active (e.g. if the user is trying to"},{"Add":"        ;; operate on multiple rooms)."},{"Add":"        (revert-buffer)))))"},{"Add":""},{"Add":"(defun ement-room-list--timestamp-colors ()"},{"Add":"  \"Return a vector of generated latest-timestamp colors for rooms."},{"Add":"Used in `ement-tabulated-room-list' and `ement-room-list'.\""},{"Add":"  (if (or (equal \"unspecified-fg\" (face-foreground 'default nil 'default))"},{"Add":"          (equal \"unspecified-bg\" (face-background 'default nil 'default)))"},{"Add":"      ;; NOTE: On a TTY, the default face's foreground and background colors may be the"},{"Add":"      ;; special values \"unspecified-fg\"/\"unspecified-bg\", in which case we can't generate"},{"Add":"      ;; gradients, so we just return a vector of \"unspecified-fg\".  See"},{"Add":"      ;; ."},{"Add":"      (make-vector 134 \"unspecified-fg\")"},{"Add":"    (cl-coerce"},{"Add":"     (append (mapcar"},{"Add":"              ;; One face per 10-minute period, from \"recent\" to 1-hour."},{"Add":"              (lambda (rgb)"},{"Add":"                (pcase-let ((`(,r ,g ,b) rgb))"},{"Add":"                  (color-rgb-to-hex r g b 2)))"},{"Add":"              (color-gradient (color-name-to-rgb (face-foreground 'ement-room-list-very-recent"},{"Add":"                                                                  nil 'default))"},{"Add":"                              (color-name-to-rgb (face-foreground 'ement-room-list-recent"},{"Add":"                                                                  nil 'default))"},{"Add":"                              6))"},{"Add":"             (mapcar"},{"Add":"              ;; One face per hour, from \"recent\" to default."},{"Add":"              (lambda (rgb)"},{"Add":"                (pcase-let ((`(,r ,g ,b) rgb))"},{"Add":"                  (color-rgb-to-hex r g b 2)))"},{"Add":"              (color-gradient (color-name-to-rgb (face-foreground 'ement-room-list-recent"},{"Add":"                                                                  nil 'default))"},{"Add":"                              (color-name-to-rgb (face-foreground 'default nil 'default))"},{"Add":"                              24))"},{"Add":"             (mapcar"},{"Add":"              ;; One face per week for the last year (actually we"},{"Add":"              ;; generate colors for the past two years' worth so"},{"Add":"              ;; that the face for one-year-ago is halfway to"},{"Add":"              ;; invisible, and we don't use colors past that point)."},{"Add":"              (lambda (rgb)"},{"Add":"                (pcase-let ((`(,r ,g ,b) rgb))"},{"Add":"                  (color-rgb-to-hex r g b 2)))"},{"Add":"              (color-gradient (color-name-to-rgb (face-foreground 'default nil 'default))"},{"Add":"                              (color-name-to-rgb (face-background 'default nil 'default))"},{"Add":"                              104)))"},{"Add":"     'vector)))"},{"Add":""},{"Add":";;;; Footer"},{"Add":""},{"Add":"(provide 'ement-room-list)"},{"Add":""},{"Add":";;; ement-room-list.el ends here"}]}},{"FileAdd":{"meta":{"basename":"ement-pkg.el","metadata":0},"context":[{"change":0,"pos":483987}],"contents":[{"Add":";; Generated package description from ement.el  -*- no-byte-compile: t -*-"},{"Add":"(define-package \"ement\" \"0.9.2\" \"Matrix client\" '((emacs \"27.1\") (map \"2.1\") (persist \"0.5\") (plz \"0.2\") (taxy \"0.10\") (taxy-magit-section \"0.12.1\") (svg-lib \"0.2.5\") (transient \"0.3.7\")) :commit \"7f39fa5694232fa3f0a32b2104187fe1e886c202\" :authors '((\"Adam Porter\" . \"adam@alphapapa.net\")) :maintainer '(\"Adam Porter\" . \"adam@alphapapa.net\") :keywords '(\"comm\") :url \"https://github.com/alphapapa/ement.el\")"}]}},{"FileAdd":{"meta":{"basename":"ement-notify.el","metadata":0},"context":[{"change":0,"pos":483987}],"contents":[{"Add":";;; ement-notify.el --- Notifications for Ement events  -*- lexical-binding: t; -*-"},{"Add":""},{"Add":";; Copyright (C) 2022  Free Software Foundation, Inc."},{"Add":""},{"Add":";; Author: Adam Porter "},{"Add":";; Maintainer: Adam Porter "},{"Add":""},{"Add":";; This program is free software; you can redistribute it and/or modify"},{"Add":";; it under the terms of the GNU General Public License as published by"},{"Add":";; the Free Software Foundation, either version 3 of the License, or"},{"Add":";; (at your option) any later version."},{"Add":""},{"Add":";; This program is distributed in the hope that it will be useful,"},{"Add":";; but WITHOUT ANY WARRANTY; without even the implied warranty of"},{"Add":";; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the"},{"Add":";; GNU General Public License for more details."},{"Add":""},{"Add":";; You should have received a copy of the GNU General Public License"},{"Add":";; along with this program.  If not, see ."},{"Add":""},{"Add":";;; Commentary:"},{"Add":""},{"Add":";; This library implements notifications for Ement events."},{"Add":""},{"Add":";;; Code:"},{"Add":""},{"Add":";;;; Requirements"},{"Add":""},{"Add":"(require 'cl-lib)"},{"Add":"(require 'map)"},{"Add":"(require 'notifications)"},{"Add":""},{"Add":"(require 'ement-lib)"},{"Add":"(require 'ement-room)"},{"Add":""},{"Add":"(eval-when-compile"},{"Add":"  (require 'ement-structs))"},{"Add":""},{"Add":";;;; Variables"},{"Add":""},{"Add":"(declare-function ement-room-list \"ement-room-list\")"},{"Add":"(defvar ement-notify-mode-map"},{"Add":"  (let ((map (make-sparse-keymap)))"},{"Add":"    (define-key map (kbd \"S-\") #'ement-notify-reply)"},{"Add":"    (define-key map (kbd \"M-g M-l\") #'ement-room-list)"},{"Add":"    (define-key map (kbd \"M-g M-m\") #'ement-notify-switch-to-mentions-buffer)"},{"Add":"    (define-key map (kbd \"M-g M-n\") #'ement-notify-switch-to-notifications-buffer)"},{"Add":"    (make-composed-keymap (list map button-buffer-map) 'view-mode-map))"},{"Add":"  \"Map for Ement notification buffers.\")"},{"Add":""},{"Add":"(defvar ement-notify-dbus-p"},{"Add":"  (and (featurep 'dbusbind)"},{"Add":"       (require 'dbus nil :no-error)"},{"Add":"       (dbus-ignore-errors (dbus-get-unique-name :session))"},{"Add":"       ;; By default, emacs waits up to 25 seconds for a PONG.  Realistically, if there's"},{"Add":"       ;; no pong after 2000ms, there's pretty sure no notification service connected or"},{"Add":"       ;; the system's setup has issues."},{"Add":"       (dbus-ping :session \"org.freedesktop.Notifications\" 2000))"},{"Add":"  \"Whether D-Bus notifications are usable.\")"},{"Add":""},{"Add":";;;; Customization"},{"Add":""},{"Add":"(defgroup ement-notify nil"},{"Add":"  \"Notification options.\""},{"Add":"  :group 'ement)"},{"Add":""},{"Add":"(defcustom ement-notify-ignore-predicates"},{"Add":"  '(ement-notify--event-not-message-p ement-notify--event-from-session-user-p)"},{"Add":"  \"Display notification if none of these return non-nil for an event."},{"Add":"Each predicate is called with three arguments: the event, the"},{"Add":"room, and the session (each the respective struct).\""},{"Add":"  :type '(repeat (choice (function-item ement-notify--event-not-message-p)"},{"Add":"                         (function-item ement-notify--event-from-session-user-p)"},{"Add":"                         (function :tag \"Custom predicate\"))))"},{"Add":""},{"Add":"(defcustom ement-notify-log-predicates"},{"Add":"  '(ement-notify--event-mentions-session-user-p"},{"Add":"    ement-notify--event-mentions-room-p"},{"Add":"    ement-notify--room-buffer-live-p"},{"Add":"    ement-notify--room-unread-p)"},{"Add":"  \"Predicates to determine whether to log an event to the notifications buffer."},{"Add":"If one of these returns non-nil for an event, the event is logged.\""},{"Add":"  :type 'hook"},{"Add":"  :options '(ement-notify--event-mentions-session-user-p"},{"Add":"             ement-notify--event-mentions-room-p"},{"Add":"             ement-notify--room-buffer-live-p"},{"Add":"             ement-notify--room-unread-p))"},{"Add":""},{"Add":"(defcustom ement-notify-mark-frame-urgent-predicates"},{"Add":"  '(ement-notify--event-mentions-session-user-p"},{"Add":"    ement-notify--event-mentions-room-p)"},{"Add":"  \"Predicates to determine whether to mark a frame as urgent."},{"Add":"If one of these returns non-nil for an event, the frame that most"},{"Add":"recently showed the event's room's buffer is marked"},{"Add":"urgent.  (Only works on X, not other GUI platforms.)\""},{"Add":"  :type 'hook"},{"Add":"  :options '(ement-notify--event-mentions-session-user-p"},{"Add":"             ement-notify--event-mentions-room-p))"},{"Add":""},{"Add":"(defcustom ement-notify-mention-predicates"},{"Add":"  '(ement-notify--event-mentions-session-user-p"},{"Add":"    ement-notify--event-mentions-room-p)"},{"Add":"  \"Predicates to determine whether to log an event to the mentions buffer."},{"Add":"If one of these returns non-nil for an event, the event is logged.\""},{"Add":"  :type 'hook"},{"Add":"  :options '(ement-notify--event-mentions-session-user-p"},{"Add":"             ement-notify--event-mentions-room-p))"},{"Add":""},{"Add":"(defcustom ement-notify-notification-predicates"},{"Add":"  '(ement-notify--event-mentions-session-user-p"},{"Add":"    ement-notify--event-mentions-room-p"},{"Add":"    ement-notify--room-buffer-live-p"},{"Add":"    ement-notify--room-unread-p)"},{"Add":"  \"Predicates to determine whether to send a desktop notification."},{"Add":"If one of these returns non-nil for an event, the notification is sent.\""},{"Add":"  :type 'hook"},{"Add":"  :options '(ement-notify--event-mentions-session-user-p"},{"Add":"             ement-notify--event-mentions-room-p"},{"Add":"             ement-notify--room-buffer-live-p"},{"Add":"             ement-notify--room-unread-p))"},{"Add":""},{"Add":"(defcustom ement-notify-sound nil"},{"Add":"  \"Sound to play for notifications.\""},{"Add":"  :type '(choice (file :tag \"Sound file\")"},{"Add":"                 (string :tag \"XDG sound name\")"},{"Add":"                 (const :tag \"Default XDG message sound\" \"message-new-instant\")"},{"Add":"                 (const :tag \"Don't play a sound\" nil)))"},{"Add":""},{"Add":"(defcustom ement-notify-limit-room-name-width nil"},{"Add":"  \"Limit the width of room display names in mentions and notifications buffers."},{"Add":"This prevents the margin from being made excessively wide.\""},{"Add":"  :type '(choice (integer :tag \"Maximum width\")"},{"Add":"                 (const :tag \"Unlimited width\" nil)))"},{"Add":""},{"Add":"(defcustom ement-notify-prism-background nil"},{"Add":"  \"Add distinct background color by room to messages in notification buffers."},{"Add":"The color is specific to each room, generated automatically, and"},{"Add":"can help distinguish messages by room.\""},{"Add":"  :type 'boolean)"},{"Add":""},{"Add":"(defcustom ement-notify-room-avatars t"},{"Add":"  \"Show room avatars in the notifications buffers."},{"Add":"This shows room avatars at the left of the window margin in"},{"Add":"notification buffers.  It's not customizeable beyond that due to"},{"Add":"limitations and complexities of displaying strings and images in"},{"Add":"margins in Emacs.  But it's useful, anyway.\""},{"Add":"  :type 'boolean)"},{"Add":""},{"Add":";;;; Commands"},{"Add":""},{"Add":"(declare-function ement-room-goto-event \"ement-room\")"},{"Add":"(defun ement-notify-button-action (button)"},{"Add":"  \"Show BUTTON's event in its room buffer.\""},{"Add":"  ;; TODO: Is `interactive' necessary here?"},{"Add":"  (interactive)"},{"Add":"  (let* ((session (button-get button 'session))"},{"Add":"         (room (button-get button 'room))"},{"Add":"         (event (button-get button 'event)))"},{"Add":"    (ement-view-room room session)"},{"Add":"    (ement-room-goto-event event)))"},{"Add":""},{"Add":"(defun ement-notify-reply ()"},{"Add":"  \"Send a reply to event at point.\""},{"Add":"  (interactive)"},{"Add":"  (save-window-excursion"},{"Add":"    ;; Not sure why `call-interactively' doesn't work for `push-button' but oh well."},{"Add":"    (push-button)"},{"Add":"    (call-interactively #'ement-room-write-reply)))"},{"Add":""},{"Add":"(defun ement-notify-switch-to-notifications-buffer ()"},{"Add":"  \"Switch to \\\"*Ement Notifications*\\\" buffer.\""},{"Add":"  (interactive)"},{"Add":"  (switch-to-buffer (ement-notify--log-buffer \"*Ement Notifications*\")))"},{"Add":""},{"Add":"(defun ement-notify-switch-to-mentions-buffer ()"},{"Add":"  \"Switch to \\\"*Ement Mentions*\\\" buffer.\""},{"Add":"  (interactive)"},{"Add":"  (switch-to-buffer (ement-notify--log-buffer \"*Ement Mentions*\")))"},{"Add":""},{"Add":";;;; Functions"},{"Add":""},{"Add":"(defun ement-notify (event room session)"},{"Add":"  \"Send notifications for EVENT in ROOM on SESSION."},{"Add":"Sends if all of `ement-notify-ignore-predicates' return nil."},{"Add":"Does not do anything if session hasn't finished initial sync.\""},{"Add":"  (when (and (ement-session-has-synced-p session)"},{"Add":"             (cl-loop for pred in ement-notify-ignore-predicates"},{"Add":"                      never (funcall pred event room session)))"},{"Add":"    (when (and ement-notify-dbus-p"},{"Add":"               (run-hook-with-args-until-success 'ement-notify-notification-predicates event room session))"},{"Add":"      (ement-notify--notifications-notify event room session))"},{"Add":"    (when (run-hook-with-args-until-success 'ement-notify-log-predicates event room session)"},{"Add":"      (ement-notify--log-to-buffer event room session))"},{"Add":"    (when (run-hook-with-args-until-success 'ement-notify-mention-predicates event room session)"},{"Add":"      (ement-notify--log-to-buffer event room session :buffer-name \"*Ement Mentions*\"))"},{"Add":"    (when (run-hook-with-args-until-success 'ement-notify-mark-frame-urgent-predicates event room session)"},{"Add":"      (ement-notify--mark-frame-urgent event room session))))"},{"Add":""},{"Add":"(defun ement-notify--mark-frame-urgent (_event room _session)"},{"Add":"  \"Mark frame showing ROOM's buffer as urgent."},{"Add":"If ROOM has no existing buffer, do nothing.\""},{"Add":"  (cl-labels ((mark-frame-urgent"},{"Add":"               (frame) (let* ((prop \"WM_HINTS\")"},{"Add":"                              (hints (cl-coerce"},{"Add":"                                      (x-window-property prop frame prop nil nil t)"},{"Add":"                                      'list)))"},{"Add":"                         (setf (car hints) (logior (car hints) 256))"},{"Add":"                         (x-change-window-property prop hints nil prop 32 t))))"},{"Add":"    (when-let* ((buffer (alist-get 'buffer (ement-room-local room)))"},{"Add":"                (frames (cl-loop for frame in (frame-list)"},{"Add":"                                 when (eq 'x (framep frame))"},{"Add":"                                 collect frame))"},{"Add":"                (frame (pcase (length frames)"},{"Add":"                         (1 (car frames))"},{"Add":"                         (_"},{"Add":"                          ;; Use the frame that most recently showed ROOM's buffer."},{"Add":"                          (car (sort frames"},{"Add":"                                     (lambda (frame-a frame-b)"},{"Add":"                                       (let ((a-pos (cl-position buffer (buffer-list frame-a)))"},{"Add":"                                             (b-pos (cl-position buffer (buffer-list frame-b))))"},{"Add":"                                         (cond ((and a-pos b-pos)"},{"Add":"                                                (< a-pos b-pos))"},{"Add":"                                               (a-pos)"},{"Add":"                                               (b-pos))))))))))"},{"Add":"      (mark-frame-urgent frame))))"},{"Add":""},{"Add":"(defun ement-notify--notifications-notify (event room _session)"},{"Add":"  \"Call `notifications-notify' for EVENT in ROOM on SESSION.\""},{"Add":"  (pcase-let* (((cl-struct ement-event sender content) event)"},{"Add":"               ((cl-struct ement-room avatar (display-name room-displayname)) room)"},{"Add":"               ((map body) content)"},{"Add":"               (room-name (or room-displayname (ement--room-display-name room)))"},{"Add":"               (sender-name (ement--user-displayname-in room sender))"},{"Add":"               (title (format \"%s in %s\" sender-name room-name)))"},{"Add":"    ;; TODO: Encode HTML entities."},{"Add":"    (when (stringp body)"},{"Add":"      ;; If event has no body, it was probably redacted or something, so don't notify."},{"Add":"      (truncate-string-to-width body 60)"},{"Add":"      (notifications-notify :title title :body body"},{"Add":"                            :app-name \"Ement.el\""},{"Add":"                            :app-icon (when avatar"},{"Add":"                                        (ement-notify--temp-file"},{"Add":"                                         (plist-get (cdr (get-text-property 0 'display avatar)) :data)))"},{"Add":"                            :category \"im.received\""},{"Add":"                            :timeout 5000"},{"Add":"                            ;; FIXME: Using :sound-file seems to do nothing, ever.  Maybe a bug in notifications-notify?"},{"Add":"                            :sound-file (when (and ement-notify-sound"},{"Add":"                                                   (file-name-absolute-p ement-notify-sound))"},{"Add":"                                          ement-notify-sound)"},{"Add":"                            :sound-name (when (and ement-notify-sound"},{"Add":"                                                   (not (file-name-absolute-p ement-notify-sound)))"},{"Add":"                                          ement-notify-sound)"},{"Add":"                            ;; TODO: Show when action used."},{"Add":"                            ;; :actions '(\"default\" \"Show\")"},{"Add":"                            ;; :on-action #'ement-notify-show"},{"Add":"                            ))))"},{"Add":""},{"Add":"(cl-defun ement-notify--temp-file (content &key (timeout 5))"},{"Add":"  \"Return a filename holding CONTENT, and delete it after TIMEOUT seconds.\""},{"Add":"  (let ((filename (make-temp-file \"ement-notify--temp-file-\"))"},{"Add":"        (coding-system-for-write 'no-conversion))"},{"Add":"    (with-temp-file filename"},{"Add":"      (insert content))"},{"Add":"    (run-at-time timeout nil (lambda ()"},{"Add":"                               (delete-file filename)))"},{"Add":"    filename))"},{"Add":""},{"Add":"(define-derived-mode ement-notify-mode ement-room-mode \"Ement Notify\""},{"Add":"  (setf ement-room-sender-in-left-margin nil"},{"Add":"        left-margin-width 0"},{"Add":"        right-margin-width 8)"},{"Add":"  (setq-local ement-room-message-format-spec \"[%o%O] %S> %B%R%t\""},{"Add":"              bookmark-make-record-function #'ement-notify-bookmark-make-record))"},{"Add":""},{"Add":"(cl-defun ement-notify--log-to-buffer (event room session &key (buffer-name \"*Ement Notifications*\"))"},{"Add":"  \"Log EVENT in ROOM on SESSION to \\\"*Ement Notifications*\\\" buffer.\""},{"Add":"  (with-demoted-errors \"ement-notify--log-to-buffer: %S\""},{"Add":"    ;; HACK: We only log \"m.room.message\" events for now.  This shouldn't be necessary"},{"Add":"    ;; since we have `ement-notify--event-message-p' in `ement-notify-predicates', but"},{"Add":"    ;; just to be safe..."},{"Add":"    (when (equal \"m.room.message\" (ement-event-type event))"},{"Add":"      (with-current-buffer (ement-notify--log-buffer buffer-name)"},{"Add":"        (let* ((ement-session session)"},{"Add":"               (ement-room room)"},{"Add":"               (ement-room-sender-in-left-margin nil)"},{"Add":"               (ement-room-message-format-spec \"%o%O »%W %S> %B%R%t\")"},{"Add":"               (new-node (ement-room--insert-event event))"},{"Add":"               (inhibit-read-only t)"},{"Add":"               start end)"},{"Add":"          (ewoc-goto-node ement-ewoc new-node)"},{"Add":"          (setf start (point))"},{"Add":"          (if-let (next-node (ewoc-next ement-ewoc new-node))"},{"Add":"              (ewoc-goto-node ement-ewoc next-node)"},{"Add":"            (goto-char (point-max)))"},{"Add":"          (setf end (- (point) 2))"},{"Add":"          (add-text-properties start end"},{"Add":"                               (list 'button '(t)"},{"Add":"                                     'category 'default-button"},{"Add":"                                     'action #'ement-notify-button-action"},{"Add":"                                     'session session"},{"Add":"                                     'room room"},{"Add":"                                     'event event))"},{"Add":"          ;; Remove button face property."},{"Add":"          (alter-text-property start end 'face"},{"Add":"                               (lambda (face)"},{"Add":"                                 (pcase face"},{"Add":"                                   ('button nil)"},{"Add":"                                   ((pred listp) (remq 'button face))"},{"Add":"                                   (_ face))))"},{"Add":"          (when ement-notify-prism-background"},{"Add":"            (add-face-text-property start end (list :background (ement-notify--room-background-color room)"},{"Add":"                                                    :extend t))))))))"},{"Add":""},{"Add":"(defun ement-notify--log-buffer (name)"},{"Add":"  \"Return an Ement notifications buffer named NAME.\""},{"Add":"  (or (get-buffer name)"},{"Add":"      (with-current-buffer (get-buffer-create name)"},{"Add":"        (ement-notify-mode)"},{"Add":"        (current-buffer))))"},{"Add":""},{"Add":"(defun ement-notify--room-background-color (room)"},{"Add":"  \"Return a background color on which to display ROOM's messages.\""},{"Add":"  (or (alist-get 'notify-background-color (ement-room-local room))"},{"Add":"      (setf (alist-get 'notify-background-color (ement-room-local room))"},{"Add":"            (let ((color (color-desaturate-name"},{"Add":"                          (ement--prism-color (ement-room-id room) :contrast-with (face-foreground 'default))"},{"Add":"                          50)))"},{"Add":"              (if (ement--color-dark-p (color-name-to-rgb (face-background 'default)))"},{"Add":"                  (color-darken-name color 25)"},{"Add":"                (color-lighten-name color 25))))))"},{"Add":""},{"Add":";;;;; Predicates"},{"Add":""},{"Add":"(defun ement-notify--event-mentions-session-user-p (event room session)"},{"Add":"  \"Return non-nil if EVENT in ROOM mentions SESSION's user."},{"Add":"If EVENT's sender is SESSION's user, returns nil.\""},{"Add":"  (pcase-let* (((cl-struct ement-session user) session)"},{"Add":"               ((cl-struct ement-event sender) event))"},{"Add":"    (unless (equal (ement-user-id user) (ement-user-id sender))"},{"Add":"      (ement-room--event-mentions-user-p event user room))))"},{"Add":""},{"Add":"(defun ement-notify--room-buffer-live-p (_event room _session)"},{"Add":"  \"Return non-nil if ROOM has a live buffer.\""},{"Add":"  (buffer-live-p (alist-get 'buffer (ement-room-local room))))"},{"Add":""},{"Add":"(defun ement-notify--room-unread-p (_event room _session)"},{"Add":"  \"Return non-nil if ROOM has unread notifications."},{"Add":"According to the room's notification configuration on the server.\""},{"Add":"  (pcase-let* (((cl-struct ement-room unread-notifications) room)"},{"Add":"               ((map notification_count highlight_count) unread-notifications))"},{"Add":"    (not (and (equal 0 notification_count)"},{"Add":"              (equal 0 highlight_count)))))"},{"Add":""},{"Add":"(defun ement-notify--event-message-p (event _room _session)"},{"Add":"  \"Return non-nil if EVENT is an \\\"m.room.message\\\" event.\""},{"Add":"  (equal \"m.room.message\" (ement-event-type event)))"},{"Add":""},{"Add":"(defun ement-notify--event-not-message-p (event _room _session)"},{"Add":"  \"Return non-nil if EVENT is not an \\\"m.room.message\\\" event.\""},{"Add":"  (not (equal \"m.room.message\" (ement-event-type event))))"},{"Add":""},{"Add":"(defun ement-notify--event-from-session-user-p (event _room session)"},{"Add":"  \"Return non-nil if EVENT is sent by SESSION's user.\""},{"Add":"  (equal (ement-user-id (ement-session-user session))"},{"Add":"         (ement-user-id (ement-event-sender event))))"},{"Add":""},{"Add":"(defalias 'ement-notify--event-mentions-room-p #'ement--event-mentions-room-p)"},{"Add":""},{"Add":";;;; Bookmark support"},{"Add":""},{"Add":";; Especially useful with Burly: "},{"Add":""},{"Add":"(require 'bookmark)"},{"Add":""},{"Add":"(defun ement-notify-bookmark-make-record ()"},{"Add":"  \"Return a bookmark record for the current `ement-notify' buffer.\""},{"Add":"  (list (buffer-name)"},{"Add":"        ;; It seems silly to have to record the buffer name twice, but the"},{"Add":"        ;; `bookmark-make-record' function seems to override the bookmark name sometimes,"},{"Add":"        ;; which makes the result useless unless we save the buffer name separately."},{"Add":"        (cons 'buffer-name (buffer-name))"},{"Add":"        (cons 'handler #'ement-notify-bookmark-handler)))"},{"Add":""},{"Add":"(defun ement-notify-bookmark-handler (bookmark)"},{"Add":"  \"Show Ement notifications buffer for BOOKMARK.\""},{"Add":"  (pcase-let ((`(,_bookmark-name . ,(map buffer-name)) bookmark))"},{"Add":"    (switch-to-buffer (ement-notify--log-buffer buffer-name))))"},{"Add":""},{"Add":";;;; Footer"},{"Add":""},{"Add":"(provide 'ement-notify)"},{"Add":""},{"Add":";;; ement-notify.el ends here"}]}},{"FileAdd":{"meta":{"basename":"ement-macros.el","metadata":0},"context":[{"change":0,"pos":483987}],"contents":[{"Add":";;; ement-macros.el --- Ement macros                 -*- lexical-binding: t; -*-"},{"Add":""},{"Add":";; Copyright (C) 2022  Free Software Foundation, Inc."},{"Add":""},{"Add":";; Author: Adam Porter "},{"Add":";; Maintainer: Adam Porter "},{"Add":""},{"Add":";; This program is free software; you can redistribute it and/or modify"},{"Add":";; it under the terms of the GNU General Public License as published by"},{"Add":";; the Free Software Foundation, either version 3 of the License, or"},{"Add":";; (at your option) any later version."},{"Add":""},{"Add":";; This program is distributed in the hope that it will be useful,"},{"Add":";; but WITHOUT ANY WARRANTY; without even the implied warranty of"},{"Add":";; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the"},{"Add":";; GNU General Public License for more details."},{"Add":""},{"Add":";; You should have received a copy of the GNU General Public License"},{"Add":";; along with this program.  If not, see ."},{"Add":""},{"Add":";;; Commentary:"},{"Add":""},{"Add":";;"},{"Add":""},{"Add":";;; Code:"},{"Add":""},{"Add":";;;; Requirements"},{"Add":""},{"Add":"(require 'map)"},{"Add":""},{"Add":";;;; Debugging"},{"Add":""},{"Add":"(require 'warnings)"},{"Add":""},{"Add":";; NOTE: Uncomment this form and `emacs-lisp-byte-compile-and-load' the file to enable"},{"Add":";; `ement-debug' messages.  This is commented out by default because, even though the"},{"Add":";; messages are only displayed when `warning-minimum-log-level' is `:debug' at runtime, if"},{"Add":";; that is so at expansion time, the expanded macro calls format the message and check the"},{"Add":";; log level at runtime, which is not zero-cost."},{"Add":""},{"Add":";; (eval-and-compile"},{"Add":";;   (setq-local warning-minimum-log-level nil)"},{"Add":";;   (setq-local warning-minimum-log-level :debug))"},{"Add":""},{"Add":"(cl-defmacro ement-debug (&rest args)"},{"Add":"  \"Display a debug warning showing the runtime value of ARGS."},{"Add":"The warning automatically includes the name of the containing"},{"Add":"function, and it is only displayed if `warning-minimum-log-level'"},{"Add":"is `:debug' at expansion time (otherwise the macro expands to a"},{"Add":"call to `ignore' with ARGS and is eliminated by the"},{"Add":"byte-compiler).  When debugging, the form also returns nil so,"},{"Add":"e.g. it may be used in a conditional in place of nil."},{"Add":""},{"Add":"Each of ARGS may be a string, which is displayed as-is, or a"},{"Add":"symbol, the value of which is displayed prefixed by its name, or"},{"Add":"a Lisp form, which is displayed prefixed by its first symbol."},{"Add":""},{"Add":"Before the actual ARGS arguments, you can write keyword"},{"Add":"arguments, i.e. alternating keywords and values.  The following"},{"Add":"keywords are supported:"},{"Add":""},{"Add":"  :buffer BUFFER   Name of buffer to pass to `display-warning'."},{"Add":"  :level  LEVEL    Level passed to `display-warning', which see."},{"Add":"                   Default is :debug.\""},{"Add":"  ;; TODO: Can we use a compiler macro to handle this more elegantly?"},{"Add":"  (pcase-let* ((fn-name (when byte-compile-current-buffer"},{"Add":"                          (with-current-buffer byte-compile-current-buffer"},{"Add":"                            ;; This is a hack, but a nifty one."},{"Add":"                            (save-excursion"},{"Add":"                              (beginning-of-defun)"},{"Add":"                              (cl-second (read (current-buffer)))))))"},{"Add":"               (plist-args (cl-loop while (keywordp (car args))"},{"Add":"                                    collect (pop args)"},{"Add":"                                    collect (pop args)))"},{"Add":"               ((map (:buffer buffer) (:level level)) plist-args)"},{"Add":"               (level (or level :debug))"},{"Add":"               (string (cl-loop for arg in args"},{"Add":"                                concat (pcase arg"},{"Add":"                                         ((pred stringp) \"%S \")"},{"Add":"                                         ((pred symbolp)"},{"Add":"                                          (concat (upcase (symbol-name arg)) \":%S \"))"},{"Add":"                                         ((pred listp)"},{"Add":"                                          (concat \"(\" (upcase (symbol-name (car arg)))"},{"Add":"                                                  (pcase (length arg)"},{"Add":"                                                    (1 \")\")"},{"Add":"                                                    (_ \"...)\"))"},{"Add":"                                                  \":%S \"))))))"},{"Add":"    (if (eq :debug warning-minimum-log-level)"},{"Add":"        `(let ((fn-name ,(if fn-name"},{"Add":"                             `',fn-name"},{"Add":"                           ;; In an interpreted function: use `backtrace-frame' to get the"},{"Add":"                           ;; function name (we have to use a little hackery to figure out"},{"Add":"                           ;; how far up the frame to look, but this seems to work)."},{"Add":"                           `(cl-loop for frame in (backtrace-frames)"},{"Add":"                                     for fn = (cl-second frame)"},{"Add":"                                     when (not (or (subrp fn)"},{"Add":"                                                   (special-form-p fn)"},{"Add":"                                                   (eq 'backtrace-frames fn)))"},{"Add":"                                     return (make-symbol (format \"%s [interpreted]\" fn))))))"},{"Add":"           (display-warning fn-name (format ,string ,@args) ,level ,buffer)"},{"Add":"           nil)"},{"Add":"      `(ignore ,@args))))"},{"Add":""},{"Add":";;;; Macros"},{"Add":""},{"Add":"(defmacro ement-alist (&rest pairs)"},{"Add":"  \"Expand to an alist of the keys and values in PAIRS.\""},{"Add":"  `(list ,@(cl-loop for (key value) on pairs by #'cddr"},{"Add":"                    collect `(cons ,key ,value))))"},{"Add":""},{"Add":";;;;; Anaphoric"},{"Add":""},{"Add":";; We could just depend on dash.el and use --first, and anaphora.el (only"},{"Add":";; on MELPA, not ELPA) has aprog1, but in order to reduce dependencies..."},{"Add":""},{"Add":"(defmacro ement-afirst (form list)"},{"Add":"  ;; Sometimes checkdoc is really annoying.  If I use \"FORM returns\" or"},{"Add":"  ;; \"FORM evaluates\", it complains, so I can't have a clean linting."},{"Add":"  \"Return the first element of LIST for which FORM is non-nil."},{"Add":"In FORM, `it' is bound to the element being tested.\""},{"Add":"  (declare (indent 1))"},{"Add":"  `(cl-loop for it in ,list"},{"Add":"            ;; Avoid the `when' clause's implicit binding of `it'."},{"Add":"            do (when ,form"},{"Add":"                 (cl-return it))))"},{"Add":""},{"Add":"(defmacro ement-aprog1 (first &rest body)"},{"Add":"  \"Like `prog1', but FIRST's value is bound to `it' around BODY.\""},{"Add":"  (declare (indent 1))"},{"Add":"  `(let ((it ,first))"},{"Add":"     ,@body"},{"Add":"     it))"},{"Add":""},{"Add":"(defmacro ement-singly (place-form &rest body)"},{"Add":"  \"If PLACE-FORM is nil, set it non-nil and eval BODY."},{"Add":"BODY should set PLACE-FORM to nil when BODY is eligible to run"},{"Add":"again.\""},{"Add":"  (declare (indent defun))"},{"Add":"  `(unless ,place-form"},{"Add":"     (setf ,place-form t)"},{"Add":"     ,@body))"},{"Add":""},{"Add":";;;;; Progress reporters"},{"Add":""},{"Add":";; MAYBE: Submit a `with-progress-reporter' macro to Emacs."},{"Add":""},{"Add":"(defalias 'ement-progress-update #'ignore"},{"Add":"  \"By default, this function does nothing.  But inside"},{"Add":"`ement-with-progress-reporter', it's bound to a function that"},{"Add":"updates the current progress reporter.\")"},{"Add":""},{"Add":"(defmacro ement-with-progress-reporter (args &rest body)"},{"Add":"  \"Eval BODY with a progress reporter according to ARGS."},{"Add":"ARGS is a plist of these values:"},{"Add":""},{"Add":"  :when  If specified, a form evaluated at runtime to determine"},{"Add":"         whether to make and update a progress reporter.  If not"},{"Add":"         specified, the reporter is always made and updated."},{"Add":""},{"Add":"  :reporter  A list of arguments passed to"},{"Add":"             `make-progress-reporter', which see."},{"Add":""},{"Add":"Around BODY, the function `ement-progress-update' is set to a"},{"Add":"function that calls `progress-reporter-update' on the progress"},{"Add":"reporter (or if the :when form evaluates to nil, the function is"},{"Add":"set to `ignore').  It optionally takes a VALUE argument, and"},{"Add":"without one, it automatically updates the value from the"},{"Add":"reporter's min-value to its max-value.\""},{"Add":"  (declare (indent defun))"},{"Add":"  (pcase-let* ((progress-reporter-sym (gensym))"},{"Add":"               (progress-value-sym (gensym))"},{"Add":"               (start-time-sym (gensym))"},{"Add":"               ((map (:when when-form) (:reporter reporter-args)) args)"},{"Add":"               (`(,_message ,min-value ,_max-value) reporter-args)"},{"Add":"               (update-fn `(cl-function"},{"Add":"                            (lambda (&optional (value (cl-incf ,progress-value-sym)))"},{"Add":"                              (ement-debug \"Updating progress reporter to\" value)"},{"Add":"                              (progress-reporter-update ,progress-reporter-sym value)))))"},{"Add":"    `(let* ((,start-time-sym (current-time))"},{"Add":"            (,progress-value-sym (or ,min-value 0))"},{"Add":"            (,progress-reporter-sym ,(if when-form"},{"Add":"                                         `(when ,when-form"},{"Add":"                                            (make-progress-reporter ,@reporter-args))"},{"Add":"                                       `(make-progress-reporter ,@reporter-args))))"},{"Add":"       ;; We use `cl-letf' rather than `cl-labels', because labels expand to lambdas and funcalls,"},{"Add":"       ;; so other functions that call `ement-progress-update' wouldn't call this definition."},{"Add":"       (cl-letf (((symbol-function 'ement-progress-update)"},{"Add":"                  ,(if when-form"},{"Add":"                       `(if ,when-form"},{"Add":"                            ,update-fn"},{"Add":"                          #'ignore)"},{"Add":"                     update-fn)))"},{"Add":"         ,@body"},{"Add":"         (ement-debug (format \"Ement: Progress reporter done (took %.2f seconds)\""},{"Add":"                              (float-time (time-subtract (current-time) ,start-time-sym))))))))"},{"Add":""},{"Add":";;;;; Room-related macros"},{"Add":""},{"Add":";; Prevent compiler from complaining that `value' is an unknown slot."},{"Add":"(require 'magit-section)"},{"Add":""},{"Add":"(cl-defmacro ement-with-room-and-session (&rest body)"},{"Add":"  \"Eval BODY with `ement-room' and `ement-session' bound."},{"Add":"If in an `ement-room-list-mode' buffer and `current-prefix-arg'"},{"Add":"is nil, use the room and session at point.  If in an `ement-room'"},{"Add":"buffer and `current-prefix-arg' is nil, use buffer-local value of"},{"Add":"`ement-room' and `ement-session'.  Otherwise, prompt for them"},{"Add":"with `ement-complete-room' or that given with :prompt-form."},{"Add":""},{"Add":"BODY may begin with property list arguments, including:"},{"Add":""},{"Add":"  :prompt-form  A Lisp form evaluated for the binding of"},{"Add":"                `ement-room'.\""},{"Add":"  (declare (indent defun))"},{"Add":"  (pcase-let* ((plist (cl-loop while (keywordp (car body))"},{"Add":"                               append (list (car body) (cadr body))"},{"Add":"                               and do (setf body (cddr body))))"},{"Add":"               (prompt-form (or (plist-get plist :prompt-form)"},{"Add":"                                '(ement-complete-room :suggest t))))"},{"Add":"    `(pcase-let* ((`[,list-room ,list-session] (if (eq 'ement-room-list-mode major-mode)"},{"Add":"                                                   (oref (magit-current-section) value)"},{"Add":"                                                 [nil nil]))"},{"Add":"                  (ement-room (or list-room ement-room))"},{"Add":"                  (ement-session (or list-session ement-session)))"},{"Add":"       (when (or current-prefix-arg (not ement-room))"},{"Add":"         (pcase-let ((`(,room ,session) ,prompt-form))"},{"Add":"           (setf ement-room room"},{"Add":"                 ement-session session)))"},{"Add":"       ,@body)))"},{"Add":""},{"Add":";;;; Variables"},{"Add":""},{"Add":""},{"Add":";;;; Customization"},{"Add":""},{"Add":""},{"Add":";;;; Commands"},{"Add":""},{"Add":""},{"Add":";;;; Functions"},{"Add":""},{"Add":""},{"Add":";;;; Footer"},{"Add":""},{"Add":"(provide 'ement-macros)"},{"Add":""},{"Add":";;; ement-macros.el ends here"}]}},{"FileAdd":{"meta":{"basename":"ement-lib.el","metadata":0},"context":[{"change":0,"pos":483987}],"contents":[{"Add":";;; ement-lib.el --- Library of Ement functions      -*- lexical-binding: t; -*-"},{"Add":""},{"Add":";; Copyright (C) 2022  Free Software Foundation, Inc."},{"Add":""},{"Add":";; Author: Adam Porter "},{"Add":";; Maintainer: Adam Porter "},{"Add":""},{"Add":";; This program is free software; you can redistribute it and/or modify"},{"Add":";; it under the terms of the GNU General Public License as published by"},{"Add":";; the Free Software Foundation, either version 3 of the License, or"},{"Add":";; (at your option) any later version."},{"Add":""},{"Add":";; This program is distributed in the hope that it will be useful,"},{"Add":";; but WITHOUT ANY WARRANTY; without even the implied warranty of"},{"Add":";; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the"},{"Add":";; GNU General Public License for more details."},{"Add":""},{"Add":";; You should have received a copy of the GNU General Public License"},{"Add":";; along with this program.  If not, see ."},{"Add":""},{"Add":";;; Commentary:"},{"Add":""},{"Add":";; This library provides functions used in other Ement libraries.  It exists so they may"},{"Add":";; be required where needed, without causing circular dependencies."},{"Add":""},{"Add":";;; Code:"},{"Add":""},{"Add":";;;; Requirements"},{"Add":""},{"Add":"(eval-when-compile"},{"Add":"  (require 'eieio)"},{"Add":"  (require 'ewoc)"},{"Add":"  (require 'pcase)"},{"Add":"  (require 'subr-x)"},{"Add":"  "},{"Add":"  (require 'taxy-magit-section)"},{"Add":""},{"Add":"  (require 'ement-macros))"},{"Add":""},{"Add":"(require 'cl-lib)"},{"Add":""},{"Add":"(require 'color)"},{"Add":"(require 'map)"},{"Add":"(require 'xml)"},{"Add":""},{"Add":"(require 'ement-api)"},{"Add":"(require 'ement-structs)"},{"Add":""},{"Add":";;;; Variables"},{"Add":""},{"Add":"(defvar ement-sessions)"},{"Add":"(defvar ement-users)"},{"Add":"(defvar ement-ewoc)"},{"Add":"(defvar ement-room)"},{"Add":"(defvar ement-session)"},{"Add":""},{"Add":"(defvar ement-room-buffer-name-prefix)"},{"Add":"(defvar ement-room-buffer-name-suffix)"},{"Add":"(defvar ement-room-leave-kill-buffer)"},{"Add":"(defvar ement-room-prism)"},{"Add":"(defvar ement-room-prism-color-adjustment)"},{"Add":"(defvar ement-room-prism-minimum-contrast)"},{"Add":"(defvar ement-room-unread-only-counts-notifications)"},{"Add":""},{"Add":";;;; Function declarations"},{"Add":""},{"Add":";; Instead of using top-level `declare-function' forms (which can easily become obsolete"},{"Add":";; if not kept with the code that needs them), this allows the use of `(declare (function"},{"Add":";; ...))' forms in each function definition, so that if a function is moved or removed,"},{"Add":";; the `declare-function' goes with it."},{"Add":""},{"Add":";; TODO: Propose this upstream."},{"Add":""},{"Add":"(eval-and-compile"},{"Add":"  (defun ement--byte-run--declare-function (_name _args &rest values)"},{"Add":"    \"Return a `declare-function' form with VALUES."},{"Add":"Allows the use of a form like:"},{"Add":""},{"Add":"  (declare (function FN FILE ...))"},{"Add":""},{"Add":"inside of a function definition, effectively keeping its"},{"Add":"`declare-function' form inside the function definition, ensuring"},{"Add":"that stray such forms don't remain if the function is removed.\""},{"Add":"    `(declare-function ,@values))"},{"Add":""},{"Add":"  (cl-pushnew '(function ement--byte-run--declare-function) defun-declarations-alist :test #'equal)"},{"Add":"  (cl-pushnew '(function ement--byte-run--declare-function) macro-declarations-alist :test #'equal))"},{"Add":""},{"Add":";;;; Compatibility"},{"Add":""},{"Add":";; These workarounds should be removed when they aren't needed."},{"Add":""},{"Add":";;;;; Emacs 28 color features."},{"Add":""},{"Add":";; Copied from Emacs 28.  See ."},{"Add":""},{"Add":";; FIXME: Remove this workaround when possible."},{"Add":""},{"Add":"(eval-and-compile"},{"Add":"  (unless (boundp 'color-luminance-dark-limit)"},{"Add":"    (defconst ement--color-luminance-dark-limit 0.325"},{"Add":"      \"The relative luminance below which a color is considered 'dark'."},{"Add":"A 'dark' color in this sense provides better contrast with white"},{"Add":"than with black; see `color-dark-p'."},{"Add":"This value was determined experimentally.\")))"},{"Add":""},{"Add":"(defalias 'ement--color-dark-p"},{"Add":"  (if (fboundp 'color-dark-p)"},{"Add":"      'color-dark-p"},{"Add":"    (lambda (rgb)"},{"Add":"      \"Whether RGB is more readable against white than black."},{"Add":"RGB is a 3-element list (R G B), each component in the range [0,1]."},{"Add":"This predicate can be used both for determining a suitable (black or white)"},{"Add":"contrast colour with RGB as background and as foreground.\""},{"Add":"      (unless (<= 0 (apply #'min rgb) (apply #'max rgb) 1)"},{"Add":"        (error \"RGB components %S not in [0,1]\" rgb))"},{"Add":"      ;; Compute the relative luminance after gamma-correcting (assuming sRGB),"},{"Add":"      ;; and compare to a cut-off value determined experimentally."},{"Add":"      ;; See https://en.wikipedia.org/wiki/Relative_luminance for details."},{"Add":"      (let* ((sr (nth 0 rgb))"},{"Add":"             (sg (nth 1 rgb))"},{"Add":"             (sb (nth 2 rgb))"},{"Add":"             ;; Gamma-correct the RGB components to linear values."},{"Add":"             ;; Use the power 2.2 as an approximation to sRGB gamma;"},{"Add":"             ;; it should be good enough for the purpose of this function."},{"Add":"             (r (expt sr 2.2))"},{"Add":"             (g (expt sg 2.2))"},{"Add":"             (b (expt sb 2.2))"},{"Add":"             (y (+ (* r 0.2126) (* g 0.7152) (* b 0.0722))))"},{"Add":"        (< y ement--color-luminance-dark-limit)))))"},{"Add":""},{"Add":";;;; Functions"},{"Add":""},{"Add":";;;;; Commands"},{"Add":""},{"Add":"(cl-defun ement-create-room"},{"Add":"    (session &key name alias topic invite direct-p creation-content"},{"Add":"             (then (lambda (data)"},{"Add":"                     (message \"Created new room: %s\" (alist-get 'room_id data))))"},{"Add":"             (visibility 'private))"},{"Add":"  \"Create new room on SESSION."},{"Add":"Then call function THEN with response data.  Optional string"},{"Add":"arguments are NAME, ALIAS, and TOPIC.  INVITE may be a list of"},{"Add":"user IDs to invite.  If DIRECT-P, set the \\\"is_direct\\\" flag in"},{"Add":"the request.  CREATION-CONTENT may be an alist of extra keys to"},{"Add":"include with the request (see Matrix spec).\""},{"Add":"  ;; TODO: Document other arguments."},{"Add":"  ;; SPEC: 10.1.1."},{"Add":"  (declare (indent defun))"},{"Add":"  (interactive (list (ement-complete-session)"},{"Add":"\t\t     :name (read-string \"New room name: \")"},{"Add":"\t\t     :alias (read-string \"New room alias (e.g. \\\"foo\\\" for \\\"#foo:matrix.org\\\"): \")"},{"Add":"\t\t     :topic (read-string \"New room topic: \")"},{"Add":"\t\t     :visibility (completing-read \"New room visibility: \" '(private public))))"},{"Add":"  (cl-labels ((given-p"},{"Add":"\t       (var) (and var (not (string-empty-p var)))))"},{"Add":"    (pcase-let* ((endpoint \"createRoom\")"},{"Add":"\t\t (data (ement-aprog1"},{"Add":"\t\t\t   (ement-alist \"visibility\" visibility)"},{"Add":"\t\t\t (when (given-p alias)"},{"Add":"\t\t\t   (push (cons \"room_alias_name\" alias) it))"},{"Add":"\t\t\t (when (given-p name)"},{"Add":"\t\t\t   (push (cons \"name\" name) it))"},{"Add":"\t\t\t (when (given-p topic)"},{"Add":"\t\t\t   (push (cons \"topic\" topic) it))"},{"Add":"\t\t\t (when invite"},{"Add":"\t\t\t   (push (cons \"invite\" invite) it))"},{"Add":"\t\t\t (when direct-p"},{"Add":"\t\t\t   (push (cons \"is_direct\" t) it))"},{"Add":"                         (when creation-content"},{"Add":"                           (push (cons \"creation_content\" creation-content) it)))))"},{"Add":"      (ement-api session endpoint :method 'post :data (json-encode data)"},{"Add":"        :then then))))"},{"Add":""},{"Add":"(cl-defun ement-create-space"},{"Add":"    (session &key name alias topic"},{"Add":"             (then (lambda (data)"},{"Add":"                     (message \"Created new space: %s\" (alist-get 'room_id data))))"},{"Add":"             (visibility 'private))"},{"Add":"  \"Create new space on SESSION."},{"Add":"Then call function THEN with response data.  Optional string"},{"Add":"arguments are NAME, ALIAS, and TOPIC.\""},{"Add":"  (declare (indent defun))"},{"Add":"  (interactive (list (ement-complete-session)"},{"Add":"\t\t     :name (read-string \"New space name: \")"},{"Add":"\t\t     :alias (read-string \"New space alias (e.g. \\\"foo\\\" for \\\"#foo:matrix.org\\\"): \")"},{"Add":"\t\t     :topic (read-string \"New space topic: \")"},{"Add":"\t\t     :visibility (completing-read \"New space visibility: \" '(private public))))"},{"Add":"  (ement-create-room session :name name :alias alias :topic topic :visibility visibility"},{"Add":"    :creation-content (ement-alist \"type\" \"m.space\") :then then))"},{"Add":""},{"Add":"(defun ement-room-leave (room session &optional force-p)"},{"Add":"  \"Leave ROOM on SESSION."},{"Add":"If FORCE-P, leave without prompting.  ROOM may be an `ement-room'"},{"Add":"struct, or a room ID or alias string.\""},{"Add":"  ;; TODO: Rename `room' argument to `room-or-id'."},{"Add":"  (interactive"},{"Add":"   (ement-with-room-and-session"},{"Add":"     :prompt-form (ement-complete-room :prompt \"Leave room: \")"},{"Add":"     (list ement-room ement-session)))"},{"Add":"  (cl-etypecase room"},{"Add":"    (ement-room)"},{"Add":"    (string (setf room (ement-afirst (or (equal room (ement-room-canonical-alias it))"},{"Add":"                                         (equal room (ement-room-id it)))"},{"Add":"                         (ement-session-rooms session)))))"},{"Add":"  (when (or force-p (yes-or-no-p (format \"Leave room %s? \" (ement--format-room room))))"},{"Add":"    (pcase-let* (((cl-struct ement-room id) room)"},{"Add":"                 (endpoint (format \"rooms/%s/leave\" (url-hexify-string id))))"},{"Add":"      (ement-api session endpoint :method 'post :data \"\""},{"Add":"        :then (lambda (_data)"},{"Add":"                (when ement-room-leave-kill-buffer"},{"Add":"                  ;; NOTE: This generates a symbol and sets its function value to a lambda"},{"Add":"                  ;; which removes the symbol from the hook, removing itself from the hook."},{"Add":"                  ;; TODO: When requiring Emacs 27, use `letrec'."},{"Add":"                  (let* ((leave-fn-symbol (gensym (format \"ement-leave-%s\" room)))"},{"Add":"                         (leave-fn (lambda (_session)"},{"Add":"                                     (remove-hook 'ement-sync-callback-hook leave-fn-symbol)"},{"Add":"                                     ;; FIXME: Probably need to unintern the symbol."},{"Add":"                                     (when-let ((buffer (map-elt (ement-room-local room) 'buffer)))"},{"Add":"                                       (when (buffer-live-p buffer)"},{"Add":"                                         (kill-buffer buffer))))))"},{"Add":"                    (setf (symbol-function leave-fn-symbol) leave-fn)"},{"Add":"                    (add-hook 'ement-sync-callback-hook leave-fn-symbol)))"},{"Add":"                (ement-message \"Left room: %s\" (ement--format-room room)))"},{"Add":"        :else (lambda (plz-error)"},{"Add":"                (pcase-let* (((cl-struct plz-error response) plz-error)"},{"Add":"                             ((cl-struct plz-response status body) response)"},{"Add":"                             ((map error) (json-read-from-string body)))"},{"Add":"                  (pcase status"},{"Add":"                    (429 (error \"Unable to leave room %s: %s\" room error))"},{"Add":"                    (_ (error \"Unable to leave room %s: %s %S\" room status plz-error)))))))))"},{"Add":"(defalias 'ement-leave-room #'ement-room-leave)"},{"Add":""},{"Add":"(defun ement-forget-room (room session &optional force-p)"},{"Add":"  \"Forget ROOM on SESSION."},{"Add":"If FORCE-P (interactively, with prefix), prompt to leave the room"},{"Add":"when necessary, and forget the room without prompting.\""},{"Add":"  (interactive"},{"Add":"   (ement-with-room-and-session"},{"Add":"     :prompt-form (ement-complete-room :prompt \"Forget room: \")"},{"Add":"     (list ement-room ement-session current-prefix-arg)))"},{"Add":"  (pcase-let* (((cl-struct ement-room id display-name status) room)"},{"Add":"               (endpoint (format \"rooms/%s/forget\" (url-hexify-string id))))"},{"Add":"    (pcase status"},{"Add":"      ('join (if (and force-p"},{"Add":"                      (yes-or-no-p (format \"Leave and forget room %s? (WARNING: You will not be able to rejoin the room to access its content.) \""},{"Add":"                                           (ement--format-room room))))"},{"Add":"                 (progn"},{"Add":"                   ;; TODO: Use `letrec'."},{"Add":"                   (let* ((forget-fn-symbol (gensym (format \"ement-forget-%s\" room)))"},{"Add":"                          (forget-fn (lambda (_session)"},{"Add":"                                       (when (equal 'leave (ement-room-status room))"},{"Add":"                                         (remove-hook 'ement-sync-callback-hook forget-fn-symbol)"},{"Add":"                                         ;; FIXME: Probably need to unintern the symbol."},{"Add":"                                         (ement-forget-room room session 'force)))))"},{"Add":"                     (setf (symbol-function forget-fn-symbol) forget-fn)"},{"Add":"                     (add-hook 'ement-sync-callback-hook forget-fn-symbol))"},{"Add":"                   (ement-leave-room room session 'force))"},{"Add":"               (user-error \"Room %s is joined (must be left before forgetting)\""},{"Add":"                           (ement--format-room room))))"},{"Add":"      ('leave (when (or force-p (yes-or-no-p (format \"Forget room \\\"%s\\\" (%s)? \" display-name id)))"},{"Add":"                (ement-api session endpoint :method 'post :data \"\""},{"Add":"                  :then (lambda (_data)"},{"Add":"                          ;; NOTE: The spec does not seem to indicate that the action of forgetting"},{"Add":"                          ;; a room is synced to other clients, so it seems that we need to remove"},{"Add":"                          ;; the room from the session here."},{"Add":"                          (setf (ement-session-rooms session)"},{"Add":"                                (cl-remove room (ement-session-rooms session)))"},{"Add":"                          ;; TODO: Indicate forgotten in footer in room buffer."},{"Add":"                          (ement-message \"Forgot room: %s.\" (ement--format-room room)))))))))"},{"Add":""},{"Add":"(defun ement-ignore-user (user-id session &optional unignore-p)"},{"Add":"  \"Ignore USER-ID on SESSION."},{"Add":"If UNIGNORE-P (interactively, with prefix), un-ignore USER.\""},{"Add":"  (interactive (list (ement-complete-user-id)"},{"Add":"                     (ement-complete-session)"},{"Add":"                     current-prefix-arg))"},{"Add":"  (pcase-let* (((cl-struct ement-session account-data) session)"},{"Add":"               ;; TODO: Store session account-data events in an alist keyed on type."},{"Add":"               ((map ('content (map ('ignored_users ignored-users))))"},{"Add":"                (cl-find \"m.ignored_user_list\" account-data"},{"Add":"                         :key (lambda (event) (alist-get 'type event)) :test #'equal)))"},{"Add":"    (if unignore-p"},{"Add":"        ;; Being map keys, the user IDs have been interned by `json-read'."},{"Add":"        (setf ignored-users (map-delete ignored-users (intern user-id)))"},{"Add":"      ;; Empty maps are used to list ignored users."},{"Add":"      (setf (map-elt ignored-users user-id) nil))"},{"Add":"    (ement-put-account-data session \"m.ignored_user_list\" (ement-alist \"ignored_users\" ignored-users)"},{"Add":"      :then (lambda (data)"},{"Add":"              (ement-debug \"PUT successful\" data)"},{"Add":"              (message \"Ement: User %s %s.\" user-id (if unignore-p \"unignored\" \"ignored\"))))))"},{"Add":""},{"Add":"(defun ement-invite-user (user-id room session)"},{"Add":"  \"Invite USER-ID to ROOM on SESSION."},{"Add":"Interactively, with prefix, prompt for room and session,"},{"Add":"otherwise use current room.\""},{"Add":"  ;; SPEC: 10.4.2.1."},{"Add":"  (interactive"},{"Add":"   (ement-with-room-and-session"},{"Add":"     (list (ement-complete-user-id) ement-room ement-session)))"},{"Add":"  (pcase-let* ((endpoint (format \"rooms/%s/invite\""},{"Add":"                                 (url-hexify-string (ement-room-id room))))"},{"Add":"               (data (ement-alist \"user_id\" user-id) ))"},{"Add":"    (ement-api session endpoint :method 'post :data (json-encode data)"},{"Add":"      ;; TODO: Handle error codes."},{"Add":"      :then (lambda (_data)"},{"Add":"              (message \"User %s invited to room \\\"%s\\\" (%s)\" user-id"},{"Add":"                       (ement-room-display-name room)"},{"Add":"                       (ement-room-id room))))))"},{"Add":""},{"Add":"(defun ement-list-members (room session bufferp)"},{"Add":"  \"Show members of ROOM on SESSION."},{"Add":"Interactively, with prefix, prompt for room and session,"},{"Add":"otherwise use current room.  If BUFFERP (interactively, with"},{"Add":"prefix), or if there are many members, show in a new buffer;"},{"Add":"otherwise show in echo area.\""},{"Add":"  (interactive"},{"Add":"   (ement-with-room-and-session"},{"Add":"     (list ement-room ement-session current-prefix-arg)))"},{"Add":"  (pcase-let* (((cl-struct ement-room members (local (map fetched-members-p))) room)"},{"Add":"               (list-members"},{"Add":"                (lambda (&optional _)"},{"Add":"                  (cond ((or bufferp (> (hash-table-count members) 51))"},{"Add":"                         ;; Show in buffer."},{"Add":"                         (let* ((buffer (get-buffer-create (format \"*Ement members: %s*\" (ement-room-display-name room))))"},{"Add":"                                (members (cl-sort (cl-loop for user being the hash-values of members"},{"Add":"                                                           for id = (ement-user-id user)"},{"Add":"                                                           for displayname = (ement--user-displayname-in room user)"},{"Add":"                                                           collect (cons displayname id))"},{"Add":"                                                  (lambda (a b) (string-collate-lessp a b nil t)) :key #'car))"},{"Add":"                                (displayname-width (cl-loop for member in members"},{"Add":"                                                            maximizing (string-width (car member))))"},{"Add":"                                (format-string (format \"%%-%ss <%%s>\" displayname-width)))"},{"Add":"                           (with-current-buffer buffer"},{"Add":"                             (erase-buffer)"},{"Add":"                             (save-excursion"},{"Add":"                               (dolist (member members)"},{"Add":"                                 (insert (format format-string (car member) (cdr member)) \"\\n\"))))"},{"Add":"                           (pop-to-buffer buffer)))"},{"Add":"                        (t"},{"Add":"                         ;; Show in echo area."},{"Add":"                         (message \"Members of %s (%s): %s\" (ement--room-display-name room)"},{"Add":"                                  (hash-table-count members)"},{"Add":"                                  (string-join (map-apply (lambda (_id user)"},{"Add":"                                                            (ement--user-displayname-in room user))"},{"Add":"                                                          members)"},{"Add":"                                               \", \")))))))"},{"Add":"    (if fetched-members-p"},{"Add":"        (funcall list-members)"},{"Add":"      (ement--get-joined-members room session"},{"Add":"        :then list-members))"},{"Add":"    (message \"Listing members of %s...\" (ement--format-room room))))"},{"Add":""},{"Add":"(defun ement-send-direct-message (session user-id message)"},{"Add":"  \"Send a direct MESSAGE to USER-ID on SESSION."},{"Add":"Uses the latest existing direct room with the user, or creates a"},{"Add":"new one automatically if necessary.\""},{"Add":"  ;; SPEC: 13.23.2."},{"Add":"  (interactive"},{"Add":"   (let* ((session (ement-complete-session))"},{"Add":"\t  (user-id (ement-complete-user-id))"},{"Add":"\t  (message (read-string \"Message: \")))"},{"Add":"     (list session user-id message)))"},{"Add":"  (if-let* ((seen-user (gethash user-id ement-users))"},{"Add":"\t    (existing-direct-room (ement--direct-room-for-user seen-user session)))"},{"Add":"      (progn"},{"Add":"        (ement-send-message existing-direct-room session :body message)"},{"Add":"        (message \"Message sent to %s <%s> in room %S <%s>.\""},{"Add":"                 (ement--user-displayname-in existing-direct-room seen-user)"},{"Add":"                 user-id"},{"Add":"                 (ement-room-display-name existing-direct-room) (ement-room-id existing-direct-room)))"},{"Add":"    ;; No existing room for user: make new one."},{"Add":"    (message \"Creating new room for user %s...\" user-id)"},{"Add":"    (ement-create-room session :direct-p t :invite (list user-id)"},{"Add":"      :then (lambda (data)"},{"Add":"              (let* ((room-id (alist-get 'room_id data))"},{"Add":"\t             (room (or (cl-find room-id (ement-session-rooms session)"},{"Add":"                                        :key #'ement-room-id)"},{"Add":"\t\t               ;; New room hasn't synced yet: make a temporary struct."},{"Add":"\t\t               (make-ement-room :id room-id)))"},{"Add":"                     (direct-rooms-account-data-event-content"},{"Add":"                      ;; FIXME: Make account-data a map."},{"Add":"                      (alist-get 'content (cl-find-if (lambda (event)"},{"Add":"                                                        (equal \"m.direct\" (alist-get 'type event)))"},{"Add":"                                                      (ement-session-account-data session)))))"},{"Add":"                ;; Mark new room as direct: add the room to the account-data event, then"},{"Add":"                ;; put the new account data to the server.  (See also:"},{"Add":"                ;; )."},{"Add":"                (setf (map-elt direct-rooms-account-data-event-content user-id) (vector room-id))"},{"Add":"                (ement-put-account-data session \"m.direct\" direct-rooms-account-data-event-content)"},{"Add":"                ;; Send message to new room."},{"Add":"                (ement-send-message room session :body message)"},{"Add":"                (message \"Room \\\"%s\\\" created for user %s.  Sending message...\""},{"Add":"\t                 room-id user-id))))))"},{"Add":""},{"Add":"(defun ement-tag-room (tag room session)"},{"Add":"  \"Toggle TAG for ROOM on SESSION.\""},{"Add":"  (interactive"},{"Add":"   (ement-with-room-and-session"},{"Add":"     (let* ((prompt (format \"Toggle tag (%s): \" (ement--format-room ement-room)))"},{"Add":"            (default-tags"},{"Add":"              (ement-alist (propertize \"Favourite\""},{"Add":"                                       'face (when (ement--room-tagged-p \"m.favourite\" ement-room)"},{"Add":"                                               'transient-value))"},{"Add":"                           \"m.favourite\""},{"Add":"                           (propertize \"Low-priority\""},{"Add":"                                       'face (when (ement--room-tagged-p \"m.lowpriority\" ement-room)"},{"Add":"                                               'transient-value))"},{"Add":"                           \"m.lowpriority\"))"},{"Add":"            (input (completing-read prompt default-tags))"},{"Add":"            (tag (alist-get input default-tags (concat \"u.\" input) nil #'string=)))"},{"Add":"       (list tag ement-room ement-session))))"},{"Add":"  (pcase-let* (((cl-struct ement-session user) session)"},{"Add":"               ((cl-struct ement-user (id user-id)) user)"},{"Add":"               ((cl-struct ement-room (id room-id)) room)"},{"Add":"               (endpoint (format \"user/%s/rooms/%s/tags/%s\""},{"Add":"                                 (url-hexify-string user-id) (url-hexify-string room-id) (url-hexify-string tag)))"},{"Add":"               (method (if (ement--room-tagged-p tag room) 'delete 'put)))"},{"Add":"    ;; TODO: \"order\"."},{"Add":"    ;; FIXME: Removing a tag on a left room doesn't seem to work (e.g. to unfavorite a room after leaving it, but not forgetting it)."},{"Add":"    (ement-api session endpoint :version \"v3\" :method method :data (pcase method ('put \"{}\"))"},{"Add":"      :then (lambda (_)"},{"Add":"              (ement-message \"%s tag %S on %s\""},{"Add":"                             (pcase method"},{"Add":"                               ('delete \"Removed\")"},{"Add":"                               ('put \"Added\"))"},{"Add":"                             tag (ement--format-room room)) ))))"},{"Add":""},{"Add":"(defun ement-set-display-name (display-name session)"},{"Add":"  \"Set DISPLAY-NAME for user on SESSION."},{"Add":"Sets global displayname.\""},{"Add":"  (interactive"},{"Add":"   (let* ((session (ement-complete-session))"},{"Add":"          (display-name (read-string \"Set display-name to: \" nil nil"},{"Add":"                                     (ement-user-displayname (ement-session-user session)))))"},{"Add":"     (list display-name session)))"},{"Add":"  (pcase-let* (((cl-struct ement-session user) session)"},{"Add":"               ((cl-struct ement-user (id user-id)) user)"},{"Add":"               (endpoint (format \"profile/%s/displayname\" (url-hexify-string user-id))))"},{"Add":"    (ement-api session endpoint :method 'put :version \"v3\""},{"Add":"      :data (json-encode (ement-alist \"displayname\" display-name))"},{"Add":"      :then (lambda (_data)"},{"Add":"              (message \"Ement: Display name set to %S for <%s>\" display-name"},{"Add":"                       (ement-user-id (ement-session-user session)))))))"},{"Add":""},{"Add":"(defun ement-room-set-display-name (display-name room session)"},{"Add":"  \"Set DISPLAY-NAME for user in ROOM on SESSION."},{"Add":"Interactively, with prefix, prompt for room and session,"},{"Add":"otherwise use current room.  Sets the name only in ROOM, not"},{"Add":"globally.\""},{"Add":"  (interactive"},{"Add":"   (ement-with-room-and-session"},{"Add":"     (let* ((prompt (format \"Set display-name in %S to: \""},{"Add":"                            (ement--format-room ement-room)))"},{"Add":"            (display-name (read-string prompt nil nil"},{"Add":"                                       (ement-user-displayname (ement-session-user ement-session)))))"},{"Add":"       (list display-name ement-room ement-session))))"},{"Add":"  ;; NOTE: This does not seem to be documented in the spec, so we imitate the"},{"Add":"  ;; \"/myroomnick\" command in SlashCommands.tsx from matrix-react-sdk."},{"Add":"  (pcase-let* (((cl-struct ement-room state) room)"},{"Add":"               ((cl-struct ement-session user) session)"},{"Add":"               ((cl-struct ement-user id) user)"},{"Add":"               (member-event (cl-find-if (lambda (event)"},{"Add":"                                           (and (equal id (ement-event-state-key event))"},{"Add":"                                                (equal \"m.room.member\" (ement-event-type event))"},{"Add":"                                                (equal \"join\" (alist-get 'membership (ement-event-content event)))))"},{"Add":"                                         state)))"},{"Add":"    (cl-assert member-event)"},{"Add":"    (setf (alist-get 'displayname (ement-event-content member-event)) display-name)"},{"Add":"    (ement-put-state room \"m.room.member\" id (ement-event-content member-event) session"},{"Add":"      :then (lambda (_data)"},{"Add":"              (message \"Ement: Display name set to %S for <%s> in %S\" display-name"},{"Add":"                       (ement-user-id (ement-session-user session))"},{"Add":"                       (ement--format-room room))))))"},{"Add":""},{"Add":";;;;;; Describe room"},{"Add":""},{"Add":"(defvar ement-describe-room-mode-map"},{"Add":"  (let ((map (make-sparse-keymap)))"},{"Add":"    (define-key map (kbd \"q\") #'quit-window)"},{"Add":"    map)"},{"Add":"  \"Keymap for `ement-describe-room-mode' buffers.\")"},{"Add":""},{"Add":"(define-derived-mode ement-describe-room-mode read-only-mode"},{"Add":"  \"Ement-Describe-Room\" \"Major mode for `ement-describe-room' buffers.\")"},{"Add":""},{"Add":"(defun ement-describe-room (room session)"},{"Add":"  \"Describe ROOM on SESSION."},{"Add":"Interactively, with prefix, prompt for room and session,"},{"Add":"otherwise use current room.\""},{"Add":"  (interactive (ement-with-room-and-session (list ement-room ement-session)))"},{"Add":"  (cl-labels ((heading (string)"},{"Add":"                       (propertize (or string \"\") 'face 'font-lock-builtin-face))"},{"Add":"              (id (string)"},{"Add":"                  (propertize (or string \"\") 'face 'font-lock-constant-face))"},{"Add":"              (member<"},{"Add":"               (a b) (string-collate-lessp (car a) (car b) nil t)))"},{"Add":"    (pcase-let* (((cl-struct ement-room (id room-id) avatar display-name canonical-alias members timeline status topic"},{"Add":"                             (local (map fetched-members-p)))"},{"Add":"                  room)"},{"Add":"                 ((cl-struct ement-session user) session)"},{"Add":"                 ((cl-struct ement-user (id user-id)) user)"},{"Add":"                 (inhibit-read-only t))"},{"Add":"      (if (not fetched-members-p)"},{"Add":"          ;; Members not fetched: fetch them and re-call this command."},{"Add":"          (ement--get-joined-members room session"},{"Add":"            :then (lambda (_) (ement-room-describe room session)))"},{"Add":"        (with-current-buffer (get-buffer-create (format \"*Ement room description: %s*\" (or display-name canonical-alias room-id)))"},{"Add":"          (let ((inhibit-read-only t))"},{"Add":"            (erase-buffer)"},{"Add":"            ;; We avoid looping twice by doing a bit more work here and"},{"Add":"            ;; returning a cons which we destructure."},{"Add":"            (pcase-let* ((`(,member-pairs . ,name-width)"},{"Add":"                          (cl-loop for user being the hash-values of members"},{"Add":"                                   for formatted = (ement--format-user user room session)"},{"Add":"                                   for id = (format \"<%s>\" (id (ement-user-id user)))"},{"Add":"                                   collect (cons formatted id)"},{"Add":"                                   into pairs"},{"Add":"                                   maximizing (string-width id) into width"},{"Add":"                                   finally return (cons (cl-sort pairs #'member<) width)))"},{"Add":"                         ;; We put the MXID first, because users may use Unicode characters"},{"Add":"                         ;; in their displayname, which `string-width' does not always"},{"Add":"                         ;; return perfect results for, and putting it last prevents"},{"Add":"                         ;; alignment problems."},{"Add":"                         (spec (format \"%%-%ss %%s\" name-width)))"},{"Add":"              (save-excursion"},{"Add":"                (insert \"\\\"\" (propertize (or display-name canonical-alias room-id) 'face 'font-lock-doc-face) \"\\\"\" \" is a room \""},{"Add":"                        (propertize (pcase status"},{"Add":"                                      ('invite \"invited\")"},{"Add":"                                      ('join \"joined\")"},{"Add":"                                      ('leave \"left\")"},{"Add":"                                      (_ (symbol-name status)))"},{"Add":"                                    'face 'font-lock-comment-face)"},{"Add":"                        \" on session <\" (id user-id) \">.\\n\\n\""},{"Add":"                        (heading \"Avatar: \") (or avatar \"\") \"\\n\\n\""},{"Add":"                        (heading \"ID: \") \"<\" (id room-id) \">\" \"\\n\""},{"Add":"                        (heading \"Alias: \") \"<\" (id canonical-alias) \">\" \"\\n\\n\""},{"Add":"                        (heading \"Topic: \") (propertize (or topic \"[none]\") 'face 'font-lock-comment-face) \"\\n\\n\""},{"Add":"                        (heading \"Retrieved events: \") (number-to-string (length timeline)) \"\\n\""},{"Add":"                        (heading \"  spanning: \")"},{"Add":"                        (format-time-string \"%Y-%m-%d %H:%M:%S\""},{"Add":"                                            (/ (ement-event-origin-server-ts"},{"Add":"                                                (car (cl-sort (copy-sequence timeline) #'< :key #'ement-event-origin-server-ts)))"},{"Add":"                                               1000))"},{"Add":"                        (heading \" to \")"},{"Add":"                        (format-time-string \"%Y-%m-%d %H:%M:%S\\n\\n\""},{"Add":"                                            (/ (ement-event-origin-server-ts"},{"Add":"                                                (car (cl-sort (copy-sequence timeline) #'> :key #'ement-event-origin-server-ts)))"},{"Add":"                                               1000))"},{"Add":"                        (heading \"Members\") \" (\" (number-to-string (hash-table-count members)) \"):\\n\")"},{"Add":"                (pcase-dolist (`(,formatted . ,id) member-pairs)"},{"Add":"                  (insert \"  \" (format spec id formatted) \"\\n\")))))"},{"Add":"          (unless (eq major-mode 'ement-describe-room-mode)"},{"Add":"            ;; Without this check, activating the mode again causes a \"Cyclic keymap"},{"Add":"            ;; inheritance\" error."},{"Add":"            (ement-describe-room-mode))"},{"Add":"          (pop-to-buffer (current-buffer)))))))"},{"Add":""},{"Add":"(defalias 'ement-room-describe #'ement-describe-room)"},{"Add":""},{"Add":";;;;;; Push rules"},{"Add":""},{"Add":";; NOTE: Although v1.4 of the spec is available and describes setting the push rules using"},{"Add":";; the \"v3\" API endpoint, the Element client continues to use the \"r0\" endpoint, which is"},{"Add":";; slightly different.  This implementation will follow Element's initially, because the"},{"Add":";; spec is not simple, and imitating Element's requests will make it easier."},{"Add":""},{"Add":"(defun ement-room-notification-state (room session)"},{"Add":"  \"Return notification state for ROOM on SESSION."},{"Add":"Returns one of nil (meaning default rules are used), `all-loud',"},{"Add":"`all', `mentions-and-keywords', or `none'.\""},{"Add":"  ;; Following the implementation of getRoomNotifsState() in RoomNotifs.ts in matrix-react-sdk."},{"Add":""},{"Add":"  ;; TODO: Guest support (in which case the state should be `all')."},{"Add":"  ;; TODO: Store account data as a hash table of event types."},{"Add":"  (let ((push-rules (cl-find-if (lambda (alist)"},{"Add":"                                  (equal \"m.push_rules\" (alist-get 'type alist)))"},{"Add":"                                (ement-session-account-data session))))"},{"Add":"    (cl-labels ((override-mute-rule-for-room-p"},{"Add":"                 ;; Following findOverrideMuteRule() in RoomNotifs.ts."},{"Add":"                 (room) (when-let ((overrides (map-nested-elt push-rules '(content global override))))"},{"Add":"                          (cl-loop for rule in overrides"},{"Add":"                                   when (and (alist-get 'enabled rule)"},{"Add":"                                             (rule-for-room-p rule room))"},{"Add":"                                   return rule)))"},{"Add":"                (rule-for-room-p"},{"Add":"                 ;; Following isRuleForRoom() in RoomNotifs.ts."},{"Add":"                 (rule room) (and (/= 1 (length (alist-get 'conditions rule)))"},{"Add":"                                  (pcase-let* ((condition (elt (alist-get 'conditions rule) 0))"},{"Add":"                                               ((map kind key pattern) condition))"},{"Add":"                                    (and (equal \"event_match\" kind)"},{"Add":"                                         (equal \"room_id\" key)"},{"Add":"                                         (equal (ement-room-id room) pattern)))))"},{"Add":"                (mute-rule-p"},{"Add":"                 (rule) (and (= 1 (length (alist-get 'actions rule)))"},{"Add":"                             (equal \"dont_notify\" (elt (alist-get 'actions rule) 0))))"},{"Add":"                (tweak-rule-p"},{"Add":"                 (type rule) (pcase-let (((map ('actions `[,action ,alist])) rule))"},{"Add":"                               (and (equal \"notify\" action)"},{"Add":"                                    (equal type (alist-get 'set_tweak alist))))))"},{"Add":"      ;; If none of these match, nil is returned, meaning that the default rule is used"},{"Add":"      ;; for the room."},{"Add":"      (if (override-mute-rule-for-room-p room)"},{"Add":"          'none"},{"Add":"        (when-let ((room-rule (cl-find-if (lambda (rule)"},{"Add":"                                            (equal (ement-room-id room) (alist-get 'rule_id rule)))"},{"Add":"                                          (map-nested-elt push-rules '(content global room)))))"},{"Add":"          (cond ((not (alist-get 'enabled room-rule))"},{"Add":"                 ;; NOTE: According to comment in getRoomNotifsState(), this assumes that"},{"Add":"                 ;; the default is to notify for all messages, which \"will be 'wrong' for"},{"Add":"                 ;; one to one rooms because they will notify loudly for all messages.\""},{"Add":"                 'all)"},{"Add":"                ((mute-rule-p room-rule)"},{"Add":"                 ;; According to comment, a room-level mute still allows mentions to"},{"Add":"                 ;; notify."},{"Add":"                 'mentions-and-keywords)"},{"Add":"                ((tweak-rule-p \"sound\" room-rule) 'all-loud)))))))"},{"Add":""},{"Add":"(defun ement-room-set-notification-state (state room session)"},{"Add":"  \"Set notification STATE for ROOM on SESSION."},{"Add":"Interactively, with prefix, prompt for room and session,"},{"Add":"otherwise use current room.  STATE may be nil to set the rules to"},{"Add":"default, `all', `mentions-and-keywords', or `none'.\""},{"Add":"  ;; This merely attempts to reproduce the behavior of Element's simple notification"},{"Add":"  ;; options.  It does not attempt to offer all of the features defined in the spec.  And,"},{"Add":"  ;; yes, it is rather awkward, having to sometimes* make multiple requests of different"},{"Add":"  ;; \"kinds\" to set the rules for a single room, but that is how the API works."},{"Add":"  ;;"},{"Add":"  ;; * It appears that Element only makes multiple requests of different kinds when"},{"Add":"  ;; strictly necessary, but coding that logic now would seem likely to be a waste of"},{"Add":"  ;; time, given that Element doesn't even use the latest version of the spec yet.  So"},{"Add":"  ;; we'll just do the \"dumb\" thing and always send requests of both \"override\" and"},{"Add":"  ;; \"room\" kinds, which appears to Just Work™."},{"Add":"  ;;"},{"Add":"  ;; TODO: Match rules to these user-friendly notification states for presentation.  See"},{"Add":"  ;; ."},{"Add":""},{"Add":"  ;; TODO: Support `all-loud' (\"all_messages_loud\")."},{"Add":"  (interactive"},{"Add":"   (ement-with-room-and-session"},{"Add":"     (let* ((prompt (format \"Set notification rules for %s: \" (ement--format-room ement-room)))"},{"Add":"            (available-states (ement-alist \"Default\" nil"},{"Add":"                                           \"All messages\" 'all"},{"Add":"                                           \"Mentions and keywords\" 'mentions-and-keywords"},{"Add":"                                           \"None\" 'none))"},{"Add":"            (selected-rule (completing-read prompt (mapcar #'car available-states) nil t))"},{"Add":"            (state (alist-get selected-rule available-states nil nil #'equal)))"},{"Add":"       (list state ement-room ement-session))))"},{"Add":"  (cl-labels ((set-rule (kind rule queue message-fn)"},{"Add":"                        (pcase-let* (((cl-struct ement-room (id room-id)) room)"},{"Add":"                                     (rule-id (url-hexify-string room-id))"},{"Add":"                                     (endpoint (format \"pushrules/global/%s/%s\" kind rule-id))"},{"Add":"                                     (method (if rule 'put 'delete))"},{"Add":"                                     (then (if rule"},{"Add":"                                               ;; Setting rules requires PUTting the rules, then making a second"},{"Add":"                                               ;; request to enable them."},{"Add":"                                               (lambda (_data)"},{"Add":"                                                 (ement-api session (concat endpoint \"/enabled\") :queue queue :version \"r0\""},{"Add":"                                                   :method 'put :data (json-encode (ement-alist 'enabled t))"},{"Add":"                                                   :then message-fn))"},{"Add":"                                             message-fn)))"},{"Add":"                          (ement-api session endpoint :queue queue :method method :version \"r0\""},{"Add":"                            :data (json-encode rule)"},{"Add":"                            :then then"},{"Add":"                            :else (lambda (plz-error)"},{"Add":"                                    (pcase-let* (((cl-struct plz-error response) plz-error)"},{"Add":"                                                 ((cl-struct plz-response status) response))"},{"Add":"                                      (pcase status"},{"Add":"                                        (404 (pcase rule"},{"Add":"                                               (`nil"},{"Add":"                                                ;; Room already had no rules, so none being found is not an"},{"Add":"                                                ;; error."},{"Add":"                                                nil)"},{"Add":"                                               (_ ;; Unexpected error: re-signal."},{"Add":"                                                (ement-api-error plz-error))))"},{"Add":"                                        (_ ;; Unexpected error: re-signal."},{"Add":"                                         (ement-api-error plz-error)))))))))"},{"Add":"    (pcase-let* ((available-states"},{"Add":"                  (ement-alist"},{"Add":"                   nil (ement-alist"},{"Add":"                        \"override\" nil"},{"Add":"                        \"room\" nil)"},{"Add":"                   'all (ement-alist"},{"Add":"                         \"override\" nil"},{"Add":"                         \"room\" (ement-alist"},{"Add":"                                 'actions (vector \"notify\" (ement-alist"},{"Add":"                                                            'set_tweak \"sound\""},{"Add":"                                                            'value \"default\"))))"},{"Add":"                   'mentions-and-keywords (ement-alist"},{"Add":"                                           \"override\" nil"},{"Add":"                                           \"room\" (ement-alist"},{"Add":"                                                   'actions (vector \"dont_notify\")))"},{"Add":"                   'none (ement-alist"},{"Add":"                          \"override\" (ement-alist"},{"Add":"                                      'actions (vector \"dont_notify\")"},{"Add":"                                      'conditions (vector (ement-alist"},{"Add":"                                                           'kind \"event_match\""},{"Add":"                                                           'key \"room_id\""},{"Add":"                                                           'pattern (ement-room-id room))))"},{"Add":"                          \"room\" nil)))"},{"Add":"                 (kinds-and-rules (alist-get state available-states nil nil #'equal)))"},{"Add":"      (cl-loop with queue = (make-plz-queue :limit 1)"},{"Add":"               with total = (1- (length kinds-and-rules))"},{"Add":"               for count from 0"},{"Add":"               for message-fn = (if (equal count total)"},{"Add":"                                    (lambda (_data)"},{"Add":"                                      (message \"Set notification rules for room: %s\" (ement--format-room room)))"},{"Add":"                                  #'ignore)"},{"Add":"               for (kind . state) in kinds-and-rules"},{"Add":"               do (set-rule kind state queue message-fn)))))"},{"Add":""},{"Add":";;;;; Public functions"},{"Add":""},{"Add":";; These functions could reasonably be called by code in other packages."},{"Add":""},{"Add":"(cl-defun ement-put-state"},{"Add":"    (room type key data session"},{"Add":"          &key (then (lambda (response-data)"},{"Add":"                       (ement-debug \"State data put on room\" response-data data room session))))"},{"Add":"  \"Put state event of TYPE with KEY and DATA on ROOM on SESSION."},{"Add":"DATA should be an alist, which will become the JSON request"},{"Add":"body.\""},{"Add":"  (declare (indent defun))"},{"Add":"  (pcase-let* ((endpoint (format \"rooms/%s/state/%s/%s\""},{"Add":"                                 (url-hexify-string (ement-room-id room))"},{"Add":"                                 type key)))"},{"Add":"    (ement-api session endpoint :method 'put :data (json-encode data)"},{"Add":"      ;; TODO: Handle error codes."},{"Add":"      :then then)))"},{"Add":""},{"Add":"(defun ement-message (format-string &rest args)"},{"Add":"  \"Call `message' on FORMAT-STRING prefixed with \\\"Ement: \\\".\""},{"Add":"  ;; TODO: Use this function everywhere we use `message'."},{"Add":"  (apply #'message (concat \"Ement: \" format-string) args))"},{"Add":""},{"Add":"(cl-defun ement-upload (session &key data filename then else"},{"Add":"                                (content-type \"application/octet-stream\"))"},{"Add":"  \"Upload DATA with FILENAME to content repository on SESSION."},{"Add":"THEN and ELSE are passed to `ement-api', which see.\""},{"Add":"  (declare (indent defun))"},{"Add":"  (ement-api session \"upload\" :method 'post :endpoint-category \"media\""},{"Add":"    ;; NOTE: Element currently uses \"r0\" not \"v3\", so so do we."},{"Add":"    :params (when filename"},{"Add":"              (list (list \"filename\" filename)))"},{"Add":"    :content-type content-type :data data :data-type 'binary"},{"Add":"    :then then :else else))"},{"Add":""},{"Add":"(cl-defun ement-complete-session (&key (prompt \"Session: \"))"},{"Add":"  \"Return an Ement session selected with completion.\""},{"Add":"  (cl-etypecase (length ement-sessions)"},{"Add":"    ((integer 1 1) (cdar ement-sessions))"},{"Add":"    ((integer 2 *) (let* ((ids (mapcar #'car ement-sessions))"},{"Add":"                          (selected-id (completing-read prompt ids nil t)))"},{"Add":"                     (alist-get selected-id ement-sessions nil nil #'equal)))"},{"Add":"    (otherwise (user-error \"No active sessions.  Call `ement-connect' to log in\"))))"},{"Add":""},{"Add":"(declare-function ewoc-locate \"ewoc\")"},{"Add":"(defun ement-complete-user-id ()"},{"Add":"  \"Return a user-id selected with completion."},{"Add":"Selects from seen users on all sessions.  If point is on an"},{"Add":"event, suggests the event's sender as initial input.  Allows"},{"Add":"unseen user IDs to be input as well.\""},{"Add":"  (cl-labels ((format-user (user)"},{"Add":"                           ;; FIXME: Per-room displaynames are now stored in room structs"},{"Add":"                           ;; rather than user structs, so to be complete, this needs to"},{"Add":"                           ;; iterate over all known rooms, looking for the user's"},{"Add":"                           ;; displayname in that room."},{"Add":"                           (format \"%s <%s>\""},{"Add":"                                   (ement-user-displayname user)"},{"Add":"\t\t\t\t   (ement-user-id user))))"},{"Add":"    (let* ((display-to-id"},{"Add":"\t    (cl-loop for key being the hash-keys of ement-users"},{"Add":"\t\t     using (hash-values value)"},{"Add":"\t\t     collect (cons (format-user value) key)))"},{"Add":"           (user-at-point (when (equal major-mode 'ement-room-mode)"},{"Add":"                            (when-let ((node (ewoc-locate ement-ewoc)))"},{"Add":"                              (when (ement-event-p (ewoc-data node))"},{"Add":"                                (format-user (ement-event-sender (ewoc-data node)))))))"},{"Add":"\t   (selected-user (completing-read \"User: \" (mapcar #'car display-to-id)"},{"Add":"                                           nil nil user-at-point)))"},{"Add":"      (or (alist-get selected-user display-to-id nil nil #'equal)"},{"Add":"\t  selected-user))))"},{"Add":""},{"Add":"(cl-defun ement-put-account-data"},{"Add":"    (session type data &key room"},{"Add":"             (then (lambda (received-data)"},{"Add":"                     ;; Handle echoed-back account data event (the spec does not explain this,"},{"Add":"                     ;; but see )."},{"Add":"                     ;; FIXME: Make session account-data a map instead of a list of events."},{"Add":"                     (if room"},{"Add":"                         (push received-data (ement-room-account-data room))"},{"Add":"                       (push received-data (ement-session-account-data session)))"},{"Add":""},{"Add":"                     ;; NOTE: Commenting out this ement-debug form because a bug in Emacs"},{"Add":"                     ;; causes this long string to be interpreted as the function's"},{"Add":"                     ;; docstring and cause a too-long-docstring warning."},{"Add":""},{"Add":"                     ;; (ement-debug \"Account data put and received back on session %s:  PUT(json-encoded):%S  RECEIVED:%S\""},{"Add":"                     ;;              (ement-user-id (ement-session-user session)) (json-encode data) received-data)"},{"Add":"                     )))"},{"Add":"  \"Put account data of TYPE with DATA on SESSION."},{"Add":"If ROOM, put it on that room's account data.  Also handle the"},{"Add":"echoed-back event.\""},{"Add":"  (declare (indent defun))"},{"Add":"  (pcase-let* (((cl-struct ement-session (user (cl-struct ement-user (id user-id)))) session)"},{"Add":"               (room-part (if room (format \"/rooms/%s\" (ement-room-id room)) \"\"))"},{"Add":"               (endpoint (format \"user/%s%s/account_data/%s\" (url-hexify-string user-id) room-part type)))"},{"Add":"    (ement-api session endpoint :method 'put :data (json-encode data)"},{"Add":"      :then then)))"},{"Add":""},{"Add":"(defun ement-redact (event room session &optional reason)"},{"Add":"  \"Redact EVENT in ROOM on SESSION, optionally for REASON.\""},{"Add":"  (pcase-let* (((cl-struct ement-event (id event-id)) event)"},{"Add":"               ((cl-struct ement-room (id room-id)) room)"},{"Add":"               (endpoint (format \"rooms/%s/redact/%s/%s\""},{"Add":"                                 room-id event-id (ement--update-transaction-id session)))"},{"Add":"               (content (ement-alist \"reason\" reason)))"},{"Add":"    (ement-api session endpoint :method 'put :data (json-encode content)"},{"Add":"      :then (lambda (_data)"},{"Add":"              (message \"Event %s redacted.\" event-id)))))"},{"Add":""},{"Add":";;;;; Inline functions"},{"Add":""},{"Add":"(defsubst ement--user-color (user)"},{"Add":"  \"Return USER's color, setting it if necessary."},{"Add":"USER is an `ement-user' struct.\""},{"Add":"  (or (ement-user-color user)"},{"Add":"      (setf (ement-user-color user)"},{"Add":"            (ement--prism-color (ement-user-id user)))))"},{"Add":""},{"Add":";;;;; Private functions"},{"Add":""},{"Add":";; These functions aren't expected to be called by code in other packages (but if that"},{"Add":";; were necessary, they could be renamed accordingly)."},{"Add":""},{"Add":";; (defun ement--room-routing (room)"},{"Add":";;   \"Return a list of servers to route to ROOM through.\""},{"Add":";;   ;; See ."},{"Add":";;   ;; FIXME: Ensure highest power level user is at least level 50."},{"Add":";;   ;; FIXME: Ignore servers blocked due to server ACLs."},{"Add":";;   ;; FIXME: Ignore servers which are IP addresses."},{"Add":";;   (cl-labels ((most-powerful-user-in"},{"Add":";;                (room))"},{"Add":";;               (servers-by-population-in"},{"Add":";;                (room))"},{"Add":";;               (server-of (user)))"},{"Add":";;     (let (first-server-by-power-level)"},{"Add":";;       (delete-dups"},{"Add":";;        (remq nil"},{"Add":";;              (list"},{"Add":";;               ;; 1."},{"Add":";;               (or (when-let ((user (most-powerful-user-in room)))"},{"Add":";;                     (setf first-server-by-power-level t)"},{"Add":";;                     (server-of user))"},{"Add":";;                   (car (servers-by-population-in room)))"},{"Add":";;               ;; 2."},{"Add":";;               (if first-server-by-power-level"},{"Add":";;                   (car (servers-by-population-in room))"},{"Add":";;                 (cl-second (servers-by-population-in room)))"},{"Add":";;               ;; 3."},{"Add":";;               (cl-third (servers-by-population-in room))))))))"},{"Add":""},{"Add":"(defun ement--room-space-p (room)"},{"Add":"  \"Return non-nil if ROOM is a space.\""},{"Add":"  (equal \"m.space\" (ement-room-type room)))"},{"Add":""},{"Add":"(defun ement--room-in-space-p (room space)"},{"Add":"  \"Return non-nil if ROOM is in SPACE on SESSION.\""},{"Add":"  ;; We could use `ement---room-spaces', but since that returns rooms by looking them up"},{"Add":"  ;; by ID in the session's rooms list, this is more efficient."},{"Add":"  (pcase-let* (((cl-struct ement-room (id parent-id) (local (map children))) space)"},{"Add":"               ((cl-struct ement-room (id child-id) (local (map parents))) room))"},{"Add":"    (or (member parent-id parents)"},{"Add":"        (member child-id children))))"},{"Add":""},{"Add":"(defun ement--room-spaces (room session)"},{"Add":"  \"Return list of ROOM's parent spaces on SESSION.\""},{"Add":"  ;; NOTE: This only looks in the room's parents list; it doesn't look in every space's children"},{"Add":"  ;; list.  This should be good enough, assuming we add to the lists correctly elsewhere."},{"Add":"  (pcase-let* (((cl-struct ement-session rooms) session)"},{"Add":"               ((cl-struct ement-room (local (map parents))) room))"},{"Add":"    (cl-remove-if-not (lambda (session-room-id)"},{"Add":"                        (member session-room-id parents))"},{"Add":"                      rooms :key #'ement-room-id)))"},{"Add":""},{"Add":"(cl-defun ement--prism-color (string &key (contrast-with (face-background 'default nil 'default)))"},{"Add":"  \"Return a computed color for STRING."},{"Add":"The color is adjusted to have sufficient contrast with the color"},{"Add":"CONTRAST-WITH (by default, the default face's background).  The"},{"Add":"computed color is useful for user messages, generated room"},{"Add":"avatars, etc.\""},{"Add":"  ;; TODO: Use this instead of `ement-room--user-color'.  (Same algorithm ,just takes a"},{"Add":"  ;; string as argument.)"},{"Add":"  ;; TODO: Try using HSV somehow so we could avoid having so many strings return a"},{"Add":"  ;; nearly-black color."},{"Add":"  (cl-labels ((relative-luminance"},{"Add":"               ;; Copy of `modus-themes-wcag-formula', an elegant"},{"Add":"               ;; implementation by Protesilaos Stavrou.  Also see"},{"Add":"               ;;  and"},{"Add":"               ;; ."},{"Add":"               (rgb) (cl-loop for k in '(0.2126 0.7152 0.0722)"},{"Add":"                              for x in rgb"},{"Add":"                              sum (* k (if (<= x 0.03928)"},{"Add":"                                           (/ x 12.92)"},{"Add":"                                         (expt (/ (+ x 0.055) 1.055) 2.4)))))"},{"Add":"              (contrast-ratio"},{"Add":"               ;; Copy of `modus-themes-contrast'; see above."},{"Add":"               (a b) (let ((ct (/ (+ (relative-luminance a) 0.05)"},{"Add":"                                  (+ (relative-luminance b) 0.05))))"},{"Add":"                       (max ct (/ ct))))"},{"Add":"              (increase-contrast"},{"Add":"               (color against target toward)"},{"Add":"               (let ((gradient (cdr (color-gradient color toward 20)))"},{"Add":"                     new-color)"},{"Add":"                 (cl-loop do (setf new-color (pop gradient))"},{"Add":"                          while new-color"},{"Add":"                          until (>= (contrast-ratio new-color against) target)"},{"Add":"                          ;; Avoid infinite loop in case of weirdness"},{"Add":"                          ;; by returning color as a fallback."},{"Add":"                          finally return (or new-color color)))))"},{"Add":"    (let* ((id string)"},{"Add":"           (id-hash (float (+ (abs (sxhash id)) ement-room-prism-color-adjustment)))"},{"Add":"           ;; TODO: Wrap-around the value to get the color I want."},{"Add":"           (ratio (/ id-hash (float most-positive-fixnum)))"},{"Add":"           (color-num (round (* (* 255 255 255) ratio)))"},{"Add":"           (color-rgb (list (/ (float (logand color-num 255)) 255)"},{"Add":"                            (/ (float (lsh (logand color-num 65280) -8)) 255)"},{"Add":"                            (/ (float (lsh (logand color-num 16711680) -16)) 255)))"},{"Add":"           (contrast-with-rgb (color-name-to-rgb contrast-with)))"},{"Add":"      (when (< (contrast-ratio color-rgb contrast-with-rgb) ement-room-prism-minimum-contrast)"},{"Add":"        (setf color-rgb (increase-contrast color-rgb contrast-with-rgb ement-room-prism-minimum-contrast"},{"Add":"                                           (color-name-to-rgb"},{"Add":"                                            ;; Ideally we would use the foreground color,"},{"Add":"                                            ;; but in some themes, like Solarized Dark,"},{"Add":"                                            ;; the foreground color's contrast is too low"},{"Add":"                                            ;; to be effective as the value to increase"},{"Add":"                                            ;; contrast against, so we use white or black."},{"Add":"                                            (pcase contrast-with"},{"Add":"                                              ((or `nil \"unspecified-bg\")"},{"Add":"                                               ;; The `contrast-with' color (i.e. the"},{"Add":"                                               ;; default background color) is nil.  This"},{"Add":"                                               ;; probably means that we're displaying on"},{"Add":"                                               ;; a TTY."},{"Add":"                                               (if (fboundp 'frame--current-backround-mode)"},{"Add":"                                                   ;; This function can tell us whether"},{"Add":"                                                   ;; the background color is dark or"},{"Add":"                                                   ;; light, but it was added in Emacs"},{"Add":"                                                   ;; 28.1."},{"Add":"                                                   (pcase (frame--current-backround-mode (selected-frame))"},{"Add":"                                                     ('dark \"white\")"},{"Add":"                                                     ('light \"black\"))"},{"Add":"                                                 ;; Pre-28.1: Since faces' colors may be"},{"Add":"                                                 ;; \"unspecified\" on TTY frames, in which"},{"Add":"                                                 ;; case we have nothing to compare with, we"},{"Add":"                                                 ;; assume that the background color of such"},{"Add":"                                                 ;; a frame is black and increase contrast"},{"Add":"                                                 ;; toward white."},{"Add":"                                                 \"white\"))"},{"Add":"                                              (_"},{"Add":"                                               ;; The `contrast-with` color is usable: test it."},{"Add":"                                               (if (ement--color-dark-p (color-name-to-rgb contrast-with))"},{"Add":"                                                   \"white\" \"black\")))))))"},{"Add":"      (apply #'color-rgb-to-hex (append color-rgb (list 2))))))"},{"Add":""},{"Add":"(cl-defun ement--format-user (user &optional (room ement-room) (session ement-session))"},{"Add":"  \"Format `ement-user' USER for ROOM on SESSION."},{"Add":"ROOM defaults to the value of `ement-room'.\""},{"Add":"  (let ((face (cond ((equal (ement-user-id (ement-session-user session))"},{"Add":"                            (ement-user-id user))"},{"Add":"                     'ement-room-self)"},{"Add":"                    (ement-room-prism"},{"Add":"                     `(:inherit ement-room-user :foreground ,(or (ement-user-color user)"},{"Add":"                                                                 (setf (ement-user-color user)"},{"Add":"                                                                       (ement--prism-color user)))))"},{"Add":"                    (t 'ement-room-user))))"},{"Add":"    ;; FIXME: If a membership state event has not yet been received, this"},{"Add":"    ;; sets the display name in the room to the user ID, and that prevents"},{"Add":"    ;; the display name from being used if the state event arrives later."},{"Add":"    (propertize (ement--user-displayname-in room user)"},{"Add":"                'face face"},{"Add":"                'help-echo (ement-user-id user))))"},{"Add":""},{"Add":"(cl-defun ement--format-body-mentions"},{"Add":"    (body room &key (template \"%s\"))"},{"Add":"  \"Return string for BODY with mentions in ROOM linkified with TEMPLATE."},{"Add":"TEMPLATE is a format string in which the first \\\"%s\\\" is replaced"},{"Add":"with the user's MXID and the second with the displayname.  A"},{"Add":"mention is qualified by an \\\"@\\\"-prefixed displayname or"},{"Add":"MXID (optionally suffixed with a colon), or a colon-suffixed"},{"Add":"displayname, followed by a blank, question mark, comma, or"},{"Add":"period, anywhere in the body.\""},{"Add":"  ;; Examples:"},{"Add":"  ;; \"@foo: hi\""},{"Add":"  ;; \"@foo:matrix.org: hi\""},{"Add":"  ;; \"foo: hi\""},{"Add":"  ;; \"@foo and @bar:matrix.org: hi\""},{"Add":"  ;; \"foo: how about you and @bar ...\""},{"Add":"  (declare (indent defun))"},{"Add":"  (cl-labels ((members-having-displayname"},{"Add":"               ;; Iterating over the hash table values isn't as efficient as a hash"},{"Add":"               ;; lookup, but in most rooms it shouldn't be a problem."},{"Add":"               (name members) (cl-loop for user being the hash-values of members"},{"Add":"                                       when (equal name (ement--user-displayname-in room user))"},{"Add":"                                       collect user)))"},{"Add":"    (pcase-let* (((cl-struct ement-room members) room)"},{"Add":"                 (regexp (rx (or bos bow (1+ blank))"},{"Add":"                             (or (seq (group"},{"Add":"                                       ;; Group 1: full @-prefixed MXID."},{"Add":"                                       \"@\" (group"},{"Add":"                                            ;; Group 2: displayname.  (NOTE: Does not work"},{"Add":"                                            ;; with displaynames containing spaces.)"},{"Add":"                                            (1+ (seq (optional \".\") alnum)))"},{"Add":"                                       (optional \":\" (1+ (seq (optional \".\") alnum))))"},{"Add":"                                      (or \":\" eow eos (syntax punctuation)))"},{"Add":"                                 (seq (group"},{"Add":"                                       ;; Group 3: MXID username or displayname."},{"Add":"                                       (1+ (not blank)))"},{"Add":"                                      \":\" (1+ blank)))))"},{"Add":"                 (pos 0) (replace-group) (replacement))"},{"Add":"      (while (setf pos (string-match regexp body pos))"},{"Add":"        (if (setf replacement"},{"Add":"                  (or (when-let (member (gethash (match-string 1 body) members))"},{"Add":"                        ;; Found user ID: use it as replacement."},{"Add":"                        (setf replace-group 1)"},{"Add":"                        (format template (match-string 1 body)"},{"Add":"                                (ement--xml-escape-string (ement--user-displayname-in room member))))"},{"Add":"                      (when-let* ((name (or (when (match-string 2 body)"},{"Add":"                                              (setf replace-group 1)"},{"Add":"                                              (match-string 2 body))"},{"Add":"                                            (prog1 (match-string 3 body)"},{"Add":"                                              (setf replace-group 3))))"},{"Add":"                                  (members (members-having-displayname name members))"},{"Add":"                                  (member (when (= 1 (length members))"},{"Add":"                                            ;; If multiple members are found with the same"},{"Add":"                                            ;; displayname, do nothing."},{"Add":"                                            (car members))))"},{"Add":"                        ;; Found displayname: use it and MXID as replacement."},{"Add":"                        (format template (ement-user-id member)"},{"Add":"                                (ement--xml-escape-string name)))))"},{"Add":"            (progn"},{"Add":"              ;; Found member: replace and move to end of replacement."},{"Add":"              (setf body (replace-match replacement t t body replace-group))"},{"Add":"              (let ((difference (- (length replacement) (length (match-string 0 body)))))"},{"Add":"                (setf pos (if (/= 0 difference)"},{"Add":"                              ;; Replacement of a different length: adjust POS accordingly."},{"Add":"                              (+ pos difference)"},{"Add":"                            (match-end 0)))))"},{"Add":"          ;; No replacement: move to end of match."},{"Add":"          (setf pos (match-end 0))))))"},{"Add":"  body)"},{"Add":""},{"Add":"(defun ement--event-mentions-room-p (event &rest _ignore)"},{"Add":"  \"Return non-nil if EVENT mentions \\\"@room\\\".\""},{"Add":"  (pcase-let (((cl-struct ement-event (content (map body))) event))"},{"Add":"    (when body"},{"Add":"      (string-match-p (rx (or space bos) \"@room\" eow) body))))"},{"Add":""},{"Add":"(cl-defun ement-complete-room (&key session (predicate #'identity)"},{"Add":"                                    (prompt \"Room: \") (suggest t))"},{"Add":"  \"Return a (room session) list selected from SESSION with completion."},{"Add":"If SESSION is nil, select from rooms in all of `ement-sessions'."},{"Add":"When SUGGEST, suggest current buffer's room (or a room at point"},{"Add":"in a room list buffer) as initial input (i.e. it should be set to"},{"Add":"nil when switching from one room buffer to another).  PROMPT may"},{"Add":"override the default prompt.  PREDICATE may be a function to"},{"Add":"select which rooms are offered; it is also applied to the"},{"Add":"suggested room.\""},{"Add":"  (declare (indent defun))"},{"Add":"  (pcase-let* ((sessions (if session"},{"Add":"                             (list session)"},{"Add":"                           (mapcar #'cdr ement-sessions)))"},{"Add":"               (name-to-room-session"},{"Add":"                (cl-loop for session in sessions"},{"Add":"                         append (cl-loop for room in (ement-session-rooms session)"},{"Add":"                                         when (funcall predicate room)"},{"Add":"                                         collect (cons (ement--format-room room 'topic)"},{"Add":"                                                       (list room session)))))"},{"Add":"               (names (mapcar #'car name-to-room-session))"},{"Add":"               (selected-name (completing-read"},{"Add":"                               prompt names nil t"},{"Add":"                               (when suggest"},{"Add":"                                 (when-let ((suggestion (ement--room-at-point)))"},{"Add":"                                   (when (or (not predicate)"},{"Add":"                                             (funcall predicate suggestion))"},{"Add":"                                     (ement--format-room suggestion 'topic)))))))"},{"Add":"    (alist-get selected-name name-to-room-session nil nil #'string=)))"},{"Add":""},{"Add":"(cl-defun ement-send-message (room session"},{"Add":"                                   &key body formatted-body replying-to-event filter then)"},{"Add":"  \"Send message to ROOM on SESSION with BODY and FORMATTED-BODY."},{"Add":"THEN may be a function to call after the event is sent"},{"Add":"successfully.  It is called with keyword arguments for ROOM,"},{"Add":"SESSION, CONTENT, and DATA."},{"Add":""},{"Add":"REPLYING-TO-EVENT may be an event the message is"},{"Add":"in reply to; the message will reference it appropriately."},{"Add":""},{"Add":"FILTER may be a function through which to pass the message's"},{"Add":"content object before sending (see,"},{"Add":"e.g. `ement-room-send-org-filter').\""},{"Add":"  (declare (indent defun))"},{"Add":"  (cl-assert (not (string-empty-p body)))"},{"Add":"  (cl-assert (or (not formatted-body) (not (string-empty-p formatted-body))))"},{"Add":"  (pcase-let* (((cl-struct ement-room (id room-id)) room)"},{"Add":"               (endpoint (format \"rooms/%s/send/m.room.message/%s\" (url-hexify-string room-id)"},{"Add":"                                 (ement--update-transaction-id session)))"},{"Add":"               (formatted-body (when formatted-body"},{"Add":"                                 (ement--format-body-mentions formatted-body room)))"},{"Add":"               (content (ement-aprog1"},{"Add":"                            (ement-alist \"msgtype\" \"m.text\""},{"Add":"                                         \"body\" body)"},{"Add":"                          (when formatted-body"},{"Add":"                            (push (cons \"formatted_body\" formatted-body) it)"},{"Add":"                            (push (cons \"format\" \"org.matrix.custom.html\") it))))"},{"Add":"               (then (or then #'ignore)))"},{"Add":"    (when filter"},{"Add":"      (setf content (funcall filter content room)))"},{"Add":"    (when replying-to-event"},{"Add":"      (setf content (ement--add-reply content replying-to-event room)))"},{"Add":"    (ement-api session endpoint :method 'put :data (json-encode content)"},{"Add":"      :then (apply-partially then :room room :session session"},{"Add":"                             ;; Data is added when calling back."},{"Add":"                             :content content :data))))"},{"Add":""},{"Add":"(defalias 'ement--button-buttonize"},{"Add":"  ;; FIXME: This doesn't set the mouse-face to highlight, and it doesn't use the"},{"Add":"  ;; default-button category.  Neither does `button-buttonize', of course, but why?"},{"Add":"  (if (version< emacs-version \"28.1\")"},{"Add":"      (lambda (string callback &optional data)"},{"Add":"        \"Make STRING into a button and return it."},{"Add":"When clicked, CALLBACK will be called with the DATA as the"},{"Add":"function argument.  If DATA isn't present (or is nil), the button"},{"Add":"itself will be used instead as the function argument.\""},{"Add":"        (propertize string"},{"Add":"                    'face 'button"},{"Add":"                    'button t"},{"Add":"                    'follow-link t"},{"Add":"                    'category t"},{"Add":"                    'button-data data"},{"Add":"                    'keymap button-map"},{"Add":"                    'action callback))"},{"Add":"    #'button-buttonize))"},{"Add":""},{"Add":"(defun ement--add-reply (data replying-to-event room)"},{"Add":"  \"Return DATA adding reply data for REPLYING-TO-EVENT in ROOM."},{"Add":"DATA is an unsent message event's data alist.\""},{"Add":"  ;; SPEC:  \"13.2.2.6.1  Rich replies\""},{"Add":"  ;; FIXME: Rename DATA."},{"Add":"  (pcase-let* (((cl-struct ement-event (id replying-to-event-id)"},{"Add":"                           content (sender replying-to-sender))"},{"Add":"                replying-to-event)"},{"Add":"               ((cl-struct ement-user (id replying-to-sender-id)) replying-to-sender)"},{"Add":"               ((map ('body replying-to-body) ('formatted_body replying-to-formatted-body)) content)"},{"Add":"               (replying-to-sender-name (ement--user-displayname-in ement-room replying-to-sender))"},{"Add":"               (quote-string (format \"> <%s> %s\\n\\n\" replying-to-sender-name replying-to-body))"},{"Add":"               (reply-body (alist-get \"body\" data nil nil #'string=))"},{"Add":"               (reply-formatted-body (alist-get \"formatted_body\" data nil nil #'string=))"},{"Add":"               (reply-body-with-quote (concat quote-string reply-body))"},{"Add":"               (reply-formatted-body-with-quote"},{"Add":"                (format \""},{"Add":"  "},{"Add":"    In reply to"},{"Add":"    %s"},{"Add":"    
"},{"Add":"    %s"},{"Add":"  
"},{"Add":""},{"Add":"%s\""},{"Add":"                        (ement-room-id room) replying-to-event-id replying-to-sender-id replying-to-sender-name"},{"Add":"                        ;; TODO: Encode HTML special characters.  Not as straightforward in Emacs as one"},{"Add":"                        ;; might hope: there's `web-mode-html-entities' and `org-entities'.  See also"},{"Add":"                        ;; ."},{"Add":"                        (or replying-to-formatted-body replying-to-body)"},{"Add":"                        (or reply-formatted-body reply-body))))"},{"Add":"    ;; NOTE: map-elt doesn't work with string keys, so we use `alist-get'."},{"Add":"    (setf (alist-get \"body\" data nil nil #'string=) reply-body-with-quote"},{"Add":"          (alist-get \"formatted_body\" data nil nil #'string=) reply-formatted-body-with-quote"},{"Add":"          data (append (ement-alist \"m.relates_to\""},{"Add":"                                    (ement-alist \"m.in_reply_to\""},{"Add":"                                                 (ement-alist \"event_id\" replying-to-event-id))"},{"Add":"                                    \"format\" \"org.matrix.custom.html\")"},{"Add":"                       data))"},{"Add":"    data))"},{"Add":""},{"Add":"(defun ement--direct-room-for-user (user session)"},{"Add":"  \"Return last-modified direct room with USER on SESSION, if one exists.\""},{"Add":"  ;; Loosely modeled on the Element function findDMForUser in createRoom.ts."},{"Add":"  (cl-labels ((membership-event-for-p"},{"Add":"               (event user) (and (equal \"m.room.member\" (ement-event-type event))"},{"Add":"                                 (equal (ement-user-id user) (ement-event-state-key event))))"},{"Add":"              (latest-membership-for"},{"Add":"               (user room)"},{"Add":"               (when-let ((latest-membership-event"},{"Add":"                           (car"},{"Add":"                            (cl-sort"},{"Add":"                             ;; I guess we need to check both state and timeline events."},{"Add":"                             (append (cl-remove-if-not (lambda (event)"},{"Add":"                                                         (membership-event-for-p event user))"},{"Add":"                                                       (ement-room-state room))"},{"Add":"                                     (cl-remove-if-not (lambda (event)"},{"Add":"                                                         (membership-event-for-p event user))"},{"Add":"                                                       (ement-room-timeline room)))"},{"Add":"                             (lambda (a b)"},{"Add":"                               ;; Sort latest first so we can use the car."},{"Add":"                               (> (ement-event-origin-server-ts a)"},{"Add":"                                  (ement-event-origin-server-ts b)))))))"},{"Add":"                 (alist-get 'membership (ement-event-content latest-membership-event))))"},{"Add":"              (latest-event-in"},{"Add":"               (room) (car"},{"Add":"                       (cl-sort"},{"Add":"                        (append (ement-room-state room)"},{"Add":"                                (ement-room-timeline room))"},{"Add":"                        (lambda (a b)"},{"Add":"                          ;; Sort latest first so we can use the car."},{"Add":"                          (> (ement-event-origin-server-ts a)"},{"Add":"                             (ement-event-origin-server-ts b)))))))"},{"Add":"    (let* ((direct-rooms (cl-remove-if-not"},{"Add":"                          (lambda (room)"},{"Add":"                            (ement--room-direct-p room session))"},{"Add":"                          (ement-session-rooms session)))"},{"Add":"           (direct-joined-rooms"},{"Add":"            ;; Ensure that the local user is still in each room."},{"Add":"            (cl-remove-if-not"},{"Add":"             (lambda (room)"},{"Add":"               (equal \"join\" (latest-membership-for (ement-session-user session) room)))"},{"Add":"             direct-rooms))"},{"Add":"           ;; Since we don't currently keep a member list for each room, we look in the room's"},{"Add":"           ;; join events to see if the user has joined or been invited."},{"Add":"           (direct-rooms-with-user"},{"Add":"            (cl-remove-if-not"},{"Add":"             (lambda (room)"},{"Add":"               (member (latest-membership-for user room) '(\"invite\" \"join\")))"},{"Add":"             direct-joined-rooms)))"},{"Add":"      (car (cl-sort direct-rooms-with-user"},{"Add":"                    (lambda (a b)"},{"Add":"                      (> (latest-event-in a) (latest-event-in b))))))))"},{"Add":""},{"Add":"(defun ement--event-replaces-p (a b)"},{"Add":"  \"Return non-nil if event A replaces event B."},{"Add":"That is, if event A replaces B in their"},{"Add":"\\\"m.relates_to\\\"/\\\"m.relations\\\" and \\\"m.replace\\\" metadata.\""},{"Add":"  (pcase-let* (((cl-struct ement-event (id a-id)"},{"Add":"                           (content (map ('m.relates_to"},{"Add":"                                          (map ('rel_type a-rel-type)"},{"Add":"                                               ('event_id a-replaces-event-id))))))"},{"Add":"                a)"},{"Add":"               ((cl-struct ement-event (id b-id)"},{"Add":"                           ;; Not sure why this ends up in the unsigned key, but it does."},{"Add":"                           (unsigned (map ('m.relations"},{"Add":"                                           (map ('m.replace"},{"Add":"                                                 (map ('event_id b-replaced-by-event-id))))))))"},{"Add":"                b))"},{"Add":"    (or (and (equal \"m.replace\" a-rel-type)"},{"Add":"             (equal a-replaces-event-id b-id))"},{"Add":"        (equal a-id b-replaced-by-event-id))))"},{"Add":""},{"Add":"(defun ement--events-equal-p (a b)"},{"Add":"  \"Return non-nil if events A and B are essentially equal."},{"Add":"That is, A and B are either the same event (having the same event"},{"Add":"ID), or one event replaces the other (in their m.relates_to and"},{"Add":"m.replace metadata).\""},{"Add":"  (or (equal (ement-event-id a) (ement-event-id b))"},{"Add":"      (ement--event-replaces-p a b)"},{"Add":"      (ement--event-replaces-p b a)))"},{"Add":""},{"Add":"(defun ement--format-room (room &optional topic)"},{"Add":"  \"Return ROOM formatted with name, alias, ID, and optionally TOPIC."},{"Add":"Suitable for use in completion, etc.\""},{"Add":"  (if topic"},{"Add":"      (format \"%s%s(<%s>)%s\""},{"Add":"              (or (ement-room-display-name room)"},{"Add":"                  (setf (ement-room-display-name room)"},{"Add":"                        (ement--room-display-name room)))"},{"Add":"              (if (ement-room-canonical-alias room)"},{"Add":"                  (format \" <%s> \" (ement-room-canonical-alias room))"},{"Add":"                \" \")"},{"Add":"              (ement-room-id room)"},{"Add":"              (if (ement-room-topic room)"},{"Add":"                  (format \": \\\"%s\\\"\" (ement-room-topic room))"},{"Add":"                \"\"))"},{"Add":"    (format \"%s%s(<%s>)\""},{"Add":"            (or (ement-room-display-name room)"},{"Add":"                (setf (ement-room-display-name room)"},{"Add":"                      (ement--room-display-name room)))"},{"Add":"            (if (ement-room-canonical-alias room)"},{"Add":"                (format \" <%s> \" (ement-room-canonical-alias room))"},{"Add":"              \" \")"},{"Add":"            (ement-room-id room))))"},{"Add":""},{"Add":"(defun ement--members-alist (room)"},{"Add":"  \"Return alist of member displaynames mapped to IDs seen in ROOM.\""},{"Add":"  ;; We map displaynames to IDs because `ement-room--format-body-mentions' needs to find"},{"Add":"  ;; MXIDs from displaynames."},{"Add":"  (pcase-let* (((cl-struct ement-room timeline) room)"},{"Add":"               (members-seen (mapcar #'ement-event-sender timeline))"},{"Add":"               (members-alist))"},{"Add":"    (dolist (member members-seen)"},{"Add":"      ;; Testing with `benchmark-run-compiled', it appears that using `cl-pushnew' is"},{"Add":"      ;; about 10x faster than using `delete-dups'."},{"Add":"      (cl-pushnew (cons (ement--user-displayname-in room member)"},{"Add":"                        (ement-user-id member))"},{"Add":"                  members-alist))"},{"Add":"    members-alist))"},{"Add":""},{"Add":"(defun ement--mxc-to-url (uri session)"},{"Add":"  \"Return HTTPS URL for MXC URI accessed through SESSION.\""},{"Add":"  (pcase-let* (((cl-struct ement-session server) session)"},{"Add":"               ((cl-struct ement-server uri-prefix) server)"},{"Add":"               (server-name) (media-id))"},{"Add":"    (string-match (rx \"mxc://\" (group (1+ (not (any \"/\"))))"},{"Add":"                      \"/\" (group (1+ anything))) uri)"},{"Add":"    (setf server-name (match-string 1 uri)"},{"Add":"          media-id (match-string 2 uri))"},{"Add":"    (format \"%s/_matrix/media/r0/download/%s/%s\""},{"Add":"            uri-prefix server-name media-id)))"},{"Add":""},{"Add":"(defun ement--remove-face-property (string value)"},{"Add":"  \"Remove VALUE from STRING's `face' properties."},{"Add":"Used to remove the `button' face from buttons, because that face"},{"Add":"can cause undesirable underlining.\""},{"Add":"  (let ((pos 0))"},{"Add":"    (cl-loop for next-face-change-pos = (next-single-property-change pos 'face string)"},{"Add":"             for face-at = (get-text-property pos 'face string)"},{"Add":"             when face-at"},{"Add":"             do (put-text-property pos (or next-face-change-pos (length string))"},{"Add":"                                   'face (cl-typecase face-at"},{"Add":"                                           (atom (if (equal value face-at)"},{"Add":"                                                     nil face-at))"},{"Add":"                                           (list (remove value face-at)))"},{"Add":"                                   string)"},{"Add":"             while next-face-change-pos"},{"Add":"             do (setf pos next-face-change-pos))))"},{"Add":""},{"Add":"(defun ement--resize-image (image max-width max-height)"},{"Add":"  \"Return a copy of IMAGE set to MAX-WIDTH and MAX-HEIGHT."},{"Add":"IMAGE should be one as created by, e.g. `create-image'.\""},{"Add":"  ;; It would be nice if the image library had some simple functions to do this sort of thing."},{"Add":"  (let ((new-image (cl-copy-list image)))"},{"Add":"    (when (fboundp 'imagemagick-types)"},{"Add":"      ;; Only do this when ImageMagick is supported."},{"Add":"      ;; FIXME: When requiring Emacs 27+, remove this (I guess?)."},{"Add":"      (setf (image-property new-image :type) 'imagemagick))"},{"Add":"    (setf (image-property new-image :max-width) max-width"},{"Add":"          (image-property new-image :max-height) max-height)"},{"Add":"    new-image))"},{"Add":""},{"Add":"(defun ement--room-alias (room)"},{"Add":"  \"Return latest m.room.canonical_alias event in ROOM.\""},{"Add":"  ;; FIXME: This function probably needs to compare timestamps to ensure that older events"},{"Add":"  ;; that are inserted at the head of the events lists aren't used instead of newer ones."},{"Add":"  (or (cl-loop for event in (ement-room-timeline room)"},{"Add":"               when (equal \"m.room.canonical_alias\" (ement-event-type event))"},{"Add":"               return (alist-get 'alias (ement-event-content event)))"},{"Add":"      (cl-loop for event in (ement-room-state room)"},{"Add":"               when (equal \"m.room.canonical_alias\" (ement-event-type event))"},{"Add":"               return (alist-get 'alias (ement-event-content event)))))"},{"Add":""},{"Add":"(declare-function magit-current-section \"magit-section\")"},{"Add":"(declare-function eieio-oref \"eieio-core\")"},{"Add":"(defun ement--room-at-point ()"},{"Add":"  \"Return room at point."},{"Add":"Works in major-modes `ement-room-mode',"},{"Add":"`ement-tabulated-room-list-mode', and `ement-room-list-mode'.\""},{"Add":"  (pcase major-mode"},{"Add":"    ('ement-room-mode ement-room)"},{"Add":"    ('ement-tabulated-room-list-mode (tabulated-list-get-id))"},{"Add":"    ('ement-room-list-mode"},{"Add":"     (cl-typecase (oref (magit-current-section) value)"},{"Add":"       (taxy-magit-section nil)"},{"Add":"       (t (pcase (oref (magit-current-section) value)"},{"Add":"            (`[,room ,_session] room)))))))"},{"Add":""},{"Add":"(defun ement--room-direct-p (room session)"},{"Add":"  \"Return non-nil if ROOM on SESSION is a direct chat.\""},{"Add":"  (cl-labels ((content-contains-room-id"},{"Add":"               (content room-id) (cl-loop for (_user-id . room-ids) in content"},{"Add":"                                          ;; NOTE: room-ids is a vector."},{"Add":"                                          thereis (seq-contains-p room-ids room-id))))"},{"Add":"    (pcase-let* (((cl-struct ement-session account-data) session)"},{"Add":"                 ((cl-struct ement-room id) room))"},{"Add":"      (or (cl-loop for event in account-data"},{"Add":"                   when (equal \"m.direct\" (alist-get 'type event))"},{"Add":"                   thereis (content-contains-room-id (alist-get 'content event) id))"},{"Add":"          (cl-loop"},{"Add":"           ;; Invited rooms have no account-data yet, and their"},{"Add":"           ;; directness flag is in invite-state events."},{"Add":"           for event in (ement-room-invite-state room)"},{"Add":"           thereis (alist-get 'is_direct (ement-event-content event)))))))"},{"Add":""},{"Add":"(defun ement--room-display-name (room)"},{"Add":"  \"Return the displayname for ROOM.\""},{"Add":"  ;; SPEC: ."},{"Add":"  ;; NOTE: The spec seems incomplete, because the algorithm it recommends does not say how"},{"Add":"  ;; or when to use \"m.room.member\" events for rooms without heroes (e.g. invited rooms)."},{"Add":"  ;; TODO: Add SESSION argument and use it to remove local user from names."},{"Add":"  (cl-labels ((latest-event (type content-field)"},{"Add":"                            (or (cl-loop for event in (ement-room-timeline room)"},{"Add":"                                         when (and (equal type (ement-event-type event))"},{"Add":"                                                   (not (string-empty-p (alist-get content-field (ement-event-content event)))))"},{"Add":"                                         return (alist-get content-field (ement-event-content event)))"},{"Add":"                                (cl-loop for event in (ement-room-state room)"},{"Add":"                                         when (and (equal type (ement-event-type event))"},{"Add":"                                                   (not (string-empty-p (alist-get content-field (ement-event-content event)))))"},{"Add":"                                         return (alist-get content-field (ement-event-content event)))))"},{"Add":"              (member-events-name"},{"Add":"               () (when-let ((member-events (cl-loop for accessor in '(ement-room-timeline ement-room-state ement-room-invite-state)"},{"Add":"                                                     append (cl-remove-if-not (apply-partially #'equal \"m.room.member\")"},{"Add":"                                                                              (funcall accessor room)"},{"Add":"                                                                              :key #'ement-event-type))))"},{"Add":"                    (string-join (delete-dups"},{"Add":"                                  (mapcar (lambda (event)"},{"Add":"                                            (ement--user-displayname-in room (ement-event-sender event)))"},{"Add":"                                          member-events))"},{"Add":"                                 \", \")))"},{"Add":"              (heroes-name"},{"Add":"               () (pcase-let* (((cl-struct ement-room summary) room)"},{"Add":"                               ((map ('m.heroes hero-ids) ('m.joined_member_count joined-count)"},{"Add":"                                     ('m.invited_member_count invited-count))"},{"Add":"                                summary))"},{"Add":"                    ;; TODO: Disambiguate hero display names."},{"Add":"                    (when hero-ids"},{"Add":"                      (cond ((<= (+ joined-count invited-count) 1)"},{"Add":"                             ;; Empty room."},{"Add":"                             (empty-room hero-ids joined-count))"},{"Add":"                            ((>= (length hero-ids) (1- (+ joined-count invited-count)))"},{"Add":"                             ;; Members == heroes."},{"Add":"                             (hero-names hero-ids))"},{"Add":"                            ((and (< (length hero-ids) (1- (+ joined-count invited-count)))"},{"Add":"                                  (> (+ joined-count invited-count) 1))"},{"Add":"                             ;; More members than heroes."},{"Add":"                             (heroes-and-others hero-ids joined-count))))))"},{"Add":"              (hero-names"},{"Add":"               (heroes) (string-join (mapcar #'hero-name heroes) \", \"))"},{"Add":"              (hero-name"},{"Add":"               (id) (if-let ((user (gethash id ement-users)))"},{"Add":"                        (ement--user-displayname-in room user)"},{"Add":"                      id))"},{"Add":"              (heroes-and-others"},{"Add":"               (heroes joined)"},{"Add":"               (format \"%s, and %s others\" (hero-names heroes)"},{"Add":"                       (- joined (length heroes))))"},{"Add":"              (name-override"},{"Add":"               () (when-let ((event (alist-get \"org.matrix.msc3015.m.room.name.override\""},{"Add":"                                               (ement-room-account-data room)"},{"Add":"                                               nil nil #'equal)))"},{"Add":"                    (map-nested-elt event '(content name))))"},{"Add":"              (empty-room"},{"Add":"               (heroes joined) (cl-etypecase (length heroes)"},{"Add":"                                 ((satisfies zerop) \"Empty room\")"},{"Add":"                                 ((number 1 5) (format \"Empty room (was %s)\""},{"Add":"                                                       (hero-names heroes)))"},{"Add":"                                 (t (format \"Empty room (was %s)\""},{"Add":"                                            (heroes-and-others heroes joined))))))"},{"Add":"    (or (name-override)"},{"Add":"        (latest-event \"m.room.name\" 'name)"},{"Add":"        (latest-event \"m.room.canonical_alias\" 'alias)"},{"Add":"        (heroes-name)"},{"Add":"        (member-events-name)"},{"Add":"        (ement-room-id room))))"},{"Add":"(defun ement--room-favourite-p (room)"},{"Add":"  \"Return non-nil if ROOM is tagged as favourite.\""},{"Add":"  (ement--room-tagged-p \"m.favourite\" room))"},{"Add":""},{"Add":"(defun ement--room-low-priority-p (room)"},{"Add":"  \"Return non-nil if ROOM is tagged as low-priority.\""},{"Add":"  (ement--room-tagged-p \"m.lowpriority\" room))"},{"Add":""},{"Add":"(defun ement--room-tagged-p (tag room)"},{"Add":"  \"Return non-nil if ROOM has TAG.\""},{"Add":"  ;; TODO: Use `make-ement-event' on account-data events."},{"Add":"  (pcase-let* (((cl-struct ement-room account-data) room)"},{"Add":"               (tag-event (alist-get \"m.tag\" account-data nil nil #'equal)))"},{"Add":"    (when tag-event"},{"Add":"      (pcase-let (((map ('content (map tags))) tag-event))"},{"Add":"        (cl-typecase tag"},{"Add":"          ;; Tags are symbols internally, because `json-read' converts map keys to them."},{"Add":"          (string (setf tag (intern tag))))"},{"Add":"        (assoc tag tags)))))"},{"Add":""},{"Add":"(defun ement--room-unread-p (room session)"},{"Add":"  \"Return non-nil if ROOM is considered unread for SESSION."},{"Add":"The room is unread if it has a modified, live buffer; if it has"},{"Add":"non-zero unread notification counts; or if its fully-read marker"},{"Add":"is not at the latest known message event.\""},{"Add":"  ;; Roughly equivalent to the \"red/gray/bold/idle\" states listed in"},{"Add":"  ;; ."},{"Add":"  (pcase-let* (((cl-struct ement-room timeline account-data unread-notifications receipts"},{"Add":"                           (local (map buffer)))"},{"Add":"                room)"},{"Add":"               ((cl-struct ement-session user) session)"},{"Add":"               ((cl-struct ement-user (id our-id)) user)"},{"Add":"               ((map notification_count highlight_count) unread-notifications)"},{"Add":"               (fully-read-event-id (map-nested-elt (alist-get \"m.fully_read\" account-data nil nil #'equal)"},{"Add":"                                                    '(content event_id))))"},{"Add":"    ;; MAYBE: Ignore whether the buffer is modified.  Since we have a better handle on how"},{"Add":"    ;; Matrix does notifications/unreads/highlights, maybe that's not needed, and it would"},{"Add":"    ;; be more consistent to ignore it."},{"Add":"    (or (and buffer (buffer-modified-p buffer))"},{"Add":"        (and unread-notifications"},{"Add":"             (or (not (zerop notification_count))"},{"Add":"                 (not (zerop highlight_count))))"},{"Add":"        ;; NOTE: This is *WAY* too complicated, but it seems roughly equivalent to doesRoomHaveUnreadMessages() from"},{"Add":"        ;; ."},{"Add":"        (when (and (not ement-room-unread-only-counts-notifications)"},{"Add":"                   timeline)"},{"Add":"          ;; A room should rarely, if ever, have a nil timeline, but in case it does"},{"Add":"          ;; (which apparently can happen, given user reports), it should not be"},{"Add":"          ;; considered unread."},{"Add":"          (cl-labels ((event-counts-toward-unread-p"},{"Add":"                       ;; NOTE: We only consider message events, so membership, reaction,"},{"Add":"                       ;; etc. events will not mark a room as unread.  Ideally, I think"},{"Add":"                       ;; that join/leave events should, at least optionally, mark a room"},{"Add":"                       ;; as unread (e.g. in a 1:1 room with a friend, if the other user"},{"Add":"                       ;; left, one would probably want to know, and marking the room"},{"Add":"                       ;; unread would help the user notice), but since membership events"},{"Add":"                       ;; have to be processed to understand their meaning, it's not"},{"Add":"                       ;; straightforward to know whether one should mark a room unread."},{"Add":""},{"Add":"                       ;; FIXME: Use code from `ement-room--format-member-event' to"},{"Add":"                       ;; distinguish ones that should count."},{"Add":"                       (event) (equal \"m.room.message\" (ement-event-type event))))"},{"Add":"            (let ((our-read-receipt-event-id (car (gethash our-id receipts)))"},{"Add":"                  (first-counting-event (cl-find-if #'event-counts-toward-unread-p timeline)))"},{"Add":"              (cond ((equal fully-read-event-id (ement-event-id (car timeline)))"},{"Add":"                     ;; The fully-read marker is at the last known event: the room is read."},{"Add":"                     nil)"},{"Add":"                    ((and (not our-read-receipt-event-id)"},{"Add":"                          (when first-counting-event"},{"Add":"                            (and (not (equal fully-read-event-id (ement-event-id first-counting-event)))"},{"Add":"                                 (not (equal our-id (ement-user-id (ement-event-sender first-counting-event)))))))"},{"Add":"                     ;; The room has no read receipt, and the latest message event is not"},{"Add":"                     ;; the event at which our fully-read marker is at, and it is not sent"},{"Add":"                     ;; by us: the room is unread.  (This is a kind of failsafe to ensure"},{"Add":"                     ;; the user doesn't miss any messages, but it's unclear whether this"},{"Add":"                     ;; is really correct or best.)"},{"Add":"                     t)"},{"Add":"                    ((equal our-id (ement-user-id (ement-event-sender (car timeline))))"},{"Add":"                     ;; We sent the last event: the room is read."},{"Add":"                     nil)"},{"Add":"                    ((and first-counting-event"},{"Add":"                          (equal our-id (ement-user-id (ement-event-sender first-counting-event))))"},{"Add":"                     ;; We sent the last message event: the room is read."},{"Add":"                     nil)"},{"Add":"                    ((cl-loop for event in timeline"},{"Add":"                              when (event-counts-toward-unread-p event)"},{"Add":"                              return (and (not (equal our-read-receipt-event-id (ement-event-id event)))"},{"Add":"                                          (not (equal fully-read-event-id (ement-event-id event)))))"},{"Add":"                     ;; The latest message event is not the event at which our"},{"Add":"                     ;; read-receipt or fully-read marker are at: the room is unread."},{"Add":"                     t))))))))"},{"Add":""},{"Add":"(defun ement--update-transaction-id (session)"},{"Add":"  \"Return SESSION's incremented transaction ID formatted for sending."},{"Add":"Increments ID and appends current timestamp to avoid reuse"},{"Add":"problems.\""},{"Add":"  ;; TODO: Naming things is hard."},{"Add":"  ;; In the event that Emacs isn't killed cleanly and the session isn't saved to disk, the"},{"Add":"  ;; transaction ID would get reused the next time the user connects.  To avoid that, we"},{"Add":"  ;; append the current time to the ID.  (IDs are just strings, and Element does something"},{"Add":"  ;; similar, so this seems reasonable.)"},{"Add":"  (format \"%s-%s\""},{"Add":"          (cl-incf (ement-session-transaction-id session))"},{"Add":"          (format-time-string \"%s\")))"},{"Add":""},{"Add":"(defun ement--user-displayname-in (room user)"},{"Add":"  \"Return the displayname for USER in ROOM.\""},{"Add":"  ;; SPEC: ."},{"Add":"  ;; FIXME: Add step 3 of the spec.  For now we skip to step 4."},{"Add":""},{"Add":"  ;; NOTE: Both state and timeline events must be searched.  (A helpful user"},{"Add":"  ;; in #matrix-dev:matrix.org, Michael (t3chguy), clarified this for me)."},{"Add":"  (if-let ((cached-name (gethash user (ement-room-displaynames room))))"},{"Add":"      cached-name"},{"Add":"    ;; Put timeline events before state events, because IIUC they should be more recent."},{"Add":"    (cl-labels ((join-displayname-event-p"},{"Add":"                 (event) (and (eq user (ement-event-sender event))"},{"Add":"                              (equal \"m.room.member\" (ement-event-type event))"},{"Add":"                              (equal \"join\" (alist-get 'membership (ement-event-content event)))"},{"Add":"                              (alist-get 'displayname (ement-event-content event)))))"},{"Add":"      ;; FIXME: Should probably sort the relevant events to get the latest one."},{"Add":"      (if-let* ((displayname (or (cl-loop for event in (ement-room-timeline room)"},{"Add":"                                          when (join-displayname-event-p event)"},{"Add":"                                          return (alist-get 'displayname (ement-event-content event)))"},{"Add":"                                 (cl-loop for event in (ement-room-state room)"},{"Add":"                                          when (join-displayname-event-p event)"},{"Add":"                                          return (alist-get 'displayname (ement-event-content event)))))"},{"Add":"                (calculated-name displayname))"},{"Add":"          (puthash user calculated-name (ement-room-displaynames room))"},{"Add":"        ;; No membership state event: use pre-calculated displayname or ID."},{"Add":"        (or (ement-user-displayname user)"},{"Add":"            (ement-user-id user))))))"},{"Add":""},{"Add":"(defun ement--xml-escape-string (string)"},{"Add":"  \"Return STRING having been escaped with `xml-escape-string'."},{"Add":"Before Emacs 28, ignores `xml-invalid-character' errors (and any"},{"Add":"invalid characters cause STRING to remain unescaped).  After"},{"Add":"Emacs 28, uses the NOERROR argument to `xml-escape-string'.\""},{"Add":"  (condition-case _"},{"Add":"      (xml-escape-string string 'noerror)"},{"Add":"    (wrong-number-of-arguments"},{"Add":"     (condition-case _"},{"Add":"         (xml-escape-string string)"},{"Add":"       (xml-invalid-character"},{"Add":"        ;; We still don't want to error on this, so just return the string."},{"Add":"        string)))))"},{"Add":""},{"Add":"(defun ement--mark-room-direct (room session)"},{"Add":"  \"Mark ROOM on SESSION as a direct room."},{"Add":"This may be used to mark rooms as direct which, for whatever"},{"Add":"reason (like a bug in your favorite client), were not marked as"},{"Add":"such when they were created.\""},{"Add":"  (pcase-let* (((cl-struct ement-room timeline (id room-id)) room)"},{"Add":"               ((cl-struct ement-session (user local-user)) session)"},{"Add":"               ((cl-struct ement-user (id local-user-id)) local-user)"},{"Add":"               (direct-rooms-account-data-event-content"},{"Add":"                (alist-get 'content"},{"Add":"                           (cl-find-if (lambda (event)"},{"Add":"                                         (equal \"m.direct\" (alist-get 'type event)))"},{"Add":"                                       (ement-session-account-data session))))"},{"Add":"               (members (delete-dups (mapcar #'ement-event-sender timeline)))"},{"Add":"               (other-users (cl-remove local-user-id members"},{"Add":"                                       :key #'ement-user-id :test #'equal))"},{"Add":"               ((cl-struct ement-user (id other-user-id)) (car other-users))"},{"Add":"               ;; The alist keys are MXIDs as symbols."},{"Add":"               (other-user-id (intern other-user-id))"},{"Add":"               (existing-direct-rooms-for-user (map-elt direct-rooms-account-data-event-content other-user-id)))"},{"Add":"    (cl-assert (= 1 (length other-users)))"},{"Add":"    (setf (map-elt direct-rooms-account-data-event-content other-user-id)"},{"Add":"          (cl-coerce (append existing-direct-rooms-for-user (list room-id))"},{"Add":"                     'vector))"},{"Add":"    (ement-put-account-data session \"m.direct\" direct-rooms-account-data-event-content"},{"Add":"      :then (lambda (_data)"},{"Add":"              (message \"Ement: Room <%s> marked as direct for <%s>.\" room-id other-user-id)))"},{"Add":"    (message \"Ement: Marking room as direct...\")))"},{"Add":""},{"Add":"(cl-defun ement--get-joined-members (room session &key then else)"},{"Add":"  \"Get joined members in ROOM on SESSION and call THEN with response data."},{"Add":"Or call ELSE with error data if request fails.  Also puts members"},{"Add":"on `ement-users', updating their displayname and avatar URL"},{"Add":"slots, and puts them on ROOM's `members' table.\""},{"Add":"  (declare (indent defun))"},{"Add":"  (pcase-let* (((cl-struct ement-room id members) room)"},{"Add":"               (endpoint (format \"rooms/%s/joined_members\" (url-hexify-string id))))"},{"Add":"    (ement-api session endpoint"},{"Add":"      :else else"},{"Add":"      :then (lambda (data)"},{"Add":"              (clrhash members)"},{"Add":"              (mapc (lambda (member)"},{"Add":"                      (pcase-let* ((`(,id-symbol"},{"Add":"                                      . ,(map ('avatar_url avatar-url)"},{"Add":"                                              ('display_name display-name)))"},{"Add":"                                    member)"},{"Add":"                                   (member-id (symbol-name id-symbol))"},{"Add":"                                   (user (or (gethash member-id ement-users)"},{"Add":"                                             (puthash member-id (make-ement-user :id member-id)"},{"Add":"                                                      ement-users))))"},{"Add":"                        (setf (ement-user-displayname user) display-name"},{"Add":"                              (ement-user-avatar-url user) avatar-url)"},{"Add":"                        (puthash member-id user members)))"},{"Add":"                    (alist-get 'joined data))"},{"Add":"              (setf (alist-get 'fetched-members-p (ement-room-local room)) t)"},{"Add":"              (when then"},{"Add":"                ;; Finally, call the given callback."},{"Add":"                (funcall then data))))"},{"Add":"    (message \"Ement: Getting joined members in %s...\" (ement--format-room room))))"},{"Add":""},{"Add":"(cl-defun ement--human-format-duration (seconds &optional abbreviate)"},{"Add":"  \"Return human-formatted string describing duration SECONDS."},{"Add":"If SECONDS is less than 1, returns \\\"0 seconds\\\".  If ABBREVIATE"},{"Add":"is non-nil, return a shorter version, without spaces.  This is a"},{"Add":"simple calculation that does not account for leap years, leap"},{"Add":"seconds, etc.\""},{"Add":"  ;; Copied from `ts-human-format-duration' (same author)."},{"Add":"  (if (< seconds 1)"},{"Add":"      (if abbreviate \"0s\" \"0 seconds\")"},{"Add":"    (cl-macrolet ((format> (place)"},{"Add":"                           ;; When PLACE is greater than 0, return formatted string using its symbol name."},{"Add":"                           `(when (> ,place 0)"},{"Add":"                              (format \"%d%s%s\" ,place"},{"Add":"                                      (if abbreviate \"\" \" \")"},{"Add":"                                      (if abbreviate"},{"Add":"                                          ,(substring (symbol-name place) 0 1)"},{"Add":"                                        ,(symbol-name place)))))"},{"Add":"                  (join-places (&rest places)"},{"Add":"                               ;; Return string joining the names and values of PLACES."},{"Add":"                               `(string-join (delq nil"},{"Add":"                                                   (list ,@(cl-loop for place in places"},{"Add":"                                                                    collect `(format> ,place))))"},{"Add":"                                             (if abbreviate \"\" \", \"))))"},{"Add":"      (pcase-let ((`(,years ,days ,hours ,minutes ,seconds) (ement--human-duration seconds)))"},{"Add":"        (join-places years days hours minutes seconds)))))"},{"Add":""},{"Add":"(defun ement--human-duration (seconds)"},{"Add":"  \"Return list describing duration SECONDS."},{"Add":"List includes years, days, hours, minutes, and seconds.  This is"},{"Add":"a simple calculation that does not account for leap years, leap"},{"Add":"seconds, etc.\""},{"Add":"  ;; Copied from `ts-human-format-duration' (same author)."},{"Add":"  (cl-macrolet ((dividef (place divisor)"},{"Add":"                         ;; Divide PLACE by DIVISOR, set PLACE to the remainder, and return the quotient."},{"Add":"                         `(prog1 (/ ,place ,divisor)"},{"Add":"                            (setf ,place (% ,place ,divisor)))))"},{"Add":"    (let* ((seconds (floor seconds))"},{"Add":"           (years (dividef seconds 31536000))"},{"Add":"           (days (dividef seconds 86400))"},{"Add":"           (hours (dividef seconds 3600))"},{"Add":"           (minutes (dividef seconds 60)))"},{"Add":"      (list years days hours minutes seconds))))"},{"Add":""},{"Add":";;; Footer"},{"Add":""},{"Add":"(provide 'ement-lib)"},{"Add":""},{"Add":";;; ement-lib.el ends here"}]}},{"FileAdd":{"meta":{"basename":"ement-directory.el","metadata":0},"context":[{"change":0,"pos":483987}],"contents":[{"Add":";;; ement-directory.el --- Public room directory support                       -*- lexical-binding: t; -*-"},{"Add":""},{"Add":";; Copyright (C) 2022  Free Software Foundation, Inc."},{"Add":""},{"Add":";; Author: Adam Porter "},{"Add":";; Maintainer: Adam Porter "},{"Add":""},{"Add":";; This program is free software; you can redistribute it and/or modify"},{"Add":";; it under the terms of the GNU General Public License as published by"},{"Add":";; the Free Software Foundation, either version 3 of the License, or"},{"Add":";; (at your option) any later version."},{"Add":""},{"Add":";; This program is distributed in the hope that it will be useful,"},{"Add":";; but WITHOUT ANY WARRANTY; without even the implied warranty of"},{"Add":";; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the"},{"Add":";; GNU General Public License for more details."},{"Add":""},{"Add":";; You should have received a copy of the GNU General Public License"},{"Add":";; along with this program.  If not, see ."},{"Add":""},{"Add":";;; Commentary:"},{"Add":""},{"Add":";; This library provides support for viewing and searching public room directories on"},{"Add":";; Matrix homeservers."},{"Add":""},{"Add":";; To make rendering the list flexible and useful, we'll use `taxy-magit-section'."},{"Add":""},{"Add":";;; Code:"},{"Add":""},{"Add":";;;; Requirements"},{"Add":""},{"Add":"(require 'ement)"},{"Add":"(require 'ement-room-list)"},{"Add":""},{"Add":"(require 'taxy)"},{"Add":"(require 'taxy-magit-section)"},{"Add":""},{"Add":";;;; Variables"},{"Add":""},{"Add":"(defvar ement-directory-mode-map"},{"Add":"  (let ((map (make-sparse-keymap)))"},{"Add":"    (define-key map (kbd \"RET\") #'ement-directory-RET)"},{"Add":"    (define-key map [mouse-1] #'ement-directory-mouse-1)"},{"Add":"    (define-key map (kbd \"+\") #'ement-directory-next)"},{"Add":"    map))"},{"Add":""},{"Add":"(defgroup ement-directory nil"},{"Add":"  \"Options for room directories.\""},{"Add":"  :group 'ement)"},{"Add":""},{"Add":";;;; Mode"},{"Add":""},{"Add":"(define-derived-mode ement-directory-mode magit-section-mode \"Ement-Directory\""},{"Add":"  :global nil)"},{"Add":""},{"Add":"(defvar-local ement-directory-etc nil"},{"Add":"  \"Alist storing information in `ement-directory' buffers.\")"},{"Add":""},{"Add":";;;;; Keys"},{"Add":""},{"Add":"(eval-and-compile"},{"Add":"  (taxy-define-key-definer ement-directory-define-key"},{"Add":"    ement-directory-keys \"ement-directory-key\" \"FIXME: Docstring.\"))"},{"Add":""},{"Add":";; TODO: Other keys like guest_can_join, world_readable, etc.  (Last-updated time would be"},{"Add":";; nice, but the server doesn't include that in the results.)"},{"Add":""},{"Add":"(ement-directory-define-key joined-p ()"},{"Add":"  (pcase-let (((map ('room_id id)) item)"},{"Add":"              ((map session) ement-directory-etc))"},{"Add":"    (when (cl-find id (ement-session-rooms session)"},{"Add":"                   :key #'ement-room-id :test #'equal)"},{"Add":"      \"Joined\")))"},{"Add":""},{"Add":"(ement-directory-define-key size (&key < >)"},{"Add":"  (pcase-let (((map ('num_joined_members size)) item))"},{"Add":"    (cond ((and < (< size <))"},{"Add":"           (format \"< %s members\" <))"},{"Add":"          ((and > (> size >))"},{"Add":"           (format \"> %s members\" >)))))"},{"Add":""},{"Add":"(ement-directory-define-key space-p ()"},{"Add":"  \"Groups rooms that are themselves spaces.\""},{"Add":"  (pcase-let (((map ('room_type type)) item))"},{"Add":"    (when (equal \"m.space\" type)"},{"Add":"      \"Spaces\")))"},{"Add":""},{"Add":"(defcustom ement-directory-default-keys"},{"Add":"  '((joined-p)"},{"Add":"    (space-p)"},{"Add":"    ((size :> 10000))"},{"Add":"    ((size :> 1000))"},{"Add":"    ((size :> 100))"},{"Add":"    ((size :> 10))"},{"Add":"    ((size :< 11)))"},{"Add":"  \"Default keys.\""},{"Add":"  :type 'sexp)"},{"Add":""},{"Add":";;;; Columns"},{"Add":""},{"Add":"(defvar-local ement-directory-room-avatar-cache (make-hash-table)"},{"Add":"  ;; Use a buffer-local variable so that the cache is cleared when the buffer is closed."},{"Add":"  \"Hash table caching room avatars for the `ement-directory' room list.\")"},{"Add":""},{"Add":"(eval-and-compile"},{"Add":"  (taxy-magit-section-define-column-definer \"ement-directory\"))"},{"Add":""},{"Add":";; TODO: Fetch avatars (with queueing and async updating/insertion?)."},{"Add":""},{"Add":"(ement-directory-define-column #(\"✓\" 0 1 (help-echo \"Joined\")) ()"},{"Add":"  (pcase-let (((map ('room_id id)) item)"},{"Add":"              ((map session) ement-directory-etc))"},{"Add":"    (if (cl-find id (ement-session-rooms session)"},{"Add":"                 :key #'ement-room-id :test #'equal)"},{"Add":"        \"✓\""},{"Add":"      \" \")))"},{"Add":""},{"Add":"(ement-directory-define-column \"Name\" (:max-width 25)"},{"Add":"  (pcase-let* (((map name ('room_type type)) item)"},{"Add":"               (face (pcase type"},{"Add":"                       (\"m.space\" 'ement-room-list-space)"},{"Add":"                       (_ 'ement-room-list-name))))"},{"Add":"    (propertize (or name \"[unnamed]\")"},{"Add":"                'face face)))"},{"Add":""},{"Add":"(ement-directory-define-column \"Alias\" (:max-width 25)"},{"Add":"  (pcase-let (((map ('canonical_alias alias)) item))"},{"Add":"    (or alias \"\")))"},{"Add":""},{"Add":"(ement-directory-define-column \"Size\" ()"},{"Add":"  (pcase-let (((map ('num_joined_members size)) item))"},{"Add":"    (number-to-string size)))"},{"Add":""},{"Add":"(ement-directory-define-column \"Topic\" (:max-width 50)"},{"Add":"  (pcase-let (((map topic) item))"},{"Add":"    (if topic"},{"Add":"        (replace-regexp-in-string \"\\n\" \" | \" topic nil t)"},{"Add":"      \"\")))"},{"Add":""},{"Add":"(ement-directory-define-column \"ID\" ()"},{"Add":"  (pcase-let (((map ('room_id id)) item))"},{"Add":"    id))"},{"Add":""},{"Add":"(unless ement-directory-columns"},{"Add":"  ;; TODO: Automate this or document it"},{"Add":"  (setq-default ement-directory-columns"},{"Add":"                '(\"Name\" \"Alias\" \"Size\" \"Topic\" \"ID\")))"},{"Add":""},{"Add":";;;; Commands"},{"Add":""},{"Add":";; TODO: Pagination of results."},{"Add":""},{"Add":";;;###autoload"},{"Add":"(cl-defun ement-directory (&key server session since (limit 100))"},{"Add":"  \"View the public room directory on SERVER with SESSION."},{"Add":"Show up to LIMIT rooms.  Interactively, with prefix, prompt for"},{"Add":"server and LIMIT."},{"Add":""},{"Add":"SINCE may be a next-batch token.\""},{"Add":"  (interactive (let* ((session (ement-complete-session :prompt \"Search on session: \"))"},{"Add":"                      (server (if current-prefix-arg"},{"Add":"                                  (read-string \"Search on server: \" nil nil"},{"Add":"                                               (ement-server-name (ement-session-server session)))"},{"Add":"                                (ement-server-name (ement-session-server session))))"},{"Add":"                      (args (list :server server :session session)))"},{"Add":"                 (when current-prefix-arg"},{"Add":"                   (cl-callf plist-put args"},{"Add":"                     :limit (read-number \"Limit number of rooms: \" 100)))"},{"Add":"                 args))"},{"Add":"  (pcase-let ((revert-function (lambda (&rest _ignore)"},{"Add":"                                 (interactive)"},{"Add":"                                 (ement-directory :server server :session session :limit limit)))"},{"Add":"              (endpoint \"publicRooms\")"},{"Add":"              (params (list (list \"limit\" limit))))"},{"Add":"    (when since"},{"Add":"      (cl-callf append params (list (list \"since\" since))))"},{"Add":"    (ement-api session endpoint :params params"},{"Add":"      :then (lambda (results)"},{"Add":"              (pcase-let (((map ('chunk rooms) ('next_batch next-batch)"},{"Add":"                                ('total_room_count_estimate remaining))"},{"Add":"                           results))"},{"Add":"                (ement-directory--view rooms :append-p since"},{"Add":"                  :buffer-name (format \"*Ement Directory: %s*\" server)"},{"Add":"                  :root-section-name (format \"Ement Directory: %s\" server)"},{"Add":"                  :init-fn (lambda ()"},{"Add":"                             (setf (alist-get 'server ement-directory-etc) server"},{"Add":"                                   (alist-get 'session ement-directory-etc) session"},{"Add":"                                   (alist-get 'next-batch ement-directory-etc) next-batch"},{"Add":"                                   (alist-get 'limit ement-directory-etc) limit)"},{"Add":"                             (setq-local revert-buffer-function revert-function)"},{"Add":"                             (when remaining"},{"Add":"                               ;; FIXME: The server seems to report all of the rooms on"},{"Add":"                               ;; the server as remaining even when searching for a"},{"Add":"                               ;; specific term like \"emacs\"."},{"Add":"                               ;; TODO: Display this in a more permanent place (like a"},{"Add":"                               ;; header or footer)."},{"Add":"                               (message"},{"Add":"                                (substitute-command-keys"},{"Add":"                                 \"%s rooms remaining (use \\\\[ement-directory-next] to fetch more)\")"},{"Add":"                                remaining)))))))"},{"Add":"    (ement-message \"Listing %s rooms on %s...\" limit server)))"},{"Add":""},{"Add":";;;###autoload"},{"Add":"(cl-defun ement-directory-search (query &key server session since (limit 1000))"},{"Add":"  \"View public rooms on SERVER matching QUERY."},{"Add":"QUERY is a string used to filter results.\""},{"Add":"  (interactive (let* ((session (ement-complete-session :prompt \"Search on session: \"))"},{"Add":"                      (server (if current-prefix-arg"},{"Add":"                                  (read-string \"Search on server: \" nil nil"},{"Add":"                                               (ement-server-name (ement-session-server session)))"},{"Add":"                                (ement-server-name (ement-session-server session))))"},{"Add":"                      (query (read-string (format \"Search for rooms on %s matching: \" server)))"},{"Add":"                      (args (list query :server server :session session)))"},{"Add":"                 (when current-prefix-arg"},{"Add":"                   (cl-callf plist-put (cdr args)"},{"Add":"                     :limit (read-number \"Limit number of rooms: \" 1000)))"},{"Add":"                 args))"},{"Add":"  ;; TODO: Handle \"include_all_networks\" and \"third_party_instance_id\".  See § 10.5.4."},{"Add":"  (pcase-let* ((revert-function (lambda (&rest _ignore)"},{"Add":"                                  (interactive)"},{"Add":"                                  (ement-directory-search query :server server :session session)))"},{"Add":"               (endpoint \"publicRooms\")"},{"Add":"               (data (rassq-delete-all nil"},{"Add":"                                       (ement-alist \"limit\" limit"},{"Add":"                                                    \"filter\" (ement-alist \"generic_search_term\" query)"},{"Add":"                                                    \"since\" since))))"},{"Add":"    (ement-api session endpoint :method 'post :data (json-encode data)"},{"Add":"      :then (lambda (results)"},{"Add":"              (pcase-let (((map ('chunk rooms) ('next_batch next-batch)"},{"Add":"                                ('total_room_count_estimate remaining))"},{"Add":"                           results))"},{"Add":"                (ement-directory--view rooms :append-p since"},{"Add":"                  :buffer-name (format \"*Ement Directory: \\\"%s\\\" on %s*\" query server)"},{"Add":"                  :root-section-name (format \"Ement Directory: \\\"%s\\\" on %s\" query server)"},{"Add":"                  :init-fn (lambda ()"},{"Add":"                             (setf (alist-get 'server ement-directory-etc) server"},{"Add":"                                   (alist-get 'session ement-directory-etc) session"},{"Add":"                                   (alist-get 'next-batch ement-directory-etc) next-batch"},{"Add":"                                   (alist-get 'limit ement-directory-etc) limit"},{"Add":"                                   (alist-get 'query ement-directory-etc) query)"},{"Add":"                             (setq-local revert-buffer-function revert-function)"},{"Add":"                             (when remaining"},{"Add":"                               (message"},{"Add":"                                (substitute-command-keys"},{"Add":"                                 \"%s rooms remaining (use \\\\[ement-directory-next] to fetch more)\")"},{"Add":"                                remaining)))))))"},{"Add":"    (ement-message \"Searching for %S on %s...\" query server)))"},{"Add":""},{"Add":"(defun ement-directory-next ()"},{"Add":"  \"Fetch next batch of results in `ement-directory' buffer.\""},{"Add":"  (interactive)"},{"Add":"  (pcase-let (((map next-batch query limit server session) ement-directory-etc))"},{"Add":"    (unless next-batch"},{"Add":"      (user-error \"No more results\"))"},{"Add":"    (if query"},{"Add":"        (ement-directory-search query :server server :session session :limit limit :since next-batch)"},{"Add":"      (ement-directory :server server :session session :limit limit :since next-batch))))"},{"Add":""},{"Add":"(defun ement-directory-mouse-1 (event)"},{"Add":"  \"Call `ement-directory-RET' at EVENT.\""},{"Add":"  (interactive \"e\")"},{"Add":"  (mouse-set-point event)"},{"Add":"  (call-interactively #'ement-directory-RET))"},{"Add":""},{"Add":"(defun ement-directory-RET ()"},{"Add":"  \"View or join room at point, or cycle section at point.\""},{"Add":"  (interactive)"},{"Add":"  (cl-etypecase (oref (magit-current-section) value)"},{"Add":"    (null nil)"},{"Add":"    (list (pcase-let* (((map ('name name) ('room_id room-id)) (oref (magit-current-section) value))"},{"Add":"                       ((map session) ement-directory-etc)"},{"Add":"                       (room (cl-find room-id (ement-session-rooms session)"},{"Add":"                                      :key #'ement-room-id :test #'equal)))"},{"Add":"            (if room"},{"Add":"                (ement-view-room room session)"},{"Add":"              ;; Room not joined: prompt to join.  (Don't use the alias in the prompt,"},{"Add":"              ;; because multiple rooms might have the same alias, e.g. when one is"},{"Add":"              ;; upgraded or tombstoned.)"},{"Add":"              (when (yes-or-no-p (format \"Join room \\\"%s\\\" <%s>? \" name room-id))"},{"Add":"                (ement-join-room room-id session)))))"},{"Add":"    (taxy-magit-section (call-interactively #'magit-section-cycle))))"},{"Add":""},{"Add":";;;; Functions"},{"Add":""},{"Add":"(cl-defun ement-directory--view (rooms &key init-fn append-p"},{"Add":"                                       (buffer-name \"*Ement Directory*\")"},{"Add":"                                       (root-section-name \"Ement Directory\")"},{"Add":"                                       (keys ement-directory-default-keys)"},{"Add":"                                       (display-buffer-action '(display-buffer-same-window)))"},{"Add":"  \"View ROOMS in an `ement-directory-mode' buffer."},{"Add":"ROOMS should be a list of rooms from an API request.  Calls"},{"Add":"INIT-FN immediately after activating major mode.  Sets"},{"Add":"BUFFER-NAME and ROOT-SECTION-NAME, and uses"},{"Add":"DISPLAY-BUFFER-ACTION.  KEYS are a list of `taxy' keys.  If"},{"Add":"APPEND-P, add ROOMS to buffer rather than replacing existing"},{"Add":"contents.  To be called by `ement-directory-search'.\""},{"Add":"  (declare (indent defun))"},{"Add":"  (let (column-sizes window-start)"},{"Add":"    (cl-labels ((format-item"},{"Add":"                 ;; NOTE: We use the buffer-local variable `ement-directory-etc' rather"},{"Add":"                 ;; than a closure variable because the taxy-magit-section struct's format"},{"Add":"                 ;; table is not stored in it, and we can't reuse closures' variables."},{"Add":"                 ;; (It would be good to store the format table in the taxy-magit-section"},{"Add":"                 ;; in the future, to make this cleaner.)"},{"Add":"                 (item) (gethash item (alist-get 'format-table ement-directory-etc)))"},{"Add":"                ;; NOTE: Since these functions take an \"item\" (which is a [room session]"},{"Add":"                ;; vector), they're prefixed \"item-\" rather than \"room-\"."},{"Add":"                (size"},{"Add":"                 (item) (pcase-let (((map ('num_joined_members size)) item))"},{"Add":"                          size))"},{"Add":"                (tnil (a b) (and (not a) b))"},{"Add":"                (make-fn (&rest args)"},{"Add":"                         (apply #'make-taxy-magit-section"},{"Add":"                                :make #'make-fn"},{"Add":"                                :format-fn #'format-item"},{"Add":"                                ;; FIXME: Should we reuse `ement-room-list-level-indent' here?"},{"Add":"                                :level-indent ement-room-list-level-indent"},{"Add":"                                ;; :visibility-fn #'visible-p"},{"Add":"                                ;; :heading-indent 2"},{"Add":"                                :item-indent 2"},{"Add":"                                ;; :heading-face-fn #'heading-face"},{"Add":"                                args)))"},{"Add":"      (with-current-buffer (get-buffer-create buffer-name)"},{"Add":"        (unless (eq 'ement-directory-mode major-mode)"},{"Add":"          ;; Don't obliterate buffer-local variables."},{"Add":"          (ement-directory-mode))"},{"Add":"        (when init-fn"},{"Add":"          (funcall init-fn))"},{"Add":"        (pcase-let* ((taxy (if append-p"},{"Add":"                               (alist-get 'taxy ement-directory-etc)"},{"Add":"                             (make-fn"},{"Add":"                              :name root-section-name"},{"Add":"                              :take (taxy-make-take-function keys ement-directory-keys))))"},{"Add":"                     (taxy-magit-section-insert-indent-items nil)"},{"Add":"                     (inhibit-read-only t)"},{"Add":"                     (pos (point))"},{"Add":"                     (section-ident (when (magit-current-section)"},{"Add":"                                      (magit-section-ident (magit-current-section))))"},{"Add":"                     (format-cons))"},{"Add":"          (setf taxy (thread-last taxy"},{"Add":"                                  (taxy-fill (cl-coerce rooms 'list))"},{"Add":"                                  (taxy-sort #'> #'size)"},{"Add":"                                  (taxy-sort* #'string> #'taxy-name))"},{"Add":"                (alist-get 'taxy ement-directory-etc) taxy"},{"Add":"                format-cons (taxy-magit-section-format-items"},{"Add":"                             ement-directory-columns ement-directory-column-formatters taxy)"},{"Add":"                (alist-get 'format-table ement-directory-etc) (car format-cons)"},{"Add":"                column-sizes (cdr format-cons)"},{"Add":"                header-line-format (taxy-magit-section-format-header"},{"Add":"                                    column-sizes ement-directory-column-formatters)"},{"Add":"                window-start (if (get-buffer-window buffer-name)"},{"Add":"                                 (window-start (get-buffer-window buffer-name))"},{"Add":"                               0))"},{"Add":"          (delete-all-overlays)"},{"Add":"          (erase-buffer)"},{"Add":"          (save-excursion"},{"Add":"            (taxy-magit-section-insert taxy :items 'first"},{"Add":"              ;; :blank-between-depth bufler-taxy-blank-between-depth"},{"Add":"              :initial-depth 0))"},{"Add":"          (goto-char pos)"},{"Add":"          (when (and section-ident (magit-get-section section-ident))"},{"Add":"            (goto-char (oref (magit-get-section section-ident) start)))))"},{"Add":"      (display-buffer buffer-name display-buffer-action)"},{"Add":"      (when (get-buffer-window buffer-name)"},{"Add":"        (set-window-start (get-buffer-window buffer-name) window-start))"},{"Add":"      ;; NOTE: In order for `bookmark--jump-via' to work properly, the restored buffer"},{"Add":"      ;; must be set as the current buffer, so we have to do this explicitly here."},{"Add":"      (set-buffer buffer-name))))"},{"Add":""},{"Add":";;;; Spaces"},{"Add":""},{"Add":";; Viewing spaces and the rooms in them."},{"Add":""},{"Add":";;;###autoload"},{"Add":"(defun ement-view-space (space session)"},{"Add":"  ;; TODO: Use this for spaces instead of `ement-view-room' (or something like that)."},{"Add":"  ;; TODO: Display space's topic in the header or something."},{"Add":"  \"View child rooms in SPACE on SESSION."},{"Add":"SPACE may be a room ID or an `ement-room' struct.\""},{"Add":"  ;; TODO: \"from\" query parameter."},{"Add":"  (interactive (ement-complete-room :predicate #'ement--room-space-p"},{"Add":"                 :prompt \"Space: \"))"},{"Add":"  (pcase-let* ((id (cl-typecase space"},{"Add":"                     (string space)"},{"Add":"                     (ement-room (ement-room-id space))))"},{"Add":"               (endpoint (format \"rooms/%s/hierarchy\" id))"},{"Add":"               (revert-function (lambda (&rest _ignore)"},{"Add":"                                  (interactive)"},{"Add":"                                  (ement-view-space space session))))"},{"Add":"    (ement-api session endpoint :version \"v1\""},{"Add":"      :then (lambda (results)"},{"Add":"              (pcase-let (((map rooms ('next_batch next-batch))"},{"Add":"                           results))"},{"Add":"                (ement-directory--view rooms ;; :append-p since"},{"Add":"                  ;; TODO: Use space's alias where possible."},{"Add":"                  :buffer-name (format \"*Ement Directory: space \\\"%s\\\"\" id)"},{"Add":"                  :root-section-name (format \"*Ement Directory: space \\\"%s\\\"\" id)"},{"Add":"                  :init-fn (lambda ()"},{"Add":"                             (setf (alist-get 'session ement-directory-etc) session"},{"Add":"                                   (alist-get 'next-batch ement-directory-etc) next-batch"},{"Add":"                                   ;; (alist-get 'limit ement-directory-etc) limit"},{"Add":"                                   (alist-get 'space ement-directory-etc) space)"},{"Add":"                             (setq-local revert-buffer-function revert-function)"},{"Add":"                             ;; TODO: Handle next batches."},{"Add":"                             ;; (when remaining"},{"Add":"                             ;;   (message"},{"Add":"                             ;;    (substitute-command-keys"},{"Add":"                             ;;     \"%s rooms remaining (use \\\\[ement-directory-next] to fetch more)\")"},{"Add":"                             ;;    remaining))"},{"Add":"                             )))))))"},{"Add":""},{"Add":";;;; Footer"},{"Add":""},{"Add":"(provide 'ement-directory)"},{"Add":";;; ement-directory.el ends here"}]}},{"FileAdd":{"meta":{"basename":"ement-autoloads.el","metadata":0},"context":[{"change":0,"pos":483987}],"contents":[{"Add":";;; ement-autoloads.el --- automatically extracted autoloads  -*- lexical-binding: t -*-"},{"Add":";;"},{"Add":";;; Code:"},{"Add":""},{"Add":"(add-to-list 'load-path (directory-file-name"},{"Add":"                         (or (file-name-directory #$) (car load-path))))"},{"Add":""},{"Add":"\f"},{"Add":";;;### (autoloads nil \"ement\" \"ement.el\" (0 0 0 0))"},{"Add":";;; Generated autoloads from ement.el"},{"Add":""},{"Add":"(autoload 'ement-connect \"ement\" \"\\"},{"Add":"Connect to Matrix with USER-ID and PASSWORD, or using SESSION."},{"Add":"Interactively, with prefix, ignore a saved session and log in"},{"Add":"again; otherwise, use a saved session if `ement-save-sessions' is"},{"Add":"enabled and a saved session is available, or prompt to log in if"},{"Add":"not enabled or available."},{"Add":""},{"Add":"If USERID or PASSWORD are not specified, the user will be"},{"Add":"prompted for them."},{"Add":""},{"Add":"If URI-PREFIX is specified, it should be the prefix of the"},{"Add":"server's API URI, including protocol, hostname, and optionally"},{"Add":"the port, e.g."},{"Add":""},{"Add":"  \\\"https://matrix-client.matrix.org\\\""},{"Add":"  \\\"http://localhost:8080\\\""},{"Add":""},{"Add":"\\(fn &key USER-ID PASSWORD URI-PREFIX SESSION)\" t nil)"},{"Add":""},{"Add":"(register-definition-prefixes \"ement\" '(\"ement-\"))"},{"Add":""},{"Add":";;;***"},{"Add":"\f"},{"Add":";;;### (autoloads nil \"ement-api\" \"ement-api.el\" (0 0 0 0))"},{"Add":";;; Generated autoloads from ement-api.el"},{"Add":""},{"Add":"(register-definition-prefixes \"ement-api\" '(\"ement-api-error\"))"},{"Add":""},{"Add":";;;***"},{"Add":"\f"},{"Add":";;;### (autoloads nil \"ement-directory\" \"ement-directory.el\" (0 0"},{"Add":";;;;;;  0 0))"},{"Add":";;; Generated autoloads from ement-directory.el"},{"Add":""},{"Add":"(autoload 'ement-directory \"ement-directory\" \"\\"},{"Add":"View the public room directory on SERVER with SESSION."},{"Add":"Show up to LIMIT rooms.  Interactively, with prefix, prompt for"},{"Add":"server and LIMIT."},{"Add":""},{"Add":"SINCE may be a next-batch token."},{"Add":""},{"Add":"\\(fn &key SERVER SESSION SINCE (LIMIT 100))\" t nil)"},{"Add":""},{"Add":"(autoload 'ement-directory-search \"ement-directory\" \"\\"},{"Add":"View public rooms on SERVER matching QUERY."},{"Add":"QUERY is a string used to filter results."},{"Add":""},{"Add":"\\(fn QUERY &key SERVER SESSION SINCE (LIMIT 1000))\" t nil)"},{"Add":""},{"Add":"(autoload 'ement-view-space \"ement-directory\" \"\\"},{"Add":"View child rooms in SPACE on SESSION."},{"Add":"SPACE may be a room ID or an `ement-room' struct."},{"Add":""},{"Add":"\\(fn SPACE SESSION)\" t nil)"},{"Add":""},{"Add":"(register-definition-prefixes \"ement-directory\" '(\"ement-directory-\"))"},{"Add":""},{"Add":";;;***"},{"Add":"\f"},{"Add":";;;### (autoloads nil \"ement-lib\" \"ement-lib.el\" (0 0 0 0))"},{"Add":";;; Generated autoloads from ement-lib.el"},{"Add":""},{"Add":"(register-definition-prefixes \"ement-lib\" '(\"ement-\"))"},{"Add":""},{"Add":";;;***"},{"Add":"\f"},{"Add":";;;### (autoloads nil \"ement-macros\" \"ement-macros.el\" (0 0 0 0))"},{"Add":";;; Generated autoloads from ement-macros.el"},{"Add":""},{"Add":"(register-definition-prefixes \"ement-macros\" '(\"ement-\"))"},{"Add":""},{"Add":";;;***"},{"Add":"\f"},{"Add":";;;### (autoloads nil \"ement-notify\" \"ement-notify.el\" (0 0 0 0))"},{"Add":";;; Generated autoloads from ement-notify.el"},{"Add":""},{"Add":"(register-definition-prefixes \"ement-notify\" '(\"ement-notify\"))"},{"Add":""},{"Add":";;;***"},{"Add":"\f"},{"Add":";;;### (autoloads nil \"ement-room\" \"ement-room.el\" (0 0 0 0))"},{"Add":";;; Generated autoloads from ement-room.el"},{"Add":""},{"Add":"(register-definition-prefixes \"ement-room\" '(\"ement-\"))"},{"Add":""},{"Add":";;;***"},{"Add":"\f"},{"Add":";;;### (autoloads nil \"ement-room-list\" \"ement-room-list.el\" (0 0"},{"Add":";;;;;;  0 0))"},{"Add":";;; Generated autoloads from ement-room-list.el"},{"Add":""},{"Add":"(autoload 'ement-room-list--after-initial-sync \"ement-room-list\" \"\\"},{"Add":"Call `ement-room-list', ignoring arguments."},{"Add":"To be called from `ement-after-initial-sync-hook'."},{"Add":""},{"Add":"\\(fn &rest IGNORE)\" nil nil)"},{"Add":""},{"Add":"(defalias 'ement-list-rooms 'ement-room-list)"},{"Add":""},{"Add":"(autoload 'ement-room-list \"ement-room-list\" \"\\"},{"Add":"Show a buffer listing Ement rooms, grouped with Taxy KEYS."},{"Add":"After showing it, its window is selected.  The buffer is named"},{"Add":"BUFFER-NAME and is shown with DISPLAY-BUFFER-ACTION; or if"},{"Add":"DISPLAY-BUFFER-ACTION is nil, the buffer is not displayed."},{"Add":""},{"Add":"\\(fn &key (BUFFER-NAME \\\"*Ement Room List*\\\") (KEYS ement-room-list-default-keys) (DISPLAY-BUFFER-ACTION \\\\='((display-buffer-reuse-window display-buffer-same-window))))\" t nil)"},{"Add":""},{"Add":"(autoload 'ement-room-list-auto-update \"ement-room-list\" \"\\"},{"Add":"Automatically update the Taxy room list buffer."},{"Add":"+Does so when variable `ement-room-list-auto-update' is non-nil."},{"Add":"+To be called in `ement-sync-callback-hook'."},{"Add":""},{"Add":"\\(fn SESSION)\" nil nil)"},{"Add":""},{"Add":"(register-definition-prefixes \"ement-room-list\" '(\"ement-room-list-\"))"},{"Add":""},{"Add":";;;***"},{"Add":"\f"},{"Add":";;;### (autoloads nil \"ement-tabulated-room-list\" \"ement-tabulated-room-list.el\""},{"Add":";;;;;;  (0 0 0 0))"},{"Add":";;; Generated autoloads from ement-tabulated-room-list.el"},{"Add":""},{"Add":"(autoload 'ement-tabulated-room-list \"ement-tabulated-room-list\" \"\\"},{"Add":"Show buffer listing joined rooms."},{"Add":"Calls `pop-to-buffer-same-window'.  Interactively, with prefix,"},{"Add":"call `pop-to-buffer'."},{"Add":""},{"Add":"\\(fn &rest IGNORE)\" t nil)"},{"Add":""},{"Add":"(autoload 'ement-tabulated-room-list-auto-update \"ement-tabulated-room-list\" \"\\"},{"Add":"Automatically update the room list buffer."},{"Add":"Does so when variable `ement-tabulated-room-list-auto-update' is non-nil."},{"Add":"To be called in `ement-sync-callback-hook'."},{"Add":""},{"Add":"\\(fn SESSION)\" nil nil)"},{"Add":""},{"Add":"(register-definition-prefixes \"ement-tabulated-room-list\" '(\"ement-tabulated-room-list-\"))"},{"Add":""},{"Add":";;;***"},{"Add":"\f"},{"Add":";;;### (autoloads nil nil (\"ement-pkg.el\" \"ement-structs.el\") (0"},{"Add":";;;;;;  0 0 0))"},{"Add":""},{"Add":";;;***"},{"Add":"\f"},{"Add":";; Local Variables:"},{"Add":";; version-control: never"},{"Add":";; no-byte-compile: t"},{"Add":";; no-update-autoloads: t"},{"Add":";; coding: utf-8"},{"Add":";; End:"},{"Add":";;; ement-autoloads.el ends here"}]}},{"FileAdd":{"meta":{"basename":"ement-api.el","metadata":0},"context":[{"change":0,"pos":483987}],"contents":[{"Add":";;; ement-api.el --- Matrix API library              -*- lexical-binding: t; -*-"},{"Add":""},{"Add":";; Copyright (C) 2022  Free Software Foundation, Inc."},{"Add":""},{"Add":";; Author: Adam Porter "},{"Add":";; Maintainer: Adam Porter "},{"Add":""},{"Add":";; This program is free software; you can redistribute it and/or modify"},{"Add":";; it under the terms of the GNU General Public License as published by"},{"Add":";; the Free Software Foundation, either version 3 of the License, or"},{"Add":";; (at your option) any later version."},{"Add":""},{"Add":";; This program is distributed in the hope that it will be useful,"},{"Add":";; but WITHOUT ANY WARRANTY; without even the implied warranty of"},{"Add":";; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the"},{"Add":";; GNU General Public License for more details."},{"Add":""},{"Add":";; You should have received a copy of the GNU General Public License"},{"Add":";; along with this program.  If not, see ."},{"Add":""},{"Add":";;; Commentary:"},{"Add":""},{"Add":";;"},{"Add":""},{"Add":";;; Code:"},{"Add":""},{"Add":";;;; Debugging"},{"Add":""},{"Add":";; NOTE: Uncomment this form and `emacs-lisp-byte-compile-and-load' the file to enable"},{"Add":";; `ement-debug' messages.  This is commented out by default because, even though the"},{"Add":";; messages are only displayed when `warning-minimum-log-level' is `:debug' at runtime, if"},{"Add":";; that is so at expansion time, the expanded macro calls format the message and check the"},{"Add":";; log level at runtime, which is not zero-cost."},{"Add":""},{"Add":";; (eval-and-compile"},{"Add":";;   (setq-local warning-minimum-log-level nil)"},{"Add":";;   (setq-local warning-minimum-log-level :debug))"},{"Add":""},{"Add":";;;; Requirements"},{"Add":""},{"Add":"(require 'json)"},{"Add":"(require 'url-parse)"},{"Add":"(require 'url-util)"},{"Add":""},{"Add":"(require 'plz)"},{"Add":""},{"Add":"(require 'ement-macros)"},{"Add":"(require 'ement-structs)"},{"Add":""},{"Add":";;;; Variables"},{"Add":""},{"Add":""},{"Add":";;;; Customization"},{"Add":""},{"Add":""},{"Add":";;;; Commands"},{"Add":""},{"Add":""},{"Add":";;;; Functions"},{"Add":""},{"Add":"(cl-defun ement-api (session endpoint"},{"Add":"                             &key then data params queue"},{"Add":"                             (content-type \"application/json\")"},{"Add":"                             (data-type 'text)"},{"Add":"                             (else #'ement-api-error) (method 'get)"},{"Add":"                             ;; FIXME: What's the right term for the URL part after \"/_matrix/\"?"},{"Add":"                             (endpoint-category \"client\")"},{"Add":"                             (json-read-fn #'json-read)"},{"Add":"                             ;; NOTE: Hard to say what the default timeouts"},{"Add":"                             ;; should be.  Sometimes the matrix.org homeserver"},{"Add":"                             ;; can get slow and respond a minute or two later."},{"Add":"                             (connect-timeout 10) (timeout 60)"},{"Add":"                             (version \"r0\"))"},{"Add":"  \"Make API request on SESSION to ENDPOINT."},{"Add":"The request automatically uses SESSION's server, URI prefix, and"},{"Add":"access token."},{"Add":""},{"Add":"These keyword arguments are passed to `plz', which see: THEN,"},{"Add":"DATA (passed as BODY), QUEUE (passed to `plz-queue', which see),"},{"Add":"DATA-TYPE (passed as BODY-TYPE), ELSE, METHOD,"},{"Add":"JSON-READ-FN (passed as AS), CONNECT-TIMEOUT, TIMEOUT."},{"Add":""},{"Add":"Other arguments include PARAMS (used as the URL's query"},{"Add":"parameters), ENDPOINT-CATEGORY (added to the endpoint URL), and"},{"Add":"VERSION (added to the endpoint URL)."},{"Add":""},{"Add":"Note that most Matrix requests expect JSON-encoded data, so"},{"Add":"usually the DATA argument should be passed through"},{"Add":"`json-encode'.\""},{"Add":"  (declare (indent defun))"},{"Add":"  (pcase-let* (((cl-struct ement-session server token) session)"},{"Add":"               ((cl-struct ement-server uri-prefix) server)"},{"Add":"               ((cl-struct url type host portspec) (url-generic-parse-url uri-prefix))"},{"Add":"               (path (format \"/_matrix/%s/%s/%s\" endpoint-category version endpoint))"},{"Add":"               (query (url-build-query-string params))"},{"Add":"               (filename (concat path \"?\" query))"},{"Add":"               (url (url-recreate-url"},{"Add":"                     (url-parse-make-urlobj type nil nil host portspec filename nil data t)))"},{"Add":"               (headers (ement-alist \"Content-Type\" content-type))"},{"Add":"               (plz-args))"},{"Add":"    (when token"},{"Add":"      ;; Almost every request will require a token (only a few, like checking login flows, don't),"},{"Add":"      ;; so we simplify the API by using the token automatically when the session has one."},{"Add":"      (push (cons \"Authorization\" (concat \"Bearer \" token)) headers))"},{"Add":"    (setf plz-args (list method url :headers headers :body data :body-type data-type"},{"Add":"                         :as json-read-fn :then then :else else"},{"Add":"                         :connect-timeout connect-timeout :timeout timeout :noquery t))"},{"Add":"    ;; Omit `then' from debugging because if it's a partially applied"},{"Add":"    ;; function on the session object, which may be very large, it"},{"Add":"    ;; will take a very long time to print into the warnings buffer."},{"Add":"    ;;  (ement-debug (current-time) method url headers)"},{"Add":"    (if queue"},{"Add":"        (plz-run"},{"Add":"         (apply #'plz-queue queue plz-args))"},{"Add":"      (apply #'plz plz-args))))"},{"Add":""},{"Add":"(define-error 'ement-api-error \"Ement API error\" 'error)"},{"Add":""},{"Add":"(defun ement-api-error (plz-error)"},{"Add":"  \"Signal an Ement API error for PLZ-ERROR.\""},{"Add":"  ;; This feels a little messy, but it seems to be reasonable."},{"Add":"  (pcase-let* (((cl-struct plz-error response"},{"Add":"                           (message plz-message) (curl-error `(,curl-exit-code . ,curl-message)))"},{"Add":"                plz-error)"},{"Add":"               (status (when (plz-response-p response)"},{"Add":"                         (plz-response-status response)))"},{"Add":"               (body (when (plz-response-p response)"},{"Add":"                       (plz-response-body response)))"},{"Add":"               (json-object (when body"},{"Add":"                              (ignore-errors"},{"Add":"                                (json-read-from-string body))))"},{"Add":"               (error-message (format \"%S: %s\""},{"Add":"                                      (or curl-exit-code status)"},{"Add":"                                      (or (when json-object"},{"Add":"                                            (alist-get 'error json-object))"},{"Add":"                                          curl-message"},{"Add":"                                          plz-message))))"},{"Add":""},{"Add":"    (signal 'ement-api-error (list error-message))))"},{"Add":""},{"Add":";;;; Footer"},{"Add":""},{"Add":"(provide 'ement-api)"},{"Add":""},{"Add":";;; ement-api.el ends here"}]}},{"FileAdd":{"meta":{"basename":"dir","metadata":0},"context":[{"change":0,"pos":483987}],"contents":[{"Add":"This is the file .../info/dir, which contains the"},{"Add":"topmost node of the Info hierarchy, called (dir)Top."},{"Add":"The first time you invoke Info you start off looking at this node."},{"Add":"\u001f"},{"Add":"File: dir,\tNode: Top\tThis is the top of the INFO tree"},{"Add":""},{"Add":"  This (the Directory node) gives a menu of major topics."},{"Add":"  Typing \"q\" exits, \"H\" lists all Info commands, \"d\" returns here,"},{"Add":"  \"h\" gives a primer for first-timers,"},{"Add":"  \"mEmacs\" visits the Emacs manual, etc."},{"Add":""},{"Add":"  In Emacs, you can click mouse button 2 on a menu item or cross reference"},{"Add":"  to select it."},{"Add":""},{"Add":"* Menu:"},{"Add":""},{"Add":"Emacs"},{"Add":"* Ement: (ement).               Matrix client for Emacs."}]}},{"FileAdd":{"meta":{"basename":"README.org","metadata":0},"context":[{"change":0,"pos":483987}],"contents":[{"Add":"#+TITLE: Ement.el"},{"Add":""},{"Add":"#+PROPERTY: LOGGING nil"},{"Add":""},{"Add":"# Export options."},{"Add":"#+OPTIONS: broken-links:t *:t"},{"Add":""},{"Add":"# Info export options."},{"Add":"#+EXPORT_FILE_NAME: ement.texi"},{"Add":"#+TEXINFO_DIR_CATEGORY: Emacs"},{"Add":"#+TEXINFO_DIR_TITLE: Ement: (ement)"},{"Add":"#+TEXINFO_DIR_DESC: Matrix client for Emacs"},{"Add":""},{"Add":"# Note: This readme works with the org-make-toc  package, which automatically updates the table of contents."},{"Add":""},{"Add":"#+HTML: "},{"Add":""},{"Add":"# ELPA badge image."},{"Add":"[[https://elpa.gnu.org/packages/ement.html][https://elpa.gnu.org/packages/ement.svg]]"},{"Add":""},{"Add":"Ement.el is a Matrix client for Emacs.  It aims to be simple, fast, featureful, and reliable."},{"Add":""},{"Add":"Feel free to join us in the chat room: [[https://matrix.to/#/#ement.el:matrix.org][https://img.shields.io/matrix/ement.el:matrix.org.svg?label=%23ement.el:matrix.org]]"},{"Add":""},{"Add":"* Contents                                                         :noexport:"},{"Add":":PROPERTIES:"},{"Add":":TOC:      :include siblings"},{"Add":":END:"},{"Add":":CONTENTS:"},{"Add":"- [[#installation][Installation]]"},{"Add":"- [[#usage][Usage]]"},{"Add":"  - [[#bindings][Bindings]]"},{"Add":"  - [[#tips][Tips]]"},{"Add":"  - [[#encrypted-room-support-through-pantalaimon][Encrypted room support through Pantalaimon]]"},{"Add":"- [[#rationale][Rationale]]"},{"Add":"- [[#changelog][Changelog]]"},{"Add":"- [[#development][Development]]"},{"Add":":END:"},{"Add":""},{"Add":"* Screenshots                                                      :noexport:"},{"Add":":PROPERTIES:"},{"Add":":ID:       d818f690-5f22-4eb0-83e1-4d8ce16c9e5b"},{"Add":":END:"},{"Add":""},{"Add":"The default formatting style resembles IRC clients, with each message being prefixed by the username (which enables powerful Emacs features, like using Occur to show all messages from or mentioning a user).  Alternative, built-in styles include an Element-like one with usernames above groups of messages, as well as a classic, no-margins IRC style.  Messages may be optionally displayed with unique colors for each user (with customizeable contrast), making it easier to follow conversations.  Timestamp headers are optionally displayed where a certain amount of time passes between events, as well as where the date changes."},{"Add":""},{"Add":"[[images/ement-for-twim.png]]"},{"Add":""},{"Add":"/Two rooms shown in side-by-side buffers, showing inline images, reactions, date/time headings, room avatars, and messages colored by user (using the modus-vivendi Emacs theme)./"},{"Add":""},{"Add":"[[images/emacs-with-fully-read-line.png]]"},{"Add":""},{"Add":"/#emacs:libera.chat showing colored text from IRC users, replies with quoted parts, messages colored by user, addressed usernames colored by their user color, highlighted mentions, and the fully-read marker line (using the modus-vivendi Emacs theme)./"},{"Add":""},{"Add":"[[images/screenshot5.png]]"},{"Add":""},{"Add":"/Four rooms shown at once, with messages colored by user, in the default Emacs theme./"},{"Add":""},{"Add":"[[images/screenshot2.png]]"},{"Add":""},{"Add":"/A room at the top in the \"Elemental\" display style, with sender names displayed over groups of messages, and only self-messages in an alternate color.  The lower window shows an earlier version of the rooms list./"},{"Add":""},{"Add":"[[images/reactions.png]]"},{"Add":""},{"Add":"/Reactions displayed as color emojis (may need [[#displaying-symbols-and-emojis][proper Emacs configuration]])./"},{"Add":""},{"Add":"* Installation"},{"Add":":PROPERTIES:"},{"Add":":TOC:      :depth 0"},{"Add":":END:"},{"Add":""},{"Add":"** GNU ELPA"},{"Add":""},{"Add":"Ement.el is published in [[http://elpa.gnu.org/][GNU ELPA]], so it may be installed in Emacs with the command ~M-x package-install RET ement RET~.  This is the recommended way to install Ement.el, as it will install the current stable release."},{"Add":""},{"Add":"** GNU Guix"},{"Add":""},{"Add":"Ement.el is also available in [[https://guix.gnu.org/][GNU Guix]] as ~emacs-ement~."},{"Add":""},{"Add":"** Debian"},{"Add":""},{"Add":"Ement.el is also available in Debian as [[https://packages.debian.org/elpa-ement][elpa-ement]]."},{"Add":""},{"Add":"** Git master"},{"Add":""},{"Add":"The ~master~ branch of the Git repository is intended to be usable at all times; only minor bugs are expected to be found in it before a new stable release is made.  To install from this, it is recommended to use [[https://github.com/quelpa/quelpa-use-package][quelpa-use-package]], like this:"},{"Add":""},{"Add":"#+BEGIN_SRC elisp"},{"Add":"  ;; Install and load `quelpa-use-package'."},{"Add":"  (package-install 'quelpa-use-package)"},{"Add":"  (require 'quelpa-use-package)"},{"Add":""},{"Add":"  ;; Install Ement."},{"Add":"  (use-package ement"},{"Add":"    :quelpa (ement :fetcher github :repo \"alphapapa/ement.el\"))"},{"Add":"#+END_SRC"},{"Add":""},{"Add":"One might also use systems like [[https://github.com/radian-software/straight.el][Straight]] (which is also used by [[https://github.com/doomemacs/doomemacs][DOOM]]) to install from Git, but the author cannot offer support for them."},{"Add":""},{"Add":"** Manual"},{"Add":""},{"Add":"Ement.el is intended to be installed with Emacs's package system, which will ensure that the required autoloads are generated, etc.  If you choose to install it manually, you're on your own."},{"Add":""},{"Add":"* Usage"},{"Add":":PROPERTIES:"},{"Add":":TOC:      :include descendants :depth 1"},{"Add":":END:"},{"Add":":CONTENTS:"},{"Add":"- [[#bindings][Bindings]]"},{"Add":"- [[#tips][Tips]]"},{"Add":"- [[#encrypted-room-support-through-pantalaimon][Encrypted room support through Pantalaimon]]"},{"Add":":END:"},{"Add":""},{"Add":"1. Call command ~ement-connect~ to connect.  Multiple sessions are supported, so you may call the command again to connect to another account."},{"Add":"2. Wait for initial sync to complete (which can take a few moments--initial sync JSON requests can be large)."},{"Add":"3. Use these commands (room-related commands may be called with universal prefix to prompt for the room):"},{"Add":"   - ~ement-list-rooms~ to view the list of joined rooms."},{"Add":"   - ~ement-view-room~ to view a room's buffer, selected with completion."},{"Add":"   - ~ement-create-room~ to create a new room."},{"Add":"   - ~ement-create-space~ to create a space."},{"Add":"   - ~ement-invite-user~ to invite a user to a room."},{"Add":"   - ~ement-join-room~ to join a room."},{"Add":"   - ~ement-leave-room~ to leave a room."},{"Add":"   - ~ement-forget-room~ to forget a room."},{"Add":"   - ~ement-tag-room~ to toggle a tag on a room (including favorite/low-priority status)."},{"Add":"   - ~ement-list-members~ to list members in a room."},{"Add":"   - ~ement-send-direct-message~ to send a direct message to a user (in an existing direct room, or creating a new one automatically)."},{"Add":"   - ~ement-room-edit-message~ to edit a message at point."},{"Add":"   - ~ement-room-send-file~ to send a file."},{"Add":"   - ~ement-room-send-image~ to send an image."},{"Add":"   - ~ement-room-set-topic~ to set a room's topic."},{"Add":"   - ~ement-room-occur~ to search in a room's known events."},{"Add":"   - ~ement-room-override-name~ to override a room's display name."},{"Add":"   - ~ement-ignore-user~ to ignore a user (or with interactive prefix, un-ignore)."},{"Add":"   - ~ement-room-set-message-format~ to set a room's message format buffer-locally."},{"Add":"   - ~ement-room-toggle-space~ to toggle a room's membership in a space (a way to group rooms in Matrix)."},{"Add":"   - ~ement-directory~ to view a room directory."},{"Add":"   - ~ement-directory-search~ to search a room directory."},{"Add":"4. Use these special buffers to see events from multiple rooms (you can also reply to messages from these buffers!):"},{"Add":"   - See all new events that mention you in the =*Ement Mentions*= buffer."},{"Add":"   - See all new events in rooms that have open buffers in the =*Ement Notifications*= buffer."},{"Add":""},{"Add":"** Bindings"},{"Add":""},{"Add":"These bindings are common to all of the following buffer types:"},{"Add":""},{"Add":"+ Switch to a room buffer: ~M-g M-r~"},{"Add":"+ Switch to the room list buffer: ~M-g M-l~"},{"Add":"+ Switch to the mentions buffer: ~M-g M-m~"},{"Add":"+ Switch to the notifications buffer: ~M-g M-n~"},{"Add":""},{"Add":"*** Room buffers"},{"Add":""},{"Add":"+ Show command menu: ~?~"},{"Add":""},{"Add":"[[images/transient.png]]"},{"Add":""},{"Add":"*Movement*"},{"Add":""},{"Add":"+ Next event: ~TAB~"},{"Add":"+ Previous event: ~~"},{"Add":"+ Scroll up and mark read: ~SPC~"},{"Add":"+ Scroll down: ~S-SPC~"},{"Add":"+ Jump to fully-read marker: ~M-SPC~"},{"Add":"+ Load older messages: at top of buffer, scroll contents up (i.e. ~S-SPC~, ~M-v~ or ~mwheel-scroll~)"},{"Add":""},{"Add":"*Switching*"},{"Add":""},{"Add":"+ List rooms: ~M-g M-l~"},{"Add":"+ Switch to other room: ~M-g M-r~"},{"Add":"+ Switch to mentions buffer: ~M-g M-m~"},{"Add":"+ Switch to notifications buffer: ~M-g M-n~"},{"Add":"+ Quit window: ~q~"},{"Add":""},{"Add":"*Messages*"},{"Add":""},{"Add":"+ Write message: ~RET~"},{"Add":"+ Write reply to event at point (when region is active, only quote marked text) : ~S-RET~"},{"Add":"+ Compose message in buffer: ~M-RET~ (while writing in minibuffer: ~C-c ')~ (Use command ~ement-room-compose-org~ to activate Org mode in the compose buffer.)"},{"Add":"+ Edit message: ~~"},{"Add":"+ Delete message: ~C-k~"},{"Add":"+ Send reaction to event at point, or send same reaction at point: ~s r~"},{"Add":"+ Send emote: ~s e~"},{"Add":"+ Send file: ~s f~"},{"Add":"+ Send image: ~s i~"},{"Add":"+ View event source: ~v~"},{"Add":"+ Complete members and rooms at point: ~C-M-i~ (standard ~completion-at-point~ command).  (Type an ~@~ prefix for a member mention, a ~#~ prefix for a room alias, or a ~!~ prefix for a room ID.)"},{"Add":""},{"Add":"*Images*"},{"Add":""},{"Add":"+  Toggle scale of image (between fit-to-window and thumbnail): ~mouse-1~"},{"Add":"+  Show image in new buffer at full size: ~double-mouse-1~"},{"Add":""},{"Add":"*Users*"},{"Add":""},{"Add":"+ Send direct message: ~u RET~"},{"Add":"+ Invite user: ~u i~"},{"Add":"+ Ignore user: ~u I~"},{"Add":""},{"Add":"*Room*"},{"Add":""},{"Add":"+ Occur search in room: ~M-s o~"},{"Add":"+ List members: ~r m~"},{"Add":"+ Set topic: ~r t~"},{"Add":"+ Set message format: ~r f~"},{"Add":"+ Set notification rules: ~r n~"},{"Add":"+ Override display name: ~r N~"},{"Add":"+ Tag/untag room: ~r T~"},{"Add":""},{"Add":"*Room membership*"},{"Add":""},{"Add":"+ Create room: ~R c~"},{"Add":"+ Join room: ~R j~"},{"Add":"+ Leave room: ~R l~"},{"Add":"+ Forget room: ~R F~"},{"Add":"+ Toggle room's spaces: ~R s~"},{"Add":""},{"Add":"*Other*"},{"Add":""},{"Add":"+ Sync new messages (not necessary if auto sync is enabled; with prefix to force new sync): ~g~"},{"Add":""},{"Add":"*** Room list buffer"},{"Add":""},{"Add":"+ Show buffer of room at point: ~RET~"},{"Add":"+ Show buffer of next unread room: ~SPC~"},{"Add":"+ Move between room names: ~TAB~ / ~~"},{"Add":""},{"Add":"+ Kill room's buffer: ~k~"},{"Add":"+ Toggle room's membership in a space: ~s~"},{"Add":""},{"Add":"*** Directory buffers"},{"Add":""},{"Add":"+ View/join a room: ~RET~ / ~mouse-1~"},{"Add":"+ Load next batch of rooms: ~+~"},{"Add":""},{"Add":"*** Mentions/notifications buffers"},{"Add":""},{"Add":"+ Move between events: ~TAB~ / ~~"},{"Add":"+ Go to event at point in its room buffer: ~RET~"},{"Add":"+ Write reply to event at point (shows the event in its room while writing) : ~S-RET~"},{"Add":""},{"Add":"** Tips"},{"Add":""},{"Add":"# TODO: Show sending messages in Org format."},{"Add":""},{"Add":"+ Desktop notifications are enabled by default for events that mention the local user.  They can also be shown for all events in rooms with open buffers."},{"Add":"+ Send messages in Org mode format by customizing the option ~ement-room-send-message-filter~ (which enables Org format by default), or by calling ~ement-room-compose-org~ in a compose buffer (which enables it for a single message).  Then Org-formatted messages are automatically converted and sent as HTML-formatted messages (with the Org syntax as the plain-text fallback).  You can send syntax such as:"},{"Add":"  - Bold, italic, underline, strikethrough"},{"Add":"  - Links"},{"Add":"  - Tables"},{"Add":"  - Source blocks (including results with ~:exports both~)"},{"Add":"  - Footnotes (okay, that might be pushing it, but you can!)"},{"Add":"  - And, generally, anything that Org can export to HTML"},{"Add":"+ Starting in the room list buffer, by pressing ~SPC~ repeatedly, you can cycle through and read all rooms with unread buffers.  (If a room doesn't have a buffer, it will not be included.)"},{"Add":"+ Room buffers and the room-list buffer can be bookmarked in Emacs, i.e. using =C-x r m=.  This is especially useful with [[https://github.com/alphapapa/burly.el][Burly]]: you can arrange an Emacs frame with several room buffers displayed at once, use =burly-bookmark-windows= to bookmark the layout, and then you can restore that layout and all of the room buffers by opening the bookmark, rather than having to manually arrange them every time you start Emacs or change the window configuration."},{"Add":"+ Images and other files can be uploaded to rooms using drag-and-drop."},{"Add":"+ Mention members by typing a ~@~ followed by their displayname or Matrix ID.  (Members' names and rooms' aliases/IDs may be completed with ~completion-at-point~ commands.)"},{"Add":"+ You can customize settings in the ~ement~ group."},{"Add":"  - *Note:* ~setq~ should not be used for certain options, because it will not call the associated setter function.  Users who have an aversion to the customization system may experience problems."},{"Add":""},{"Add":"*** Displaying symbols and emojis"},{"Add":""},{"Add":"Emacs may not display certain symbols and emojis well by default.  Based on [[https://emacs.stackexchange.com/questions/62049/override-the-default-font-for-emoji-characters][this question and answer]], you may find that the simplest way to fix this is to install an appropriate font, like [[https://www.google.com/get/noto/#emoji-zsye][Noto Emoji]], and then use this Elisp code:"},{"Add":""},{"Add":"#+BEGIN_SRC elisp"},{"Add":"  (setf use-default-font-for-symbols nil)"},{"Add":"  (set-fontset-font t 'unicode \"Noto Emoji\" nil 'append)"},{"Add":"#+END_SRC"},{"Add":""},{"Add":"** Encrypted room support through Pantalaimon"},{"Add":""},{"Add":"Ement.el doesn't support encrypted rooms natively, but it can be used transparently with the E2EE-aware reverse proxy daemon [[https://github.com/matrix-org/pantalaimon/][Pantalaimon]].  After configuring it according to its documentation, call ~ement-connect~ with the appropriate hostname and port, like:"},{"Add":""},{"Add":"#+BEGIN_SRC elisp"},{"Add":"  (ement-connect :uri-prefix \"http://localhost:8009\")"},{"Add":"#+END_SRC"},{"Add":""},{"Add":"* Rationale"},{"Add":""},{"Add":"Why write a new Emacs Matrix client when there is already [[https://github.com/alphapapa/matrix-client.el][matrix-client.el]], by the same author, no less?  A few reasons:"},{"Add":""},{"Add":"- ~matrix-client~ uses an older version of the Matrix spec, r0.3.0, with a few elements of r0.4.0 grafted in.  Bringing it up to date with the current version of the spec, r0.6.1, would be more work than to begin with the current version.  Ement.el targets r0.6.1 from the beginning."},{"Add":"- ~matrix-client~ does not use Matrix's lazy-loading feature (which was added to the specification later), so initial sync requests can take a long time for the server to process and can be large (sometimes tens of megabytes of JSON for the client to process!).  Ement.el uses lazy-loading, which significantly improves performance."},{"Add":"- ~matrix-client~ automatically makes buffers for every room a user has joined, even if the user doesn't currently want to watch a room.  Ement.el opens room buffers on-demand, improving performance by not having to insert events into buffers for rooms the user isn't watching."},{"Add":"- ~matrix-client~ was developed without the intention of publishing it to, e.g. MELPA or ELPA.  It has several dependencies, and its code does not always install or compile cleanly due to macro-expansion issues (apparently depending on the user's Emacs config).  Ement.el is designed to have minimal dependencies outside of Emacs (currently only one, ~plz~, which could be imported into the project), and every file is linted and compiles cleanly using [[https://github.com/alphapapa/makem.sh][makem.sh]]."},{"Add":"- ~matrix-client~ uses EIEIO, probably unnecessarily, since few, if any, of the benefits of EIEIO are realized in it.  Ement.el uses structs instead."},{"Add":"- ~matrix-client~ uses bespoke code for inserting messages into buffers, which works pretty well, but has a few minor bugs which are difficult to track down.  Ement.el uses Emacs's built-in (and perhaps little-known) ~ewoc~ library, which makes it much simpler and more reliable to insert and update messages in buffers, and enables the development of advanced UI features more easily."},{"Add":"- ~matrix-client~ was, to a certain extent, designed to imitate other messaging apps.  The result is, at least when used with the ~matrix-client-frame~ command, fairly pleasing to use, but isn't especially \"Emacsy.\"  Ement.el is intended to better fit into Emacs's paradigms."},{"Add":"- ~matrix-client~'s long name makes for long symbol names, which makes for tedious, verbose code.  ~ement~ is easy to type and makes for concise, readable code."},{"Add":"- The author has learned much since writing ~matrix-client~ and hopes to write simpler, more readable, more maintainable code in Ement.el.  It's hoped that this will enable others to contribute more easily."},{"Add":""},{"Add":"Note that, while ~matrix-client~ remains usable, and probably will for some time to come, Ement.el has now surpassed it in every way.  The only reason to choose ~matrix-client~ instead is if one is using an older version of Emacs that isn't supported by Ement.el."},{"Add":""},{"Add":"* Changelog"},{"Add":":PROPERTIES:"},{"Add":":TOC:      :depth 0"},{"Add":":END:"},{"Add":""},{"Add":"** 0.9.2"},{"Add":""},{"Add":"*Fixes*"},{"Add":"+ Restore position in room list when refreshing."},{"Add":"+ Completion in minibuffer."},{"Add":""},{"Add":"** 0.9.1"},{"Add":""},{"Add":"*Fixes*"},{"Add":"+ Error in ~ement-room-list~ command upon initial sync."},{"Add":""},{"Add":"** 0.9"},{"Add":""},{"Add":"*Additions*"},{"Add":""},{"Add":"+ Option ~ement-room-timestamp-header-align~ controls how timestamp headers are aligned in room buffers."},{"Add":"+ Option ~ement-room-view-hook~ runs functions when ~ement-room-view~ is called.  (By default, it refreshes the room list buffer.)"},{"Add":"+ In the room list, middle-clicking a room which has a buffer closes its buffer."},{"Add":"+ Basic support for video events.  (Thanks to [[https://github.com/viiru-][Arto Jantunen]].)"},{"Add":""},{"Add":"*Changes*"},{"Add":""},{"Add":"+ Using new option ~ement-room-timestamp-header-align~, timestamp headers default to right-aligned.  (With default settings, this keeps them near message timestamps and makes for a cleaner appearance.)"},{"Add":""},{"Add":"*Fixes*"},{"Add":""},{"Add":"+ Recognition of certain MXID or displayname forms in outgoing messages when linkifying (aka \"pilling\") them."},{"Add":"+ Unreadable room avatar images no longer cause errors.  (Fixes [[https://github.com/alphapapa/ement.el/issues/147][#147]].  Thanks to [[https://github.com/jgarte][@jgarte]] for reporting.)"},{"Add":"+ Don't error in ~ement-room-list~ when no rooms are joined.  (Fixes [[https://github.com/alphapapa/ement.el/issues/123][#123]].  Thanks to [[https://github.com/Kabouik][@Kabouik]] and [[https://github.com/oantolin][Omar Antolín Camarena]] for reporting.)"},{"Add":"+ Enable member/room completion in compose buffers.  (Fixes [[https://github.com/alphapapa/ement.el/issues/115][#115]].  Thanks to Thanks to [[https://github.com/piater][Justus Piater]] and [[https://github.com/chasecaleb][Caleb Chase]] for reporting.)"},{"Add":""},{"Add":"** 0.8.3"},{"Add":""},{"Add":"*Fixes*"},{"Add":""},{"Add":"+ Avoid use of ~pcase~'s ~(map :KEYWORD)~ form.  (This can cause a broken installation on older versions of Emacs that have an older version of the ~map~ library loaded, such as Emacs 27.2 included in Debian 11.  Since there's no way to force Emacs to actually load the version of ~map~ required by this package before installing it (which would naturally happen upon restarting Emacs), we can only avoid using such forms while these versions of Emacs are widely used.)"},{"Add":""},{"Add":"** 0.8.2"},{"Add":""},{"Add":"*Fixes*"},{"Add":""},{"Add":"+ Deduplicate grouped membership events."},{"Add":""},{"Add":"** 0.8.1"},{"Add":""},{"Add":"Added missing changelog entry (of course)."},{"Add":""},{"Add":"** 0.8"},{"Add":""},{"Add":"*Additions*"},{"Add":"+ Command ~ement-create-space~ creates a new space."},{"Add":"+ Command ~ement-room-toggle-space~ toggles a room's membership in a space (a way to group rooms in Matrix)."},{"Add":"+ Visibility of sections in the room list is saved across sessions."},{"Add":"+ Command ~ement-room-list-kill-buffer~ kills a room's buffer from the room list."},{"Add":"+ Set ~device_id~ and ~initial_device_display_name~ upon login (e.g. =Ement.el: username@hostname=).  ([[https://github.com/alphapapa/ement.el/issues/134][#134]].  Thanks to [[https://github.com/viiru-][Arto Jantunen]] for reporting.)"},{"Add":""},{"Add":"*Changes*"},{"Add":""},{"Add":"+ Room-related commands may be called interactively with a universal prefix to prompt for the room/session (allowing to send events or change settings in rooms other than the current one)."},{"Add":"+ Command ~ement-room-list~ reuses an existing window showing the room list when possible.  ([[https://github.com/alphapapa/ement.el/issues/131][#131]].  Thanks to [[https://github.com/jeffbowman][Jeff Bowman]] for suggesting.)"},{"Add":"+ Command ~ement-tag-room~ toggles tags (rather than adding by default and removing when called with a prefix)."},{"Add":"+ Default room grouping now groups \"spaced\" rooms separately."},{"Add":""},{"Add":"*Fixes*"},{"Add":""},{"Add":"+ Message format filter works properly when writing replies."},{"Add":"+ Improve insertion of sender name headers when using the \"Elemental\" message format."},{"Add":"+ Prompts in commands ~ement-leave-room~ and ~ement-forget-room~."},{"Add":""},{"Add":"** 0.7"},{"Add":""},{"Add":"*Additions*"},{"Add":""},{"Add":"+ Command ~ement-room-override-name~ sets a local override for a room's display name.  (Especially helpful for 1:1 rooms and bridged rooms.  See [[https://github.com/matrix-org/matrix-spec-proposals/pull/3015#issuecomment-1451017296][MSC3015]].)"},{"Add":""},{"Add":"*Changes*"},{"Add":""},{"Add":"+ Improve display of room tombstones (displayed at top and bottom of buffer, and new room ID is linked to join)."},{"Add":"+ Use descriptive prompts in ~ement-leave-room~ and ~ement-forget-room~ commands."},{"Add":""},{"Add":"*Fixes*"},{"Add":""},{"Add":"+ Command ~ement-view-space~ when called from a room buffer.  (Thanks to [[https://github.com/MagicRB][Richard Brežák]] for reporting.)"},{"Add":"+ Don't call ~display-buffer~ when reverting room list buffer.  (Fixes [[https://github.com/alphapapa/ement.el/issues/121][#121]].  Thanks to [[https://github.com/mekeor][mekeor]] for reporting.)"},{"Add":"+ Retry sync for network timeouts.  (Accidentally broken in v0.6.) "},{"Add":""},{"Add":"*Internal*"},{"Add":""},{"Add":"+ Function ~ement-put-account-data~ accepts ~:room~ argument to put on a room's account data."},{"Add":""},{"Add":"** 0.6"},{"Add":""},{"Add":"*Additions*"},{"Add":"+ Command ~ement-view-space~ to view a space's rooms in a directory buffer."},{"Add":""},{"Add":"*Changes*"},{"Add":"+ Improve ~ement-describe-room~ command (formatting, bindings)."},{"Add":""},{"Add":"*Fixes*"},{"Add":"+ Retry sync for HTTP 502 \"Bad Gateway\" errors."},{"Add":"+ Formatting of unban events."},{"Add":"+ Update password authentication according to newer Matrix spec.  (Fixes compatibility with Conduit servers.  [[https://github.com/alphapapa/ement.el/issues/66][#66]].  Thanks to [[https://github.com/tpeacock19][Travis Peacock]], [[https://github.com/viiru-][Arto Jantunen]], and [[https://github.com/scd31][Stephen D]].)"},{"Add":"+ Image scaling issues.  (Thanks to [[https://github.com/vizs][Visuwesh]].)"},{"Add":""},{"Add":"** 0.5.2"},{"Add":""},{"Add":"*Fixes*"},{"Add":"+ Apply ~ement-initial-sync-timeout~ properly (important for when the homeserver is slow to respond)."},{"Add":""},{"Add":"** 0.5.1"},{"Add":""},{"Add":"*Fixes*"},{"Add":"+ Autoload ~ement-directory~ commands."},{"Add":"+ Faces in ~ement-directory~ listings."},{"Add":""},{"Add":"** 0.5"},{"Add":""},{"Add":"*Additions*"},{"Add":"+ Present \"joined-and-left\" and \"rejoined-and-left\" membership event pairs as such."},{"Add":"+ Process and show rooms' canonical alias events."},{"Add":""},{"Add":"*Changes*"},{"Add":"+ The [[https://github.com/alphapapa/taxy.el][taxy.el]]-based room list, with programmable, smart grouping, is now the default ~ement-room-list~.  (The old, ~tabulated-list-mode~-based room list is available as ~ement-tabulated-room-list~.)"},{"Add":"+ When selecting a room to view with completion, don't offer spaces."},{"Add":"+ When selecting a room with completion, empty aliases and topics are omitted instead of being displayed as nil."},{"Add":""},{"Add":"*Fixes*"},{"Add":"+ Use of send-message filter when replying."},{"Add":"+ Replies may be written in compose buffers."},{"Add":""},{"Add":"** 0.4.1"},{"Add":""},{"Add":"*Fixes*"},{"Add":"+ Don't show \"curl process interrupted\" message when updating a read marker's position again."},{"Add":""},{"Add":"** 0.4"},{"Add":""},{"Add":"*Additions*"},{"Add":"+ Option ~ement-room-unread-only-counts-notifications~, now enabled by default, causes rooms' unread status to be determined only by their notification counts (which are set by the server and depend on rooms' notification settings)."},{"Add":"+ Command ~ement-room-set-notification-state~ sets a room's notification state (imitating Element's user-friendly presets)."},{"Add":"+ Room buffers' Transient menus show the room's notification state (imitating Element's user-friendly presets)."},{"Add":"+ Command ~ement-set-display-name~ sets the user's global displayname."},{"Add":"+ Command ~ement-room-set-display-name~ sets the user's displayname in a room (which is also now displayed in the room's Transient menu)."},{"Add":"+ Column ~Notifications~ in the ~ement-taxy-room-list~ buffer shows rooms' notification state."},{"Add":"+ Option ~ement-interrupted-sync-hook~ allows customization of how sync interruptions are handled.  (Now, by default, a warning is displayed instead of merely a message.)"},{"Add":""},{"Add":"*Changes*"},{"Add":"+ When a room's read receipt is updated, the room's buffer is also marked as unmodified.  (In concert with the new option, this makes rooms' unread status more intuitive.)"},{"Add":""},{"Add":"*Fixes*"},{"Add":"+ Binding of command ~ement-forget-room~ in room buffers."},{"Add":"+ Highlighting of ~@room~ mentions."},{"Add":""},{"Add":"** 0.3.1"},{"Add":""},{"Add":"*Fixes*"},{"Add":"+ Room unread status (when the last event in a room is sent by the local user, the room is considered read)."},{"Add":""},{"Add":"** 0.3"},{"Add":""},{"Add":"*Additions*"},{"Add":"+ Command ~ement-directory~ shows a server's room directory."},{"Add":"+ Command ~ement-directory-search~ searches a server's room directory."},{"Add":"+ Command ~ement-directory-next~ fetches the next batch of rooms in a directory."},{"Add":"+ Command ~ement-leave-room~ accepts a ~FORCE-P~ argument (interactively, with prefix) to leave a room without prompting."},{"Add":"+ Command ~ement-forget-room~ accepts a ~FORCE-P~ argument (interactively, with prefix) to also leave the room, and to forget it without prompting."},{"Add":"+ Option ~ement-notify-mark-frame-urgent-predicates~ marks the frame as urgent when (by default) a message mentions the local user or \"@room\" and the message's room has an open buffer."},{"Add":""},{"Add":"*Changes*"},{"Add":"+ Minor improvements to date/time headers."},{"Add":""},{"Add":"*Fixes*"},{"Add":"+ Command ~ement-describe-room~ for rooms without topics."},{"Add":"+ Improve insertion of old messages around existing timestamp headers."},{"Add":"+ Reduce D-Bus notification system check timeout to 2 seconds (from the default of 25)."},{"Add":"+ Compatibility with Emacs 27."},{"Add":""},{"Add":"** 0.2.1"},{"Add":""},{"Add":"*Fixes*"},{"Add":"+ Info manual export filename."},{"Add":""},{"Add":"** 0.2"},{"Add":""},{"Add":"*Changes*"},{"Add":"+ Read receipts are re-enabled.  (They're now implemented with a global idle timer rather than ~window-scroll-functions~, which sometimes caused a strange race condition that could cause Emacs to become unresponsive or crash.)"},{"Add":"+ When determining whether a room is considered unread, non-message events like membership changes, reactions, etc. are ignored.  This fixes a bug that caused certain rooms that had no message events (like some bridged rooms) to appear as unread when they shouldn't have.  But it's unclear whether this is always preferable (e.g. one might want a member leaving a room to cause it to be marked unread), so this is classified as a change rather than simply a fix, and more improvements may be made to this in the future.  (Fixes [[https://github.com/alphapapa/ement.el/issues/97][#97]].  Thanks to [[https://github.com/MrRoy][Julien Roy]] for reporting and testing.)"},{"Add":"+ The ~ement-taxy-room-list~ view no longer automatically refreshes the list if the region is active in the buffer.  (This allows the user to operate on multiple rooms without the contents of the buffer changing before completing the process.)"},{"Add":""},{"Add":"*Fixes*"},{"Add":"+ Links to only rooms (as opposed to links to events in rooms) may be activated to join them."},{"Add":"+ Read receipts mark the last completely visible event (rather than one that's only partially displayed)."},{"Add":"+ Prevent error when a room avatar image fails to load."},{"Add":""},{"Add":"** 0.1.4"},{"Add":""},{"Add":"*Fixed*"},{"Add":"+ Info manual directory headers."},{"Add":""},{"Add":"** 0.1.3"},{"Add":""},{"Add":"*Fixed*"},{"Add":"# + Read receipt-sending function was called too many times when scrolling."},{"Add":"# + Send read receipts even when the last receipt is outside the range of retrieved events."},{"Add":"+ Temporarily disable sending of read receipts due to an unusual bug that could cause Emacs to become unresponsive.  (The feature will be re-enabled in a future release.)"},{"Add":""},{"Add":"** 0.1.2"},{"Add":""},{"Add":"*Fixed*"},{"Add":"+ Function ~ement-room-sync~ correctly updates room-list buffers.  (Thanks to [[https://github.com/vizs][Visuwesh]].)"},{"Add":"+ Only send D-Bus notifications when supported.  (Fixes [[https://github.com/alphapapa/ement.el/issues/83][#83]].  Thanks to [[https://github.com/tsdh][Tassilo Horn]].)"},{"Add":""},{"Add":"** 0.1.1"},{"Add":""},{"Add":"*Fixed*"},{"Add":"+ Function ~ement-room-scroll-up-mark-read~ selects the correct room window."},{"Add":"+ Option ~ement-room-list-avatars~ defaults to what function ~display-images-p~ returns."},{"Add":""},{"Add":"** 0.1"},{"Add":""},{"Add":"After almost two years of development, the first tagged release.  Submitted to GNU ELPA."},{"Add":""},{"Add":"* Development"},{"Add":":PROPERTIES:"},{"Add":":TOC:      :include this :ignore descendants"},{"Add":":END:"},{"Add":""},{"Add":"Bug reports, feature requests, suggestions — /oh my/!"},{"Add":""},{"Add":"** Copyright Assignment"},{"Add":":PROPERTIES:"},{"Add":":TOC:      :ignore (this)"},{"Add":":END:"},{"Add":""},{"Add":"Ement.el is published in GNU ELPA and is considered part of GNU Emacs.  Therefore, cumulative contributions of more than 15 lines of code require that the author assign copyright of such contributions to the FSF.  Authors who are interested in doing so may contact [[mailto:assign@gnu.org][assign@gnu.org]] to request the appropriate form."},{"Add":""},{"Add":"** Matrix spec in Org format"},{"Add":":PROPERTIES:"},{"Add":":TOC:      :ignore (this)"},{"Add":":END:"},{"Add":""},{"Add":"An Org-formatted version of the Matrix spec is available in the [[https://github.com/alphapapa/ement.el/tree/meta/spec][meta/spec]] branch."},{"Add":""},{"Add":"* License"},{"Add":":PROPERTIES:"},{"Add":":TOC:      :ignore (this)"},{"Add":":END:"},{"Add":""},{"Add":"GPLv3"},{"Add":""},{"Add":"* COMMENT Config                                                   :noexport:"},{"Add":":PROPERTIES:"},{"Add":":TOC:      :ignore (this descendants)"},{"Add":":END:"},{"Add":""},{"Add":"# NOTE: The #+OPTIONS: and other keywords did not take effect when in this section (perhaps due to file size or to changes in Org), so they were moved to the top of the file."},{"Add":""},{"Add":"** File-local variables"},{"Add":""},{"Add":"# Local Variables:"},{"Add":"# eval: (require 'org-make-toc)"},{"Add":"# before-save-hook: org-make-toc"},{"Add":"# org-export-with-properties: ()"},{"Add":"# org-export-with-title: t"},{"Add":"# End:"},{"Add":""}]}},{"FileAdd":{"meta":{"basename":"README-elpa","metadata":0},"context":[{"change":0,"pos":483987}],"contents":[{"Add":"\t\t\t       ━━━━━━━━━━"},{"Add":"\t\t\t\tEMENT.EL"},{"Add":"\t\t\t       ━━━━━━━━━━"},{"Add":""},{"Add":""},{"Add":"[https://elpa.gnu.org/packages/ement.svg]"},{"Add":""},{"Add":"Ement.el is a Matrix client for Emacs.  It aims to be simple, fast,"},{"Add":"featureful, and reliable."},{"Add":""},{"Add":"Feel free to join us in the chat room:"},{"Add":"[https://img.shields.io/matrix/ement.el:matrix.org.svg?label=%23ement.el:matrix.org]"},{"Add":""},{"Add":""},{"Add":"[https://elpa.gnu.org/packages/ement.svg]"},{"Add":""},{"Add":""},{"Add":"[https://img.shields.io/matrix/ement.el:matrix.org.svg?label=%23ement.el:matrix.org]"},{"Add":""},{"Add":""},{"Add":""},{"Add":"1 Installation"},{"Add":"══════════════"},{"Add":""},{"Add":"1.1 GNU ELPA"},{"Add":"────────────"},{"Add":""},{"Add":"  Ement.el is published in [GNU ELPA], so it may be installed in Emacs"},{"Add":"  with the command `M-x package-install RET ement RET'.  This is the"},{"Add":"  recommended way to install Ement.el, as it will install the current"},{"Add":"  stable release."},{"Add":""},{"Add":""},{"Add":"[GNU ELPA] "},{"Add":""},{"Add":""},{"Add":"1.2 GNU Guix"},{"Add":"────────────"},{"Add":""},{"Add":"  Ement.el is also available in [GNU Guix] as `emacs-ement'."},{"Add":""},{"Add":""},{"Add":"[GNU Guix] "},{"Add":""},{"Add":""},{"Add":"1.3 Debian"},{"Add":"──────────"},{"Add":""},{"Add":"  Ement.el is also available in Debian as [elpa-ement]."},{"Add":""},{"Add":""},{"Add":"[elpa-ement] "},{"Add":""},{"Add":""},{"Add":"1.4 Git master"},{"Add":"──────────────"},{"Add":""},{"Add":"  The `master' branch of the Git repository is intended to be usable at"},{"Add":"  all times; only minor bugs are expected to be found in it before a new"},{"Add":"  stable release is made.  To install from this, it is recommended to"},{"Add":"  use [quelpa-use-package], like this:"},{"Add":""},{"Add":"  ┌────"},{"Add":"  │ ;; Install and load `quelpa-use-package'."},{"Add":"  │ (package-install 'quelpa-use-package)"},{"Add":"  │ (require 'quelpa-use-package)"},{"Add":"  │ "},{"Add":"  │ ;; Install Ement."},{"Add":"  │ (use-package ement"},{"Add":"  │   :quelpa (ement :fetcher github :repo \"alphapapa/ement.el\"))"},{"Add":"  └────"},{"Add":""},{"Add":"  One might also use systems like [Straight] (which is also used by"},{"Add":"  [DOOM]) to install from Git, but the author cannot offer support for"},{"Add":"  them."},{"Add":""},{"Add":""},{"Add":"[quelpa-use-package] "},{"Add":""},{"Add":"[Straight] "},{"Add":""},{"Add":"[DOOM] "},{"Add":""},{"Add":""},{"Add":"1.5 Manual"},{"Add":"──────────"},{"Add":""},{"Add":"  Ement.el is intended to be installed with Emacs's package system,"},{"Add":"  which will ensure that the required autoloads are generated, etc.  If"},{"Add":"  you choose to install it manually, you're on your own."},{"Add":""},{"Add":""},{"Add":"2 Usage"},{"Add":"═══════"},{"Add":""},{"Add":"  • "},{"Add":"  • "},{"Add":"  • "},{"Add":""},{"Add":"  1. Call command `ement-connect' to connect.  Multiple sessions are"},{"Add":"     supported, so you may call the command again to connect to another"},{"Add":"     account."},{"Add":"  2. Wait for initial sync to complete (which can take a few"},{"Add":"     moments–initial sync JSON requests can be large)."},{"Add":"  3. Use these commands (room-related commands may be called with"},{"Add":"     universal prefix to prompt for the room):"},{"Add":"     • `ement-list-rooms' to view the list of joined rooms."},{"Add":"     • `ement-view-room' to view a room's buffer, selected with"},{"Add":"       completion."},{"Add":"     • `ement-create-room' to create a new room."},{"Add":"     • `ement-create-space' to create a space."},{"Add":"     • `ement-invite-user' to invite a user to a room."},{"Add":"     • `ement-join-room' to join a room."},{"Add":"     • `ement-leave-room' to leave a room."},{"Add":"     • `ement-forget-room' to forget a room."},{"Add":"     • `ement-tag-room' to toggle a tag on a room (including"},{"Add":"       favorite/low-priority status)."},{"Add":"     • `ement-list-members' to list members in a room."},{"Add":"     • `ement-send-direct-message' to send a direct message to a user"},{"Add":"       (in an existing direct room, or creating a new one"},{"Add":"       automatically)."},{"Add":"     • `ement-room-edit-message' to edit a message at point."},{"Add":"     • `ement-room-send-file' to send a file."},{"Add":"     • `ement-room-send-image' to send an image."},{"Add":"     • `ement-room-set-topic' to set a room's topic."},{"Add":"     • `ement-room-occur' to search in a room's known events."},{"Add":"     • `ement-room-override-name' to override a room's display name."},{"Add":"     • `ement-ignore-user' to ignore a user (or with interactive prefix,"},{"Add":"       un-ignore)."},{"Add":"     • `ement-room-set-message-format' to set a room's message format"},{"Add":"       buffer-locally."},{"Add":"     • `ement-room-toggle-space' to toggle a room's membership in a"},{"Add":"       space (a way to group rooms in Matrix)."},{"Add":"     • `ement-directory' to view a room directory."},{"Add":"     • `ement-directory-search' to search a room directory."},{"Add":"  4. Use these special buffers to see events from multiple rooms (you"},{"Add":"     can also reply to messages from these buffers!):"},{"Add":"     • See all new events that mention you in the `*Ement Mentions*'"},{"Add":"       buffer."},{"Add":"     • See all new events in rooms that have open buffers in the `*Ement"},{"Add":"       Notifications*' buffer."},{"Add":""},{"Add":""},{"Add":"2.1 Bindings"},{"Add":"────────────"},{"Add":""},{"Add":"  These bindings are common to all of the following buffer types:"},{"Add":""},{"Add":"  ⁃ Switch to a room buffer: `M-g M-r'"},{"Add":"  ⁃ Switch to the room list buffer: `M-g M-l'"},{"Add":"  ⁃ Switch to the mentions buffer: `M-g M-m'"},{"Add":"  ⁃ Switch to the notifications buffer: `M-g M-n'"},{"Add":""},{"Add":""},{"Add":"2.1.1 Room buffers"},{"Add":"╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌"},{"Add":""},{"Add":"  ⁃ Show command menu: `?'"},{"Add":""},{"Add":""},{"Add":""},{"Add":"  *Movement*"},{"Add":""},{"Add":"  ⁃ Next event: `TAB'"},{"Add":"  ⁃ Previous event: `'"},{"Add":"  ⁃ Scroll up and mark read: `SPC'"},{"Add":"  ⁃ Scroll down: `S-SPC'"},{"Add":"  ⁃ Jump to fully-read marker: `M-SPC'"},{"Add":"  ⁃ Load older messages: at top of buffer, scroll contents up"},{"Add":"    (i.e. `S-SPC', `M-v' or `mwheel-scroll')"},{"Add":""},{"Add":"  *Switching*"},{"Add":""},{"Add":"  ⁃ List rooms: `M-g M-l'"},{"Add":"  ⁃ Switch to other room: `M-g M-r'"},{"Add":"  ⁃ Switch to mentions buffer: `M-g M-m'"},{"Add":"  ⁃ Switch to notifications buffer: `M-g M-n'"},{"Add":"  ⁃ Quit window: `q'"},{"Add":""},{"Add":"  *Messages*"},{"Add":""},{"Add":"  ⁃ Write message: `RET'"},{"Add":"  ⁃ Write reply to event at point (when region is active, only quote"},{"Add":"    marked text) : `S-RET'"},{"Add":"  ⁃ Compose message in buffer: `M-RET' (while writing in minibuffer:"},{"Add":"    `C-c ')' (Use command `ement-room-compose-org' to activate Org mode"},{"Add":"    in the compose buffer.)"},{"Add":"  ⁃ Edit message: `'"},{"Add":"  ⁃ Delete message: `C-k'"},{"Add":"  ⁃ Send reaction to event at point, or send same reaction at point: `s"},{"Add":"    r'"},{"Add":"  ⁃ Send emote: `s e'"},{"Add":"  ⁃ Send file: `s f'"},{"Add":"  ⁃ Send image: `s i'"},{"Add":"  ⁃ View event source: `v'"},{"Add":"  ⁃ Complete members and rooms at point: `C-M-i' (standard"},{"Add":"    `completion-at-point' command).  (Type an `@' prefix for a member"},{"Add":"    mention, a `#' prefix for a room alias, or a `!' prefix for a room"},{"Add":"    ID.)"},{"Add":""},{"Add":"  *Images*"},{"Add":""},{"Add":"  ⁃ Toggle scale of image (between fit-to-window and thumbnail):"},{"Add":"    `mouse-1'"},{"Add":"  ⁃ Show image in new buffer at full size: `double-mouse-1'"},{"Add":""},{"Add":"  *Users*"},{"Add":""},{"Add":"  ⁃ Send direct message: `u RET'"},{"Add":"  ⁃ Invite user: `u i'"},{"Add":"  ⁃ Ignore user: `u I'"},{"Add":""},{"Add":"  *Room*"},{"Add":""},{"Add":"  ⁃ Occur search in room: `M-s o'"},{"Add":"  ⁃ List members: `r m'"},{"Add":"  ⁃ Set topic: `r t'"},{"Add":"  ⁃ Set message format: `r f'"},{"Add":"  ⁃ Set notification rules: `r n'"},{"Add":"  ⁃ Override display name: `r N'"},{"Add":"  ⁃ Tag/untag room: `r T'"},{"Add":""},{"Add":"  *Room membership*"},{"Add":""},{"Add":"  ⁃ Create room: `R c'"},{"Add":"  ⁃ Join room: `R j'"},{"Add":"  ⁃ Leave room: `R l'"},{"Add":"  ⁃ Forget room: `R F'"},{"Add":"  ⁃ Toggle room's spaces: `R s'"},{"Add":""},{"Add":"  *Other*"},{"Add":""},{"Add":"  ⁃ Sync new messages (not necessary if auto sync is enabled; with"},{"Add":"    prefix to force new sync): `g'"},{"Add":""},{"Add":""},{"Add":"2.1.2 Room list buffer"},{"Add":"╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌"},{"Add":""},{"Add":"  ⁃ Show buffer of room at point: `RET'"},{"Add":"  ⁃ Show buffer of next unread room: `SPC'"},{"Add":"  ⁃ Move between room names: `TAB' / `'"},{"Add":""},{"Add":"  ⁃ Kill room's buffer: `k'"},{"Add":"  ⁃ Toggle room's membership in a space: `s'"},{"Add":""},{"Add":""},{"Add":"2.1.3 Directory buffers"},{"Add":"╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌"},{"Add":""},{"Add":"  ⁃ View/join a room: `RET' / `mouse-1'"},{"Add":"  ⁃ Load next batch of rooms: `+'"},{"Add":""},{"Add":""},{"Add":"2.1.4 Mentions/notifications buffers"},{"Add":"╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌"},{"Add":""},{"Add":"  ⁃ Move between events: `TAB' / `'"},{"Add":"  ⁃ Go to event at point in its room buffer: `RET'"},{"Add":"  ⁃ Write reply to event at point (shows the event in its room while"},{"Add":"    writing) : `S-RET'"},{"Add":""},{"Add":""},{"Add":"2.2 Tips"},{"Add":"────────"},{"Add":""},{"Add":"  ⁃ Desktop notifications are enabled by default for events that mention"},{"Add":"    the local user.  They can also be shown for all events in rooms with"},{"Add":"    open buffers."},{"Add":"  ⁃ Send messages in Org mode format by customizing the option"},{"Add":"    `ement-room-send-message-filter' (which enables Org format by"},{"Add":"    default), or by calling `ement-room-compose-org' in a compose buffer"},{"Add":"    (which enables it for a single message).  Then Org-formatted"},{"Add":"    messages are automatically converted and sent as HTML-formatted"},{"Add":"    messages (with the Org syntax as the plain-text fallback).  You can"},{"Add":"    send syntax such as:"},{"Add":"    • Bold, italic, underline, strikethrough"},{"Add":"    • Links"},{"Add":"    • Tables"},{"Add":"    • Source blocks (including results with `:exports both')"},{"Add":"    • Footnotes (okay, that might be pushing it, but you can!)"},{"Add":"    • And, generally, anything that Org can export to HTML"},{"Add":"  ⁃ Starting in the room list buffer, by pressing `SPC' repeatedly, you"},{"Add":"    can cycle through and read all rooms with unread buffers.  (If a"},{"Add":"    room doesn't have a buffer, it will not be included.)"},{"Add":"  ⁃ Room buffers and the room-list buffer can be bookmarked in Emacs,"},{"Add":"    i.e. using `C-x r m'.  This is especially useful with [Burly]: you"},{"Add":"    can arrange an Emacs frame with several room buffers displayed at"},{"Add":"    once, use `burly-bookmark-windows' to bookmark the layout, and then"},{"Add":"    you can restore that layout and all of the room buffers by opening"},{"Add":"    the bookmark, rather than having to manually arrange them every time"},{"Add":"    you start Emacs or change the window configuration."},{"Add":"  ⁃ Images and other files can be uploaded to rooms using drag-and-drop."},{"Add":"  ⁃ Mention members by typing a `@' followed by their displayname or"},{"Add":"    Matrix ID.  (Members' names and rooms' aliases/IDs may be completed"},{"Add":"    with `completion-at-point' commands.)"},{"Add":"  ⁃ You can customize settings in the `ement' group."},{"Add":"    • *Note:* `setq' should not be used for certain options, because it"},{"Add":"       will not call the associated setter function.  Users who have an"},{"Add":"       aversion to the customization system may experience problems."},{"Add":""},{"Add":""},{"Add":"[Burly] "},{"Add":""},{"Add":"2.2.1 Displaying symbols and emojis"},{"Add":"╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌"},{"Add":""},{"Add":"  Emacs may not display certain symbols and emojis well by default."},{"Add":"  Based on [this question and answer], you may find that the simplest"},{"Add":"  way to fix this is to install an appropriate font, like [Noto Emoji],"},{"Add":"  and then use this Elisp code:"},{"Add":""},{"Add":"  ┌────"},{"Add":"  │ (setf use-default-font-for-symbols nil)"},{"Add":"  │ (set-fontset-font t 'unicode \"Noto Emoji\" nil 'append)"},{"Add":"  └────"},{"Add":""},{"Add":""},{"Add":"[this question and answer]"},{"Add":""},{"Add":""},{"Add":"[Noto Emoji] "},{"Add":""},{"Add":""},{"Add":"2.3 Encrypted room support through Pantalaimon"},{"Add":"──────────────────────────────────────────────"},{"Add":""},{"Add":"  Ement.el doesn't support encrypted rooms natively, but it can be used"},{"Add":"  transparently with the E2EE-aware reverse proxy daemon [Pantalaimon]."},{"Add":"  After configuring it according to its documentation, call"},{"Add":"  `ement-connect' with the appropriate hostname and port, like:"},{"Add":""},{"Add":"  ┌────"},{"Add":"  │ (ement-connect :uri-prefix \"http://localhost:8009\")"},{"Add":"  └────"},{"Add":""},{"Add":""},{"Add":"[Pantalaimon] "},{"Add":""},{"Add":""},{"Add":"3 Rationale"},{"Add":"═══════════"},{"Add":""},{"Add":"  Why write a new Emacs Matrix client when there is already"},{"Add":"  [matrix-client.el], by the same author, no less?  A few reasons:"},{"Add":""},{"Add":"  • `matrix-client' uses an older version of the Matrix spec, r0.3.0,"},{"Add":"    with a few elements of r0.4.0 grafted in.  Bringing it up to date"},{"Add":"    with the current version of the spec, r0.6.1, would be more work"},{"Add":"    than to begin with the current version.  Ement.el targets r0.6.1"},{"Add":"    from the beginning."},{"Add":"  • `matrix-client' does not use Matrix's lazy-loading feature (which"},{"Add":"    was added to the specification later), so initial sync requests can"},{"Add":"    take a long time for the server to process and can be large"},{"Add":"    (sometimes tens of megabytes of JSON for the client to process!)."},{"Add":"    Ement.el uses lazy-loading, which significantly improves"},{"Add":"    performance."},{"Add":"  • `matrix-client' automatically makes buffers for every room a user"},{"Add":"    has joined, even if the user doesn't currently want to watch a room."},{"Add":"    Ement.el opens room buffers on-demand, improving performance by not"},{"Add":"    having to insert events into buffers for rooms the user isn't"},{"Add":"    watching."},{"Add":"  • `matrix-client' was developed without the intention of publishing it"},{"Add":"    to, e.g. MELPA or ELPA.  It has several dependencies, and its code"},{"Add":"    does not always install or compile cleanly due to macro-expansion"},{"Add":"    issues (apparently depending on the user's Emacs config).  Ement.el"},{"Add":"    is designed to have minimal dependencies outside of Emacs (currently"},{"Add":"    only one, `plz', which could be imported into the project), and"},{"Add":"    every file is linted and compiles cleanly using [makem.sh]."},{"Add":"  • `matrix-client' uses EIEIO, probably unnecessarily, since few, if"},{"Add":"    any, of the benefits of EIEIO are realized in it.  Ement.el uses"},{"Add":"    structs instead."},{"Add":"  • `matrix-client' uses bespoke code for inserting messages into"},{"Add":"    buffers, which works pretty well, but has a few minor bugs which are"},{"Add":"    difficult to track down.  Ement.el uses Emacs's built-in (and"},{"Add":"    perhaps little-known) `ewoc' library, which makes it much simpler"},{"Add":"    and more reliable to insert and update messages in buffers, and"},{"Add":"    enables the development of advanced UI features more easily."},{"Add":"  • `matrix-client' was, to a certain extent, designed to imitate other"},{"Add":"    messaging apps.  The result is, at least when used with the"},{"Add":"    `matrix-client-frame' command, fairly pleasing to use, but isn't"},{"Add":"    especially \"Emacsy.\"  Ement.el is intended to better fit into"},{"Add":"    Emacs's paradigms."},{"Add":"  • `matrix-client''s long name makes for long symbol names, which makes"},{"Add":"    for tedious, verbose code.  `ement' is easy to type and makes for"},{"Add":"    concise, readable code."},{"Add":"  • The author has learned much since writing `matrix-client' and hopes"},{"Add":"    to write simpler, more readable, more maintainable code in Ement.el."},{"Add":"    It's hoped that this will enable others to contribute more easily."},{"Add":""},{"Add":"  Note that, while `matrix-client' remains usable, and probably will for"},{"Add":"  some time to come, Ement.el has now surpassed it in every way.  The"},{"Add":"  only reason to choose `matrix-client' instead is if one is using an"},{"Add":"  older version of Emacs that isn't supported by Ement.el."},{"Add":""},{"Add":""},{"Add":"[matrix-client.el] "},{"Add":""},{"Add":"[makem.sh] "},{"Add":""},{"Add":""},{"Add":"4 Changelog"},{"Add":"═══════════"},{"Add":""},{"Add":"4.1 0.9.2"},{"Add":"─────────"},{"Add":""},{"Add":"  *Fixes*"},{"Add":"  ⁃ Restore position in room list when refreshing."},{"Add":"  ⁃ Completion in minibuffer."},{"Add":""},{"Add":""},{"Add":"4.2 0.9.1"},{"Add":"─────────"},{"Add":""},{"Add":"  *Fixes*"},{"Add":"  ⁃ Error in `ement-room-list' command upon initial sync."},{"Add":""},{"Add":""},{"Add":"4.3 0.9"},{"Add":"───────"},{"Add":""},{"Add":"  *Additions*"},{"Add":""},{"Add":"  ⁃ Option `ement-room-timestamp-header-align' controls how timestamp"},{"Add":"    headers are aligned in room buffers."},{"Add":"  ⁃ Option `ement-room-view-hook' runs functions when `ement-room-view'"},{"Add":"    is called.  (By default, it refreshes the room list buffer.)"},{"Add":"  ⁃ In the room list, middle-clicking a room which has a buffer closes"},{"Add":"    its buffer."},{"Add":"  ⁃ Basic support for video events.  (Thanks to [Arto Jantunen].)"},{"Add":""},{"Add":"  *Changes*"},{"Add":""},{"Add":"  ⁃ Using new option `ement-room-timestamp-header-align', timestamp"},{"Add":"    headers default to right-aligned.  (With default settings, this"},{"Add":"    keeps them near message timestamps and makes for a cleaner"},{"Add":"    appearance.)"},{"Add":""},{"Add":"  *Fixes*"},{"Add":""},{"Add":"  ⁃ Recognition of certain MXID or displayname forms in outgoing"},{"Add":"    messages when linkifying (aka \"pilling\") them."},{"Add":"  ⁃ Unreadable room avatar images no longer cause errors.  (Fixes"},{"Add":"    [#147].  Thanks to [@jgarte] for reporting.)"},{"Add":"  ⁃ Don't error in `ement-room-list' when no rooms are joined.  (Fixes"},{"Add":"    [#123].  Thanks to [@Kabouik] and [Omar Antolín Camarena] for"},{"Add":"    reporting.)"},{"Add":"  ⁃ Enable member/room completion in compose buffers.  (Fixes [#115]."},{"Add":"    Thanks to Thanks to [Justus Piater] and [Caleb Chase] for"},{"Add":"    reporting.)"},{"Add":""},{"Add":""},{"Add":"[Arto Jantunen] "},{"Add":""},{"Add":"[#147] "},{"Add":""},{"Add":"[@jgarte] "},{"Add":""},{"Add":"[#123] "},{"Add":""},{"Add":"[@Kabouik] "},{"Add":""},{"Add":"[Omar Antolín Camarena] "},{"Add":""},{"Add":"[#115] "},{"Add":""},{"Add":"[Justus Piater] "},{"Add":""},{"Add":"[Caleb Chase] "},{"Add":""},{"Add":""},{"Add":"4.4 0.8.3"},{"Add":"─────────"},{"Add":""},{"Add":"  *Fixes*"},{"Add":""},{"Add":"  ⁃ Avoid use of `pcase''s `(map :KEYWORD)' form.  (This can cause a"},{"Add":"    broken installation on older versions of Emacs that have an older"},{"Add":"    version of the `map' library loaded, such as Emacs 27.2 included in"},{"Add":"    Debian 11.  Since there's no way to force Emacs to actually load the"},{"Add":"    version of `map' required by this package before installing it"},{"Add":"    (which would naturally happen upon restarting Emacs), we can only"},{"Add":"    avoid using such forms while these versions of Emacs are widely"},{"Add":"    used.)"},{"Add":""},{"Add":""},{"Add":"4.5 0.8.2"},{"Add":"─────────"},{"Add":""},{"Add":"  *Fixes*"},{"Add":""},{"Add":"  ⁃ Deduplicate grouped membership events."},{"Add":""},{"Add":""},{"Add":"4.6 0.8.1"},{"Add":"─────────"},{"Add":""},{"Add":"  Added missing changelog entry (of course)."},{"Add":""},{"Add":""},{"Add":"4.7 0.8"},{"Add":"───────"},{"Add":""},{"Add":"  *Additions*"},{"Add":"  ⁃ Command `ement-create-space' creates a new space."},{"Add":"  ⁃ Command `ement-room-toggle-space' toggles a room's membership in a"},{"Add":"    space (a way to group rooms in Matrix)."},{"Add":"  ⁃ Visibility of sections in the room list is saved across sessions."},{"Add":"  ⁃ Command `ement-room-list-kill-buffer' kills a room's buffer from the"},{"Add":"    room list."},{"Add":"  ⁃ Set `device_id' and `initial_device_display_name' upon login"},{"Add":"    (e.g. `Ement.el: username@hostname').  ([#134].  Thanks to [Arto"},{"Add":"    Jantunen] for reporting.)"},{"Add":""},{"Add":"  *Changes*"},{"Add":""},{"Add":"  ⁃ Room-related commands may be called interactively with a universal"},{"Add":"    prefix to prompt for the room/session (allowing to send events or"},{"Add":"    change settings in rooms other than the current one)."},{"Add":"  ⁃ Command `ement-room-list' reuses an existing window showing the room"},{"Add":"    list when possible.  ([#131].  Thanks to [Jeff Bowman] for"},{"Add":"    suggesting.)"},{"Add":"  ⁃ Command `ement-tag-room' toggles tags (rather than adding by default"},{"Add":"    and removing when called with a prefix)."},{"Add":"  ⁃ Default room grouping now groups \"spaced\" rooms separately."},{"Add":""},{"Add":"  *Fixes*"},{"Add":""},{"Add":"  ⁃ Message format filter works properly when writing replies."},{"Add":"  ⁃ Improve insertion of sender name headers when using the \"Elemental\""},{"Add":"    message format."},{"Add":"  ⁃ Prompts in commands `ement-leave-room' and `ement-forget-room'."},{"Add":""},{"Add":""},{"Add":"[#134] "},{"Add":""},{"Add":"[Arto Jantunen] "},{"Add":""},{"Add":"[#131] "},{"Add":""},{"Add":"[Jeff Bowman] "},{"Add":""},{"Add":""},{"Add":"4.8 0.7"},{"Add":"───────"},{"Add":""},{"Add":"  *Additions*"},{"Add":""},{"Add":"  ⁃ Command `ement-room-override-name' sets a local override for a"},{"Add":"    room's display name.  (Especially helpful for 1:1 rooms and bridged"},{"Add":"    rooms.  See [MSC3015].)"},{"Add":""},{"Add":"  *Changes*"},{"Add":""},{"Add":"  ⁃ Improve display of room tombstones (displayed at top and bottom of"},{"Add":"    buffer, and new room ID is linked to join)."},{"Add":"  ⁃ Use descriptive prompts in `ement-leave-room' and"},{"Add":"    `ement-forget-room' commands."},{"Add":""},{"Add":"  *Fixes*"},{"Add":""},{"Add":"  ⁃ Command `ement-view-space' when called from a room buffer.  (Thanks"},{"Add":"    to [Richard Brežák] for reporting.)"},{"Add":"  ⁃ Don't call `display-buffer' when reverting room list buffer.  (Fixes"},{"Add":"    [#121].  Thanks to [mekeor] for reporting.)"},{"Add":"  ⁃ Retry sync for network timeouts.  (Accidentally broken in v0.6.)"},{"Add":""},{"Add":"  *Internal*"},{"Add":""},{"Add":"  ⁃ Function `ement-put-account-data' accepts `:room' argument to put on"},{"Add":"    a room's account data."},{"Add":""},{"Add":""},{"Add":"[MSC3015]"},{"Add":""},{"Add":""},{"Add":"[Richard Brežák] "},{"Add":""},{"Add":"[#121] "},{"Add":""},{"Add":"[mekeor] "},{"Add":""},{"Add":""},{"Add":"4.9 0.6"},{"Add":"───────"},{"Add":""},{"Add":"  *Additions*"},{"Add":"  ⁃ Command `ement-view-space' to view a space's rooms in a directory"},{"Add":"    buffer."},{"Add":""},{"Add":"  *Changes*"},{"Add":"  ⁃ Improve `ement-describe-room' command (formatting, bindings)."},{"Add":""},{"Add":"  *Fixes*"},{"Add":"  ⁃ Retry sync for HTTP 502 \"Bad Gateway\" errors."},{"Add":"  ⁃ Formatting of unban events."},{"Add":"  ⁃ Update password authentication according to newer Matrix spec."},{"Add":"    (Fixes compatibility with Conduit servers.  [#66].  Thanks to"},{"Add":"    [Travis Peacock], [Arto Jantunen], and [Stephen D].)"},{"Add":"  ⁃ Image scaling issues.  (Thanks to [Visuwesh].)"},{"Add":""},{"Add":""},{"Add":"[#66] "},{"Add":""},{"Add":"[Travis Peacock] "},{"Add":""},{"Add":"[Arto Jantunen] "},{"Add":""},{"Add":"[Stephen D] "},{"Add":""},{"Add":"[Visuwesh] "},{"Add":""},{"Add":""},{"Add":"4.10 0.5.2"},{"Add":"──────────"},{"Add":""},{"Add":"  *Fixes*"},{"Add":"  ⁃ Apply `ement-initial-sync-timeout' properly (important for when the"},{"Add":"    homeserver is slow to respond)."},{"Add":""},{"Add":""},{"Add":"4.11 0.5.1"},{"Add":"──────────"},{"Add":""},{"Add":"  *Fixes*"},{"Add":"  ⁃ Autoload `ement-directory' commands."},{"Add":"  ⁃ Faces in `ement-directory' listings."},{"Add":""},{"Add":""},{"Add":"4.12 0.5"},{"Add":"────────"},{"Add":""},{"Add":"  *Additions*"},{"Add":"  ⁃ Present \"joined-and-left\" and \"rejoined-and-left\" membership event"},{"Add":"    pairs as such."},{"Add":"  ⁃ Process and show rooms' canonical alias events."},{"Add":""},{"Add":"  *Changes*"},{"Add":"  ⁃ The [taxy.el]-based room list, with programmable, smart grouping, is"},{"Add":"    now the default `ement-room-list'.  (The old,"},{"Add":"    `tabulated-list-mode'-based room list is available as"},{"Add":"    `ement-tabulated-room-list'.)"},{"Add":"  ⁃ When selecting a room to view with completion, don't offer spaces."},{"Add":"  ⁃ When selecting a room with completion, empty aliases and topics are"},{"Add":"    omitted instead of being displayed as nil."},{"Add":""},{"Add":"  *Fixes*"},{"Add":"  ⁃ Use of send-message filter when replying."},{"Add":"  ⁃ Replies may be written in compose buffers."},{"Add":""},{"Add":""},{"Add":"[taxy.el] "},{"Add":""},{"Add":""},{"Add":"4.13 0.4.1"},{"Add":"──────────"},{"Add":""},{"Add":"  *Fixes*"},{"Add":"  ⁃ Don't show \"curl process interrupted\" message when updating a read"},{"Add":"    marker's position again."},{"Add":""},{"Add":""},{"Add":"4.14 0.4"},{"Add":"────────"},{"Add":""},{"Add":"  *Additions*"},{"Add":"  ⁃ Option `ement-room-unread-only-counts-notifications', now enabled by"},{"Add":"    default, causes rooms' unread status to be determined only by their"},{"Add":"    notification counts (which are set by the server and depend on"},{"Add":"    rooms' notification settings)."},{"Add":"  ⁃ Command `ement-room-set-notification-state' sets a room's"},{"Add":"    notification state (imitating Element's user-friendly presets)."},{"Add":"  ⁃ Room buffers' Transient menus show the room's notification state"},{"Add":"    (imitating Element's user-friendly presets)."},{"Add":"  ⁃ Command `ement-set-display-name' sets the user's global displayname."},{"Add":"  ⁃ Command `ement-room-set-display-name' sets the user's displayname in"},{"Add":"    a room (which is also now displayed in the room's Transient menu)."},{"Add":"  ⁃ Column `Notifications' in the `ement-taxy-room-list' buffer shows"},{"Add":"    rooms' notification state."},{"Add":"  ⁃ Option `ement-interrupted-sync-hook' allows customization of how"},{"Add":"    sync interruptions are handled.  (Now, by default, a warning is"},{"Add":"    displayed instead of merely a message.)"},{"Add":""},{"Add":"  *Changes*"},{"Add":"  ⁃ When a room's read receipt is updated, the room's buffer is also"},{"Add":"    marked as unmodified.  (In concert with the new option, this makes"},{"Add":"    rooms' unread status more intuitive.)"},{"Add":""},{"Add":"  *Fixes*"},{"Add":"  ⁃ Binding of command `ement-forget-room' in room buffers."},{"Add":"  ⁃ Highlighting of `@room' mentions."},{"Add":""},{"Add":""},{"Add":"4.15 0.3.1"},{"Add":"──────────"},{"Add":""},{"Add":"  *Fixes*"},{"Add":"  ⁃ Room unread status (when the last event in a room is sent by the"},{"Add":"    local user, the room is considered read)."},{"Add":""},{"Add":""},{"Add":"4.16 0.3"},{"Add":"────────"},{"Add":""},{"Add":"  *Additions*"},{"Add":"  ⁃ Command `ement-directory' shows a server's room directory."},{"Add":"  ⁃ Command `ement-directory-search' searches a server's room directory."},{"Add":"  ⁃ Command `ement-directory-next' fetches the next batch of rooms in a"},{"Add":"    directory."},{"Add":"  ⁃ Command `ement-leave-room' accepts a `FORCE-P' argument"},{"Add":"    (interactively, with prefix) to leave a room without prompting."},{"Add":"  ⁃ Command `ement-forget-room' accepts a `FORCE-P' argument"},{"Add":"    (interactively, with prefix) to also leave the room, and to forget"},{"Add":"    it without prompting."},{"Add":"  ⁃ Option `ement-notify-mark-frame-urgent-predicates' marks the frame"},{"Add":"    as urgent when (by default) a message mentions the local user or"},{"Add":"    \"@room\" and the message's room has an open buffer."},{"Add":""},{"Add":"  *Changes*"},{"Add":"  ⁃ Minor improvements to date/time headers."},{"Add":""},{"Add":"  *Fixes*"},{"Add":"  ⁃ Command `ement-describe-room' for rooms without topics."},{"Add":"  ⁃ Improve insertion of old messages around existing timestamp headers."},{"Add":"  ⁃ Reduce D-Bus notification system check timeout to 2 seconds (from"},{"Add":"    the default of 25)."},{"Add":"  ⁃ Compatibility with Emacs 27."},{"Add":""},{"Add":""},{"Add":"4.17 0.2.1"},{"Add":"──────────"},{"Add":""},{"Add":"  *Fixes*"},{"Add":"  ⁃ Info manual export filename."},{"Add":""},{"Add":""},{"Add":"4.18 0.2"},{"Add":"────────"},{"Add":""},{"Add":"  *Changes*"},{"Add":"  ⁃ Read receipts are re-enabled.  (They're now implemented with a"},{"Add":"    global idle timer rather than `window-scroll-functions', which"},{"Add":"    sometimes caused a strange race condition that could cause Emacs to"},{"Add":"    become unresponsive or crash.)"},{"Add":"  ⁃ When determining whether a room is considered unread, non-message"},{"Add":"    events like membership changes, reactions, etc. are ignored.  This"},{"Add":"    fixes a bug that caused certain rooms that had no message events"},{"Add":"    (like some bridged rooms) to appear as unread when they shouldn't"},{"Add":"    have.  But it's unclear whether this is always preferable (e.g. one"},{"Add":"    might want a member leaving a room to cause it to be marked unread),"},{"Add":"    so this is classified as a change rather than simply a fix, and more"},{"Add":"    improvements may be made to this in the future.  (Fixes [#97]."},{"Add":"    Thanks to [Julien Roy] for reporting and testing.)"},{"Add":"  ⁃ The `ement-taxy-room-list' view no longer automatically refreshes"},{"Add":"    the list if the region is active in the buffer.  (This allows the"},{"Add":"    user to operate on multiple rooms without the contents of the buffer"},{"Add":"    changing before completing the process.)"},{"Add":""},{"Add":"  *Fixes*"},{"Add":"  ⁃ Links to only rooms (as opposed to links to events in rooms) may be"},{"Add":"    activated to join them."},{"Add":"  ⁃ Read receipts mark the last completely visible event (rather than"},{"Add":"    one that's only partially displayed)."},{"Add":"  ⁃ Prevent error when a room avatar image fails to load."},{"Add":""},{"Add":""},{"Add":"[#97] "},{"Add":""},{"Add":"[Julien Roy] "},{"Add":""},{"Add":""},{"Add":"4.19 0.1.4"},{"Add":"──────────"},{"Add":""},{"Add":"  *Fixed*"},{"Add":"  ⁃ Info manual directory headers."},{"Add":""},{"Add":""},{"Add":"4.20 0.1.3"},{"Add":"──────────"},{"Add":""},{"Add":"  *Fixed*"},{"Add":""},{"Add":"  ⁃ Temporarily disable sending of read receipts due to an unusual bug"},{"Add":"    that could cause Emacs to become unresponsive.  (The feature will be"},{"Add":"    re-enabled in a future release.)"},{"Add":""},{"Add":""},{"Add":"4.21 0.1.2"},{"Add":"──────────"},{"Add":""},{"Add":"  *Fixed*"},{"Add":"  ⁃ Function `ement-room-sync' correctly updates room-list buffers."},{"Add":"    (Thanks to [Visuwesh].)"},{"Add":"  ⁃ Only send D-Bus notifications when supported.  (Fixes [#83].  Thanks"},{"Add":"    to [Tassilo Horn].)"},{"Add":""},{"Add":""},{"Add":"[Visuwesh] "},{"Add":""},{"Add":"[#83] "},{"Add":""},{"Add":"[Tassilo Horn] "},{"Add":""},{"Add":""},{"Add":"4.22 0.1.1"},{"Add":"──────────"},{"Add":""},{"Add":"  *Fixed*"},{"Add":"  ⁃ Function `ement-room-scroll-up-mark-read' selects the correct room"},{"Add":"    window."},{"Add":"  ⁃ Option `ement-room-list-avatars' defaults to what function"},{"Add":"    `display-images-p' returns."},{"Add":""},{"Add":""},{"Add":"4.23 0.1"},{"Add":"────────"},{"Add":""},{"Add":"  After almost two years of development, the first tagged release."},{"Add":"  Submitted to GNU ELPA."},{"Add":""},{"Add":""},{"Add":"5 Development"},{"Add":"═════════════"},{"Add":""},{"Add":"  Bug reports, feature requests, suggestions — /oh my/!"},{"Add":""},{"Add":""},{"Add":"5.1 Copyright Assignment"},{"Add":"────────────────────────"},{"Add":""},{"Add":"  Ement.el is published in GNU ELPA and is considered part of GNU Emacs."},{"Add":"  Therefore, cumulative contributions of more than 15 lines of code"},{"Add":"  require that the author assign copyright of such contributions to the"},{"Add":"  FSF.  Authors who are interested in doing so may contact"},{"Add":"  [assign@gnu.org] to request the appropriate form."},{"Add":""},{"Add":""},{"Add":"[assign@gnu.org] "},{"Add":""},{"Add":""},{"Add":"5.2 Matrix spec in Org format"},{"Add":"─────────────────────────────"},{"Add":""},{"Add":"  An Org-formatted version of the Matrix spec is available in the"},{"Add":"  [meta/spec] branch."},{"Add":""},{"Add":""},{"Add":"[meta/spec] "},{"Add":""},{"Add":""},{"Add":"6 License"},{"Add":"═════════"},{"Add":""},{"Add":"  GPLv3"}]}},{"FileAdd":{"meta":{"basename":".github","metadata":576},"context":[{"change":0,"pos":483987}],"contents":[]}},{"FileAdd":{"meta":{"basename":"workflows","metadata":576},"context":[{"change":0,"pos":2113781}],"contents":[]}},{"FileAdd":{"meta":{"basename":"test.yml","metadata":0},"context":[{"change":0,"pos":2113802}],"contents":[{"Add":"# * test.yml --- Test Emacs packages using makem.sh on GitHub Actions"},{"Add":""},{"Add":"# URL: https://github.com/alphapapa/makem.sh"},{"Add":"# Version: 0.4.2"},{"Add":""},{"Add":"# * Commentary:"},{"Add":""},{"Add":"# Based on Steve Purcell's examples at"},{"Add":"# ,"},{"Add":"# ."},{"Add":""},{"Add":"# * License:"},{"Add":""},{"Add":"# This program is free software; you can redistribute it and/or modify"},{"Add":"# it under the terms of the GNU General Public License as published by"},{"Add":"# the Free Software Foundation, either version 3 of the License, or"},{"Add":"# (at your option) any later version."},{"Add":""},{"Add":"# This program is distributed in the hope that it will be useful,"},{"Add":"# but WITHOUT ANY WARRANTY; without even the implied warranty of"},{"Add":"# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the"},{"Add":"# GNU General Public License for more details."},{"Add":""},{"Add":"# You should have received a copy of the GNU General Public License"},{"Add":"# along with this program.  If not, see ."},{"Add":""},{"Add":"# * Code:"},{"Add":""},{"Add":"name: \"CI\""},{"Add":"on:"},{"Add":"  pull_request:"},{"Add":"  push:"},{"Add":"    # Comment out this section to enable testing of all branches."},{"Add":"    branches:"},{"Add":"      - master"},{"Add":""},{"Add":"jobs:"},{"Add":"  build:"},{"Add":"    runs-on: ubuntu-latest"},{"Add":"    strategy:"},{"Add":"      fail-fast: false"},{"Add":"      matrix:"},{"Add":"        emacs_version:"},{"Add":"          - 26.3"},{"Add":"          - 27.1"},{"Add":"          - 28.2"},{"Add":"          - snapshot"},{"Add":"    steps:"},{"Add":"    - uses: purcell/setup-emacs@master"},{"Add":"      with:"},{"Add":"        version: ${{ matrix.emacs_version }}"},{"Add":""},{"Add":"    - uses: actions/checkout@v2"},{"Add":""},{"Add":"    - name: Initialize sandbox"},{"Add":"      run: |"},{"Add":"        SANDBOX_DIR=$(mktemp -d) || exit 1"},{"Add":"        echo \"SANDBOX_DIR=$SANDBOX_DIR\" >> $GITHUB_ENV"},{"Add":"        ./makem.sh -vv --sandbox=$SANDBOX_DIR --install-deps --install-linters"},{"Add":""},{"Add":"    # The \"all\" rule is not used, because it treats compilation warnings"},{"Add":"    # as failures, so linting and testing are run as separate steps."},{"Add":""},{"Add":"    - name: Lint"},{"Add":"      # NOTE: Uncomment this line to treat lint failures as passing"},{"Add":"      #       so the job doesn't show failure."},{"Add":"      # continue-on-error: true"},{"Add":"      run: ./makem.sh -vv --sandbox=$SANDBOX_DIR lint"},{"Add":""},{"Add":"    - name: Test"},{"Add":"      if: always()  # Run test even if linting fails."},{"Add":"      run: ./makem.sh -vv --sandbox=$SANDBOX_DIR test"},{"Add":""},{"Add":"# Local Variables:"},{"Add":"# eval: (outline-minor-mode)"},{"Add":"# End:"}]}},{"FileAdd":{"meta":{"basename":".elpaignore","metadata":0},"context":[{"change":0,"pos":483987}],"contents":[{"Add":".github/"},{"Add":"images/"},{"Add":"LICENSE"},{"Add":"Makefile"},{"Add":"makem.sh"},{"Add":"NOTES.org"},{"Add":"screenshots/"}]}},{"FileAdd":{"meta":{"basename":".dir-locals.el","metadata":0},"context":[{"change":0,"pos":483987}],"contents":[{"Add":";;; Directory Local Variables"},{"Add":";;; For more information see (info \"(emacs) Directory Variables\")"},{"Add":""},{"Add":"((emacs-lisp-mode . ((fill-column . 90)"},{"Add":"\t\t     (indent-tabs-mode . nil))))"}]}},{"FileAdd":{"meta":{"basename":"emacs-gc-stats-1.3.signed","metadata":0},"context":[{"change":5,"pos":642063}],"contents":[{"Add":"Good signature from 066DAFCB81E42C40 GNU ELPA Signing Agent (2019)  (trust undefined) created at 2023-06-20T17:05:02-0400 using RSA"}]}},{"FileAdd":{"meta":{"basename":"emacs-gc-stats-1.3","metadata":576},"context":[{"change":5,"pos":642063}],"contents":[]}},{"FileAdd":{"meta":{"basename":"emacs-gc-stats.el","metadata":0},"context":[{"change":0,"pos":2116633}],"contents":[{"Add":";;; emacs-gc-stats.el --- Collect Emacs GC statistics  -*- lexical-binding: t; -*-"},{"Add":""},{"Add":";; Copyright (C) 2023 Free Software Foundation, Inc."},{"Add":""},{"Add":";; Author: Ihor Radchenko "},{"Add":";; Maintainer: Ihor Radchenko "},{"Add":";; URL: https://git.sr.ht/~yantar92/emacs-gc-stats"},{"Add":";; Package-Requires: ((emacs \"25.1\"))"},{"Add":""},{"Add":";; Version: 1.3"},{"Add":""},{"Add":";; This program is free software; you can redistribute it and/or modify"},{"Add":";; it under the terms of the GNU General Public License as published by"},{"Add":";; the Free Software Foundation, either version 3 of the License, or"},{"Add":";; (at your option) any later version."},{"Add":""},{"Add":";; This program is distributed in the hope that it will be useful,"},{"Add":";; but WITHOUT ANY WARRANTY; without even the implied warranty of"},{"Add":";; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the"},{"Add":";; GNU General Public License for more details."},{"Add":""},{"Add":";; You should have received a copy of the GNU General Public License"},{"Add":";; along with this program.  If not, see ."},{"Add":""},{"Add":";;; Commentary:"},{"Add":";;"},{"Add":";; This package collects Emacs garbage statistics over time and saves"},{"Add":";; it in the format that can be shared with Emacs maintainers."},{"Add":";;"},{"Add":";;; Usage:"},{"Add":";;"},{"Add":";; Add"},{"Add":";; (require 'emacs-gc-stats)"},{"Add":";; (emacs-gc-stats-mode +1)"},{"Add":";; to your init file to enable the statistics acquiring."},{"Add":";;"},{"Add":";; When you are ready to share the results, run"},{"Add":";; M-x emacs-gc-stats-save-session"},{"Add":";; and then share the saved `emacs-gc-stats-file'."},{"Add":";;"},{"Add":";; You can use `emacs-gc-stats-clear' to clear the currently collected"},{"Add":";; session data."},{"Add":""},{"Add":";; "},{"Add":";;; Code:"},{"Add":""},{"Add":"(defgroup emacs-gc-stats nil"},{"Add":"  \"Collect and share Emacs GC statistics.\""},{"Add":"  :tag \"GC stats\""},{"Add":"  :group 'development)"},{"Add":""},{"Add":"(defcustom emacs-gc-stats-file (expand-file-name \"emacs-gc-stats.eld\" user-emacs-directory)"},{"Add":"  \"File used to store the statistics across Emacs sessions.\""},{"Add":"  :type 'file)"},{"Add":""},{"Add":"(defcustom emacs-gc-stats-gc-defaults nil"},{"Add":"  \"GC strategy to be active in `emacs-gc-stats-mode'."},{"Add":"This setting, when non-nil, will override the existing values of"},{"Add":"`gc-cons-threshold' and `gc-cons-percentage'.\""},{"Add":"  :type '(choice"},{"Add":"\t  (const :tag \"Do not change existing GC settings\" nil)"},{"Add":"          (const :tag \"Force emacs defaults\" emacs-defaults)))"},{"Add":""},{"Add":"(defcustom emacs-gc-stats-inhibit-command-name-logging nil"},{"Add":"  \"When non-nil, do not collect command names (`this-command').\""},{"Add":"  :type 'boolean"},{"Add":"  :package-version '(emacs-gc-stats . 1.3))"},{"Add":""},{"Add":"(defcustom emacs-gc-stats-remind nil"},{"Add":"  \"When non-nil, remind about submitting the data to Emacs devs."},{"Add":"The value is wither nil (do not remind), t (remind in 3 weeks), or a"},{"Add":"number of days.\""},{"Add":"  :type '(choice"},{"Add":"\t  (const :tag \"No reminder\" nil)"},{"Add":"          (const :tag \"Remind in 3 weeks\" t)"},{"Add":"          (integer :tag \"Remind after N days\"))"},{"Add":"  :package-version '(emacs-gc-stats . 1.3))"},{"Add":""},{"Add":"(defcustom emacs-gc-stats-setting-vars"},{"Add":"  '(gc-cons-threshold"},{"Add":"    gc-cons-percentage"},{"Add":"    memory-limit"},{"Add":"    emacs-version"},{"Add":"    doom-version"},{"Add":"    spacemacs-version"},{"Add":"    prelude-tips"},{"Add":"    (memory-info)"},{"Add":"    (memory-use-counts))"},{"Add":"  \"List of variable/function symbols to collect after loading init.el.\""},{"Add":"  :type '(list sexp)"},{"Add":"  :package-version '(emacs-gc-stats . 1.3))"},{"Add":""},{"Add":"(defcustom emacs-gc-stats-command-vars"},{"Add":"  '(gc-cons-threshold"},{"Add":"    gc-cons-percentage"},{"Add":"    gcmh-mode"},{"Add":"    gc-elapsed"},{"Add":"    gcs-done"},{"Add":"    this-command"},{"Add":"    memory-limit"},{"Add":"    (memory-info)"},{"Add":"    (memory-use-counts)"},{"Add":"    emacs-gc-stats--idle-tic)"},{"Add":"  \"List of variable/function symbols to collect for each GC or command.\""},{"Add":"  :type '(list sexp)"},{"Add":"  :package-version '(emacs-gc-stats . 1.3))"},{"Add":""},{"Add":"(defcustom emacs-gc-stats-summary-vars"},{"Add":"  '(gc-cons-threshold"},{"Add":"    gc-cons-percentage"},{"Add":"    gc-elapsed"},{"Add":"    gcs-done"},{"Add":"    memory-limit"},{"Add":"    (memory-info)"},{"Add":"    emacs-uptime"},{"Add":"    (memory-use-counts)"},{"Add":"    emacs-gc-stats-idle-delay"},{"Add":"    emacs-gc-stats--idle-tic)"},{"Add":"  \"List of variables to collect at session end.\""},{"Add":"  :type '(list sexp)"},{"Add":"  :package-version '(emacs-gc-stats . 1.3))"},{"Add":""},{"Add":"(defun emacs-gc-stats--collect (&rest symbols)"},{"Add":"  \"Collect SYMBOLS values."},{"Add":"If symbol is a variable, collect (symbol . value)."},{"Add":"If symbol is a function name, collect (symbol . (funcall symbol))."},{"Add":"If symbol is a list, collect (symbol . (eval symbol))."},{"Add":"Otherwise, collect symbol.\""},{"Add":"  (let (data)"},{"Add":"    (dolist (var symbols)"},{"Add":"      (pcase var"},{"Add":"        ((pred keywordp) (push var data))"},{"Add":"        ((and (pred symbolp) (pred boundp))"},{"Add":"         (unless (and emacs-gc-stats-inhibit-command-name-logging"},{"Add":"\t\t      (memq var '( this-command real-this-command"},{"Add":"\t\t\t\t   last-command real-last-command)))"},{"Add":"           (push (cons var (symbol-value var)) data)))"},{"Add":"        ((pred functionp)"},{"Add":"         (push (cons var (funcall var)) data))"},{"Add":"        ((pred listp)"},{"Add":"         (push (cons var (eval var)) data))"},{"Add":"        (_ (push var data))))"},{"Add":"    (nreverse data)))"},{"Add":""},{"Add":"(defvar emacs-gc-stats--data nil"},{"Add":"  \"Collected statistics.\")"},{"Add":""},{"Add":"(defun emacs-gc-stats--collect-init ()"},{"Add":"  \"Collect initial stats.\""},{"Add":"  (push"},{"Add":"   (apply #'emacs-gc-stats--collect"},{"Add":"          \"Initial stats\""},{"Add":"          (current-time-string)"},{"Add":"          emacs-gc-stats-setting-vars)"},{"Add":"   emacs-gc-stats--data))"},{"Add":""},{"Add":"(defun emacs-gc-stats--collect-gc ()"},{"Add":"  \"Collect single GC stats.\""},{"Add":"  (push"},{"Add":"   (apply #'emacs-gc-stats--collect"},{"Add":"          (current-time-string)"},{"Add":"          emacs-gc-stats-command-vars)"},{"Add":"   emacs-gc-stats--data))"},{"Add":""},{"Add":"(defun emacs-gc-stats--collect-init-end ()"},{"Add":"  \"Collect init.el stats.\""},{"Add":"  (push"},{"Add":"   (apply #'emacs-gc-stats--collect"},{"Add":"          \"Init.el stats\""},{"Add":"          (current-time-string)"},{"Add":"          emacs-gc-stats-summary-vars)"},{"Add":"   emacs-gc-stats--data))"},{"Add":""},{"Add":"(defun emacs-gc-stats--collect-end ()"},{"Add":"  \"Collect initial stats.\""},{"Add":"  (push"},{"Add":"   (apply #'emacs-gc-stats--collect"},{"Add":"          \"Session end stats\""},{"Add":"          (current-time-string)"},{"Add":"          emacs-gc-stats-summary-vars)"},{"Add":"   emacs-gc-stats--data))"},{"Add":""},{"Add":"(defun emacs-gc-stats--get-repvious-session-data ()"},{"Add":"  \"Return previously saved session data.\""},{"Add":"  (and (file-readable-p emacs-gc-stats-file)"},{"Add":"       (with-temp-buffer"},{"Add":"         (insert-file-contents emacs-gc-stats-file)"},{"Add":"         (ignore-errors (read (current-buffer))))))"},{"Add":""},{"Add":"(defun emacs-gc-stats-save-session ()"},{"Add":"  \"Save stats to disk.\""},{"Add":"  (interactive)"},{"Add":"  (emacs-gc-stats--collect-end)"},{"Add":"  (let ((previous-sessions (emacs-gc-stats--get-repvious-session-data))"},{"Add":"        (session (reverse emacs-gc-stats--data))"},{"Add":"        (write-region-inhibit-fsync t)"},{"Add":"        ;; We set UTF-8 here to avoid the overhead from"},{"Add":"        ;; `find-auto-coding'."},{"Add":"        (coding-system-for-write 'utf-8)"},{"Add":"        print-level"},{"Add":"        print-length"},{"Add":"        print-quoted"},{"Add":"        (print-escape-control-characters t)"},{"Add":"        (print-escape-nonascii t)"},{"Add":"        (print-continuous-numbering t)"},{"Add":"        print-number-table)"},{"Add":"    ;; remove end data in case if we continue recording."},{"Add":"    (pop emacs-gc-stats--data)"},{"Add":"    (with-temp-file emacs-gc-stats-file"},{"Add":"      ;; Override partially saved session."},{"Add":"      (let ((existing (assoc (car session) previous-sessions)))"},{"Add":"        (if existing"},{"Add":"            (setcdr (cdr existing) (cdr session))"},{"Add":"          (push session previous-sessions)))"},{"Add":"      (prin1 previous-sessions (current-buffer)))"},{"Add":"    (when"},{"Add":"\t(and (called-interactively-p 'interactive)"},{"Add":"\t     (yes-or-no-p"},{"Add":"\t      (format \"GC stats saved to \\\"%s\\\".  Send email to emacs-gc-stats@gnu.org? \" emacs-gc-stats-file)))"},{"Add":"      (browse-url \"mailto:emacs-gc-stats@gnu.org\"))"},{"Add":"    (message \"GC stats saved to \\\"%s\\\".  You can share the file by sending email to emacs-gc-stats@gnu.org\" emacs-gc-stats-file)))"},{"Add":""},{"Add":"(defvar emacs-gc-stats-mode) ; defined later"},{"Add":"(defun emacs-gc-stats-clear ()"},{"Add":"  \"Clear GC stats collected so far.\""},{"Add":"  (interactive)"},{"Add":"  (setq emacs-gc-stats--data nil)"},{"Add":"  ;; Restart."},{"Add":"  (when emacs-gc-stats-mode"},{"Add":"    (emacs-gc-stats-mode -1)"},{"Add":"    (emacs-gc-stats-mode +1)))"},{"Add":""},{"Add":"(defvar emacs-gc-stats-idle-delay 300"},{"Add":"  \"Delay in seconds to count idle time.\")"},{"Add":""},{"Add":"(defvar emacs-gc-stats--idle-tic 0"},{"Add":"  \"Idle counter."},{"Add":"Idle time is counted with `emacs-gc-stats-idle-delay' granularity.\")"},{"Add":"(defvar emacs-gc-stats--idle-timer nil"},{"Add":"  \"Time counting idle time.\")"},{"Add":"(defun emacs-gc-stats-idle-tic ()"},{"Add":"  \"Increase idle counter.\""},{"Add":"  (when (and (current-idle-time)"},{"Add":"             (> (time-to-seconds (current-idle-time)) emacs-gc-stats-idle-delay))"},{"Add":"    (cl-incf emacs-gc-stats--idle-tic)))"},{"Add":""},{"Add":"(defvar emacs-gc-stats--gc-old nil"},{"Add":"  \"Alist of variable symbols and values storing original GC settings.\")"},{"Add":""},{"Add":"(defun emacs-gc-stats--set-gc-defaults (&optional restore)"},{"Add":"  \"Set GC settings according to `emacs-gc-stats-gc-defaults'."},{"Add":"Revert original settings when RESTORE is non-nil.\""},{"Add":"  (if restore"},{"Add":"      (dolist (pair emacs-gc-stats--gc-old)"},{"Add":"\t(set (car pair) (cdr pair)))"},{"Add":"    (dolist (var '(gc-cons-threshold gc-cons-percentage))"},{"Add":"      (push (cons (symbol-name var) (symbol-value var))"},{"Add":"\t    emacs-gc-stats--gc-old))"},{"Add":"    (pcase emacs-gc-stats-gc-defaults"},{"Add":"      (`nil nil)"},{"Add":"      (`emacs-defaults"},{"Add":"       (setq gc-cons-threshold 800000"},{"Add":"\t     gc-cons-percentage 0.1))"},{"Add":"      (other (error \"Unknown value of `emacs-gc-stats-gc-defaults': %S\" other)))))"},{"Add":""},{"Add":"(defun emacs-gc-stats--remind-maybe ()"},{"Add":"  \"Show a reminder according to `emacs-gc-stats-remind'.\""},{"Add":"  (require 'notifications)"},{"Add":"  (when emacs-gc-stats-remind"},{"Add":"    (when-let* ((days-threshold (if (numberp emacs-gc-stats-remind)"},{"Add":"\t\t\t\t    emacs-gc-stats-remind 21))"},{"Add":"\t\t(first-session (or (car (last (emacs-gc-stats--get-repvious-session-data)))"},{"Add":"\t\t\t\t   (reverse emacs-gc-stats--data)))"},{"Add":"\t\t(first-record (car first-session))"},{"Add":"                (first-date-string"},{"Add":"                 (if (equal \"Initial stats\" (car first-record))"},{"Add":"                     (cadr first-record) (car first-record)))"},{"Add":"                (first-time (parse-time-string first-date-string))"},{"Add":"                (days-passed (time-to-number-of-days"},{"Add":"\t\t\t      (time-subtract (current-time)"},{"Add":"\t\t\t\t\t     (encode-time first-time)))))"},{"Add":"      (when (> days-passed days-threshold)"},{"Add":"        (notifications-notify"},{"Add":"         :title \"emacs-gc-stats reminder\""},{"Add":"         :body"},{"Add":"         (format"},{"Add":"          \"%.1f days have passed since first record."},{"Add":"Consider M-x emacs-gc-stats-save-session or reporting back to emacs-gc-stats@gnu.org\""},{"Add":"\t  days-passed))"},{"Add":"        (warn"},{"Add":"         \"emacs-gc-stats: %.1f days have passed since first record."},{"Add":"Consider M-x emacs-gc-stats-save-session or reporting back to emacs-gc-stats@gnu.org\""},{"Add":"\t days-passed)))))"},{"Add":""},{"Add":";;;###autoload"},{"Add":"(define-minor-mode emacs-gc-stats-mode"},{"Add":"  \"Toggle collecting Emacs GC statistics.\""},{"Add":"  :global t"},{"Add":"  (if emacs-gc-stats-mode"},{"Add":"      (progn"},{"Add":"\t(emacs-gc-stats--set-gc-defaults)"},{"Add":"        (add-hook 'after-init-hook #'emacs-gc-stats--set-gc-defaults)"},{"Add":"        (add-hook 'after-init-hook #'emacs-gc-stats--remind-maybe)"},{"Add":"        (add-hook 'kill-emacs-hook #'emacs-gc-stats--remind-maybe)"},{"Add":"        (unless emacs-gc-stats--data"},{"Add":"          (emacs-gc-stats--collect-init))"},{"Add":"        ;; 5 minutes counter."},{"Add":"        (setq emacs-gc-stats--idle-timer"},{"Add":"              (run-with-timer"},{"Add":"               emacs-gc-stats-idle-delay"},{"Add":"               emacs-gc-stats-idle-delay"},{"Add":"               #'emacs-gc-stats-idle-tic))"},{"Add":"        (add-hook 'post-gc-hook #'emacs-gc-stats--collect-gc)"},{"Add":"        (add-hook 'after-init-hook #'emacs-gc-stats--collect-init-end)"},{"Add":"        (add-hook 'kill-emacs-hook #'emacs-gc-stats-save-session))"},{"Add":"    (remove-hook 'after-init-hook #'emacs-gc-stats--set-gc-defaults)"},{"Add":"    (remove-hook 'after-init-hook #'emacs-gc-stats--remind-maybe)"},{"Add":"    (remove-hook 'kill-emacs-hook #'emacs-gc-stats--remind-maybe)"},{"Add":"    (emacs-gc-stats--set-gc-defaults 'restore)"},{"Add":"    (when (timerp emacs-gc-stats--idle-timer)"},{"Add":"      (cancel-timer emacs-gc-stats--idle-timer))"},{"Add":"    (remove-hook 'post-gc-hook #'emacs-gc-stats--collect-gc)"},{"Add":"    (remove-hook 'after-init-hook #'emacs-gc-stats--collect-init-end)"},{"Add":"    (remove-hook 'kill-emacs-hook #'emacs-gc-stats-save-session)))"},{"Add":""},{"Add":"(provide 'emacs-gc-stats)"},{"Add":";;; emacs-gc-stats.el ends here"}]}},{"FileAdd":{"meta":{"basename":"emacs-gc-stats-pkg.el","metadata":0},"context":[{"change":0,"pos":2116633}],"contents":[{"Add":";; Generated package description from emacs-gc-stats.el  -*- no-byte-compile: t -*-"},{"Add":"(define-package \"emacs-gc-stats\" \"1.3\" \"Collect Emacs GC statistics\" '((emacs \"25.1\")) :commit \"f17fd30098c284a11feb06d505308d1f85ba2c55\" :authors '((\"Ihor Radchenko\" . \"yantar92@posteo.net\")) :maintainer '(\"Ihor Radchenko\" . \"yantar92@posteo.net\") :url \"https://git.sr.ht/~yantar92/emacs-gc-stats\")"}]}},{"FileAdd":{"meta":{"basename":"emacs-gc-stats-autoloads.el","metadata":0},"context":[{"change":0,"pos":2116633}],"contents":[{"Add":";;; emacs-gc-stats-autoloads.el --- automatically extracted autoloads  -*- lexical-binding: t -*-"},{"Add":";;"},{"Add":";;; Code:"},{"Add":""},{"Add":"(add-to-list 'load-path (directory-file-name"},{"Add":"                         (or (file-name-directory #$) (car load-path))))"},{"Add":""},{"Add":"\f"},{"Add":";;;### (autoloads nil \"emacs-gc-stats\" \"emacs-gc-stats.el\" (0 0 0"},{"Add":";;;;;;  0))"},{"Add":";;; Generated autoloads from emacs-gc-stats.el"},{"Add":""},{"Add":"(defvar emacs-gc-stats-mode nil \"\\"},{"Add":"Non-nil if Emacs-Gc-Stats mode is enabled."},{"Add":"See the `emacs-gc-stats-mode' command"},{"Add":"for a description of this minor mode."},{"Add":"Setting this variable directly does not take effect;"},{"Add":"either customize it (see the info node `Easy Customization')"},{"Add":"or call the function `emacs-gc-stats-mode'.\")"},{"Add":""},{"Add":"(custom-autoload 'emacs-gc-stats-mode \"emacs-gc-stats\" nil)"},{"Add":""},{"Add":"(autoload 'emacs-gc-stats-mode \"emacs-gc-stats\" \"\\"},{"Add":"Toggle collecting Emacs GC statistics."},{"Add":""},{"Add":"This is a minor mode.  If called interactively, toggle the"},{"Add":"`Emacs-Gc-Stats mode' mode.  If the prefix argument is positive,"},{"Add":"enable the mode, and if it is zero or negative, disable the mode."},{"Add":""},{"Add":"If called from Lisp, toggle the mode if ARG is `toggle'.  Enable"},{"Add":"the mode if ARG is nil, omitted, or is a positive number."},{"Add":"Disable the mode if ARG is a negative number."},{"Add":""},{"Add":"To check whether the minor mode is enabled in the current buffer,"},{"Add":"evaluate `(default-value \\\\='emacs-gc-stats-mode)'."},{"Add":""},{"Add":"The mode's hook is called both when the mode is enabled and when"},{"Add":"it is disabled."},{"Add":""},{"Add":"\\(fn &optional ARG)\" t nil)"},{"Add":""},{"Add":"(register-definition-prefixes \"emacs-gc-stats\" '(\"emacs-gc-stats-\"))"},{"Add":""},{"Add":";;;***"},{"Add":"\f"},{"Add":";;;### (autoloads nil nil (\"emacs-gc-stats-pkg.el\") (0 0 0 0))"},{"Add":""},{"Add":";;;***"},{"Add":"\f"},{"Add":";; Local Variables:"},{"Add":";; version-control: never"},{"Add":";; no-byte-compile: t"},{"Add":";; no-update-autoloads: t"},{"Add":";; coding: utf-8"},{"Add":";; End:"},{"Add":";;; emacs-gc-stats-autoloads.el ends here"}]}},{"FileAdd":{"meta":{"basename":"README.org","metadata":0},"context":[{"change":0,"pos":2116633}],"contents":[{"Add":"# -*- after-save-hook: (org-md-export-to-markdown); -*-"},{"Add":"#+options: toc:nil"},{"Add":""},{"Add":"This package collects Emacs garbage collection (GC) statistics over"},{"Add":"time and saves it in the format that can be shared with Emacs"},{"Add":"maintainers."},{"Add":""},{"Add":"Context:"},{"Add":"- https://yhetil.org/emacs-devel/20230310110747.4hytasakomvdyf7i@Ergus/"},{"Add":"- https://yhetil.org/emacs-devel/87v8j6t3i9.fsf@localhost/"},{"Add":""},{"Add":"See the source code for information how to contact the author."},{"Add":""},{"Add":"* Usage"},{"Add":""},{"Add":"Add"},{"Add":"#+begin_src emacs-lisp"},{"Add":"(require 'emacs-gc-stats)"},{"Add":";; Optionally reset Emacs GC settings to default values (recommended)"},{"Add":"(setq emacs-gc-stats-gc-defaults 'emacs-defaults)"},{"Add":";; Optionally set reminder to upload the stats after 3 weeks."},{"Add":"(setq emacs-gc-stats-remind t) ; can also be a number of days"},{"Add":";; Optionally disable logging the command names"},{"Add":";; (setq emacs-gc-stats-inhibit-command-name-logging t)"},{"Add":"(emacs-gc-stats-mode +1)"},{"Add":"#+end_src"},{"Add":"to your init file to enable the statistics acquiring."},{"Add":""},{"Add":"When you are ready to share the results, run =M-x emacs-gc-stats-save-session="},{"Add":"and then share the saved ~emacs-gc-stats-file~ (defaults to"},{"Add":"=~/.emacs.d/emacs-gc-stats.eld=) by sending an email attachment to"},{"Add":"mailto:emacs-gc-stats@gnu.org. You can review the file before"},{"Add":"sharing--it is a text file."},{"Add":""},{"Add":"Configure ~emacs-gc-stats-remind~ to make Emacs display a reminder about"},{"Add":"sharing the results."},{"Add":""},{"Add":"* Security considerations"},{"Add":""},{"Add":"This package *does not* upload anything automatically.  You will need to"},{"Add":"upload the data manually, by sending email attachment.  If necessary,"},{"Add":"you can review ~emacs-gc-stats-file~ (defaults to"},{"Add":"=~/.emacs.d/emacs-gc-stats.eld=) before uploading--it is just a text"},{"Add":"file."},{"Add":""},{"Add":"The following data is being collected after every command:"},{"Add":"- GC settings ~gc-cons-threshold~ and ~gc-cons-percentage~"},{"Add":"- Emacs version and whether Emacs framework (Doom, Prelude, etc) is used"},{"Add":"- Whether ~gcmh-mode~ is used"},{"Add":"- Idle time and Emacs uptime"},{"Add":"- Available OS memory (see ~memory-info~)"},{"Add":"- Emacs memory allocation/GC stats"},{"Add":"- Current command name (potentially sensitive data, can be disabled)"},{"Add":"- Timestamp when every GC is finished"},{"Add":""},{"Add":"Logging the command names can be disabled by setting"},{"Add":"~emacs-gc-stats-inhibit-command-name-logging~ customization."},{"Add":""},{"Add":"What exactly is being logger is controlled by"},{"Add":"~emacs-gc-stats-setting-vars~, ~emacs-gc-stats-command-vars~, and"},{"Add":"~emacs-gc-stats-summary-vars~."},{"Add":""},{"Add":"You can use =M-x emacs-gc-stats-clear= to clear the currently collected"},{"Add":"session data."},{"Add":""},{"Add":"You can pause the logging any time by disabling ~emacs-gc-stats-mode~"},{"Add":"(=M-x emacs-gc-stats-mode=)."},{"Add":""},{"Add":"* News"},{"Add":""},{"Add":"** Version 1.3"},{"Add":""},{"Add":"- New customization: ~emacs-gc-stats-inhibit-command-name-logging~ to"},{"Add":"  disable logging current command name.  Logging is enabled by default."},{"Add":""},{"Add":"- New customization: ~emacs-gc-stats-remind~ to set a reminder to share"},{"Add":"  the data.  Reminder is disabled by default."},{"Add":""},{"Add":"- The data being collected is can now be customized using"},{"Add":"  ~emacs-gc-stats-setting-vars~, ~emacs-gc-stats-command-vars~, and"},{"Add":"  ~emacs-gc-stats-summary-vars~."}]}},{"FileAdd":{"meta":{"basename":"README-elpa","metadata":0},"context":[{"change":0,"pos":2116633}],"contents":[{"Add":"This package collects Emacs garbage collection (GC) statistics over time"},{"Add":"and saves it in the format that can be shared with Emacs maintainers."},{"Add":""},{"Add":"Context:"},{"Add":"• "},{"Add":"• "},{"Add":""},{"Add":"See the source code for information how to contact the author."},{"Add":""},{"Add":""},{"Add":"1 Usage"},{"Add":"═══════"},{"Add":""},{"Add":"  Add"},{"Add":"  ┌────"},{"Add":"  │ (require 'emacs-gc-stats)"},{"Add":"  │ ;; Optionally reset Emacs GC settings to default values (recommended)"},{"Add":"  │ (setq emacs-gc-stats-gc-defaults 'emacs-defaults)"},{"Add":"  │ ;; Optionally set reminder to upload the stats after 3 weeks."},{"Add":"  │ (setq emacs-gc-stats-remind t) ; can also be a number of days"},{"Add":"  │ ;; Optionally disable logging the command names"},{"Add":"  │ ;; (setq emacs-gc-stats-inhibit-command-name-logging t)"},{"Add":"  │ (emacs-gc-stats-mode +1)"},{"Add":"  └────"},{"Add":"  to your init file to enable the statistics acquiring."},{"Add":""},{"Add":"  When you are ready to share the results, run `M-x"},{"Add":"  emacs-gc-stats-save-session' and then share the saved"},{"Add":"  `emacs-gc-stats-file' (defaults to `~/.emacs.d/emacs-gc-stats.eld') by"},{"Add":"  sending an email attachment to . You"},{"Add":"  can review the file before sharing–it is a text file."},{"Add":""},{"Add":"  Configure `emacs-gc-stats-remind' to make Emacs display a reminder"},{"Add":"  about sharing the results."},{"Add":""},{"Add":""},{"Add":"2 Security considerations"},{"Add":"═════════════════════════"},{"Add":""},{"Add":"  This package *does not* upload anything automatically.  You will need"},{"Add":"  to upload the data manually, by sending email attachment.  If"},{"Add":"  necessary, you can review `emacs-gc-stats-file' (defaults to"},{"Add":"  `~/.emacs.d/emacs-gc-stats.eld') before uploading–it is just a text"},{"Add":"  file."},{"Add":""},{"Add":"  The following data is being collected after every command:"},{"Add":"  • GC settings `gc-cons-threshold' and `gc-cons-percentage'"},{"Add":"  • Emacs version and whether Emacs framework (Doom, Prelude, etc) is"},{"Add":"    used"},{"Add":"  • Whether `gcmh-mode' is used"},{"Add":"  • Idle time and Emacs uptime"},{"Add":"  • Available OS memory (see `memory-info')"},{"Add":"  • Emacs memory allocation/GC stats"},{"Add":"  • Current command name (potentially sensitive data, can be disabled)"},{"Add":"  • Timestamp when every GC is finished"},{"Add":""},{"Add":"  Logging the command names can be disabled by setting"},{"Add":"  `emacs-gc-stats-inhibit-command-name-logging' customization."},{"Add":""},{"Add":"  What exactly is being logger is controlled by"},{"Add":"  `emacs-gc-stats-setting-vars', `emacs-gc-stats-command-vars', and"},{"Add":"  `emacs-gc-stats-summary-vars'."},{"Add":""},{"Add":"  You can use `M-x emacs-gc-stats-clear' to clear the currently"},{"Add":"  collected session data."},{"Add":""},{"Add":"  You can pause the logging any time by disabling `emacs-gc-stats-mode'"},{"Add":"  (`M-x emacs-gc-stats-mode')."},{"Add":""},{"Add":""},{"Add":"3 News"},{"Add":"══════"},{"Add":""},{"Add":"3.1 Version 1.3"},{"Add":"───────────────"},{"Add":""},{"Add":"  • New customization: `emacs-gc-stats-inhibit-command-name-logging' to"},{"Add":"    disable logging current command name.  Logging is enabled by"},{"Add":"    default."},{"Add":""},{"Add":"  • New customization: `emacs-gc-stats-remind' to set a reminder to"},{"Add":"    share the data.  Reminder is disabled by default."},{"Add":""},{"Add":"  • The data being collected is can now be customized using"},{"Add":"    `emacs-gc-stats-setting-vars', `emacs-gc-stats-command-vars', and"},{"Add":"    `emacs-gc-stats-summary-vars'."}]}},{"FileAdd":{"meta":{"basename":".elpaignore","metadata":0},"context":[{"change":0,"pos":2116633}],"contents":[{"Add":"README.md"}]}},{"FileAdd":{"meta":{"basename":"caml-20230129.1145","metadata":576},"context":[{"change":5,"pos":642063}],"contents":[]}},{"FileAdd":{"meta":{"basename":"inf-caml.el","metadata":0},"context":[{"change":0,"pos":2136691}],"contents":[{"Add":";****************************************** -*- lexical-binding: t; -*- ***"},{"Add":";*                                                                        *"},{"Add":";*                                 OCaml                                  *"},{"Add":";*                                                                        *"},{"Add":";*                    Xavier Leroy and Jacques Garrigue                   *"},{"Add":";*                                                                        *"},{"Add":";*   Copyright 1997 Institut National de Recherche en Informatique et     *"},{"Add":";*     en Automatique.                                                    *"},{"Add":";*                                                                        *"},{"Add":";*   All rights reserved.  This file is distributed under the terms of    *"},{"Add":";*   the GNU General Public License.                                      *"},{"Add":";*                                                                        *"},{"Add":";**************************************************************************"},{"Add":""},{"Add":";;; inf-caml.el --- run the OCaml toplevel in an Emacs buffer"},{"Add":""},{"Add":";; Xavier Leroy, july 1993."},{"Add":""},{"Add":";; modified by Jacques Garrigue, july 1997."},{"Add":""},{"Add":"(require 'comint)"},{"Add":"(require 'caml)"},{"Add":""},{"Add":";; User modifiable variables"},{"Add":""},{"Add":";; Whether you want the output buffer to be displayed when you send a phrase"},{"Add":""},{"Add":"(defvar caml-display-when-eval t"},{"Add":"  \"*If true, display the inferior caml buffer when evaluating expressions.\")"},{"Add":""},{"Add":""},{"Add":";; End of User modifiable variables"},{"Add":""},{"Add":""},{"Add":"(defvar inferior-caml-mode-map"},{"Add":"  (let ((map (make-sparse-keymap)))"},{"Add":"    (set-keymap-parent map comint-mode-map)"},{"Add":"    map))"},{"Add":""},{"Add":";; Augment Caml mode, so you can process OCaml code in the source files."},{"Add":""},{"Add":"(defvar inferior-caml-program \"ocaml\""},{"Add":"  \"*Program name for invoking an inferior OCaml from Emacs.\")"},{"Add":""},{"Add":"(define-derived-mode inferior-caml-mode comint-mode \"Inferior-Caml\""},{"Add":"  \"Major mode for interacting with an inferior OCaml process."},{"Add":"Runs an OCaml toplevel as a subprocess of Emacs, with I/O through an"},{"Add":"Emacs buffer. A history of input phrases is maintained. Phrases can"},{"Add":"be sent from another buffer in Caml mode.\""},{"Add":"  (setq comint-prompt-regexp \"^# ?\")"},{"Add":"  (make-local-variable 'paragraph-start)"},{"Add":"  (setq paragraph-start (concat \"^$\\\\|\" page-delimiter))"},{"Add":"  (make-local-variable 'paragraph-separate)"},{"Add":"  (setq paragraph-separate paragraph-start)"},{"Add":"  (make-local-variable 'paragraph-ignore-fill-prefix)"},{"Add":"  (setq paragraph-ignore-fill-prefix t)"},{"Add":"  (make-local-variable 'require-final-newline)"},{"Add":"  (setq require-final-newline t)"},{"Add":"  (make-local-variable 'comment-start)"},{"Add":"  (setq comment-start \"(*\")"},{"Add":"  (make-local-variable 'comment-end)"},{"Add":"  (setq comment-end \"*)\")"},{"Add":"  (make-local-variable 'comment-column)"},{"Add":"  (setq comment-column 40)"},{"Add":"  (make-local-variable 'comment-start-skip)"},{"Add":"  (setq comment-start-skip \"(\\\\*+ *\")"},{"Add":"  (make-local-variable 'parse-sexp-ignore-comments)"},{"Add":"  (setq parse-sexp-ignore-comments nil)"},{"Add":"  ;; Hook names should end in `-hook', not `-hooks'!"},{"Add":"  (run-hooks 'inferior-caml-mode-hooks))"},{"Add":""},{"Add":"(make-obsolete-variable 'inferior-caml-mode-hooks"},{"Add":"                        'inferior-caml-mode-hook \"Jan 2021\")"},{"Add":""},{"Add":"(defconst inferior-caml-buffer-subname \"inferior-caml\")"},{"Add":"(defconst inferior-caml-buffer-name"},{"Add":"  (concat \"*\" inferior-caml-buffer-subname \"*\"))"},{"Add":""},{"Add":";; for compatibility with xemacs"},{"Add":""},{"Add":"(defun caml-sit-for (second &optional mili redisplay)"},{"Add":"  (sit-for (if mili (+ second (* mili 0.001)) second) redisplay))"},{"Add":""},{"Add":";; To show result of evaluation at toplevel"},{"Add":""},{"Add":"(defvar inferior-caml-output nil)"},{"Add":"(defun inferior-caml-signal-output (s)"},{"Add":"  (if (string-match \"[^ ]\" s) (setq inferior-caml-output t)))"},{"Add":""},{"Add":"(defun inferior-caml-mode-output-hook ()"},{"Add":"  (set-variable 'comint-output-filter-functions"},{"Add":"        (list (function inferior-caml-signal-output))"},{"Add":"        t))"},{"Add":";; FIXME: Why not put that directly in the major mode function?"},{"Add":"(add-hook 'inferior-caml-mode-hook #'inferior-caml-mode-output-hook)"},{"Add":""},{"Add":";; To launch ocaml whenever needed"},{"Add":""},{"Add":"(defun caml-run-process-if-needed (&optional cmd)"},{"Add":"  (if (comint-check-proc inferior-caml-buffer-name) nil"},{"Add":"    (if (not cmd)"},{"Add":"        (if (comint-check-proc inferior-caml-buffer-name)"},{"Add":"            (setq cmd inferior-caml-program)"},{"Add":"          (setq cmd (read-from-minibuffer \"OCaml toplevel to run: \""},{"Add":"                                          inferior-caml-program))))"},{"Add":"    (setq inferior-caml-program cmd)"},{"Add":"    (let ((cmdlist (inferior-caml-args-to-list cmd))"},{"Add":"          (process-connection-type nil))"},{"Add":"      (set-buffer (apply (function make-comint)"},{"Add":"                         inferior-caml-buffer-subname"},{"Add":"                         (car cmdlist) nil (cdr cmdlist)))"},{"Add":"      (inferior-caml-mode)"},{"Add":"      (display-buffer inferior-caml-buffer-name)"},{"Add":"      t)"},{"Add":"    (setq caml-shell-active t)"},{"Add":"    ))"},{"Add":""},{"Add":";; patched to from original run-caml sharing code with"},{"Add":";;  caml-run-process-when-needed"},{"Add":""},{"Add":"(defun run-caml (&optional cmd)"},{"Add":"  \"Run an inferior OCaml process."},{"Add":"Input and output via buffer `*inferior-caml*'.\""},{"Add":"  (interactive"},{"Add":"   (list (if (not (comint-check-proc inferior-caml-buffer-name))"},{"Add":"             (read-from-minibuffer \"OCaml toplevel to run: \""},{"Add":"                                   inferior-caml-program))))"},{"Add":"  (caml-run-process-if-needed cmd)"},{"Add":"  (switch-to-buffer-other-window inferior-caml-buffer-name))"},{"Add":""},{"Add":""},{"Add":"(defun inferior-caml-args-to-list (string)"},{"Add":"  (let ((where (string-match \"[ \\t]\" string)))"},{"Add":"    (cond ((null where) (list string))"},{"Add":"          ((not (= where 0))"},{"Add":"           (cons (substring string 0 where)"},{"Add":"                 (inferior-caml-args-to-list (substring string (+ 1 where)"},{"Add":"                                                        (length string)))))"},{"Add":"          (t (let ((pos (string-match \"[^ \\t]\" string)))"},{"Add":"               (if (null pos)"},{"Add":"                   nil"},{"Add":"                 (inferior-caml-args-to-list (substring string pos"},{"Add":"                                                        (length string)))))))))"},{"Add":""},{"Add":"(defun inferior-caml-show-subshell ()"},{"Add":"  (interactive)"},{"Add":"  (caml-run-process-if-needed)"},{"Add":"  (display-buffer inferior-caml-buffer-name)"},{"Add":"  ; Added by Didier to move the point of inferior-caml to end of buffer"},{"Add":"  (let (;; (buf (current-buffer))"},{"Add":"        ;; (caml-buf  (get-buffer inferior-caml-buffer-name))"},{"Add":"        (count 0))"},{"Add":"    (while"},{"Add":"        (and (< count 10)"},{"Add":"             (not (equal (buffer-name (current-buffer))"},{"Add":"                         inferior-caml-buffer-name)))"},{"Add":"      (next-multiframe-window)"},{"Add":"      (setq count (+ count 1)))"},{"Add":"    (if  (equal (buffer-name (current-buffer))"},{"Add":"                inferior-caml-buffer-name)"},{"Add":"        (goto-char (point-max)))"},{"Add":"    (while"},{"Add":"        (> count 0)"},{"Add":"      (previous-multiframe-window)"},{"Add":"      (setq count (- count 1)))"},{"Add":"    )"},{"Add":")"},{"Add":""},{"Add":";; patched by Didier to move cursor after evaluation"},{"Add":""},{"Add":"(defun inferior-caml-eval-region (start end)"},{"Add":"  \"Send the current region to the inferior OCaml process.\""},{"Add":"  (interactive \"r\")"},{"Add":"  (save-excursion (caml-run-process-if-needed))"},{"Add":"  (save-excursion"},{"Add":"    (goto-char end)"},{"Add":"    (caml-skip-comments-backward)"},{"Add":"    (comint-send-region inferior-caml-buffer-name start (point))"},{"Add":"    ;; normally, \";;\" are part of the region"},{"Add":"    (if (and (>= (point) 2)"},{"Add":"             (prog2 (backward-char 2) (looking-at \";;\")))"},{"Add":"        (comint-send-string inferior-caml-buffer-name \"\\n\")"},{"Add":"      (comint-send-string inferior-caml-buffer-name \";;\\n\"))"},{"Add":"    ;; the user may not want to see the output buffer"},{"Add":"    (if caml-display-when-eval"},{"Add":"        (display-buffer inferior-caml-buffer-name t))))"},{"Add":""},{"Add":";; jump to errors produced by ocaml compiler"},{"Add":""},{"Add":"(defun inferior-caml-goto-error (start _end)"},{"Add":"  \"Jump to the location of the last error as indicated by inferior toplevel.\""},{"Add":"  (interactive \"r\")"},{"Add":"  (let ((loc (+ start"},{"Add":"                (with-current-buffer (get-buffer inferior-caml-buffer-name)"},{"Add":"                  (re-search-backward"},{"Add":"                   (concat comint-prompt-regexp"},{"Add":"                           \"[ \\t]*Characters[ \\t]+\\\\([0-9]+\\\\)-[0-9]+:$\"))"},{"Add":"                  (string-to-number (match-string 1))))))"},{"Add":"    (goto-char loc)))"},{"Add":""},{"Add":""},{"Add":";;; original inf-caml.el ended here"},{"Add":""},{"Add":";; as eval-phrase, but ignores errors."},{"Add":""},{"Add":"(defun inferior-caml-just-eval-phrase (arg &optional min max)"},{"Add":"  \"Send the phrase containing the point to the CAML process."},{"Add":"With prefix-arg send as many phrases as its numeric value,"},{"Add":"ignoring possible errors during evaluation."},{"Add":""},{"Add":"Optional arguments min max defines a region within which the phrase"},{"Add":"should lies.\""},{"Add":"  (interactive \"p\")"},{"Add":"  (let ((beg))"},{"Add":"    (while (> arg 0)"},{"Add":"      (setq arg (- arg 1))"},{"Add":"      (setq beg  (caml-find-phrase min max))"},{"Add":"      (caml-eval-region beg (point)))"},{"Add":"    beg))"},{"Add":""},{"Add":"(defvar caml-previous-output nil"},{"Add":"  \"Tells the beginning of output in the shell-output buffer, so that the"},{"Add":"output can be retrieved later, asynchronously.\")"},{"Add":""},{"Add":";; enriched version of eval-phrase, to report errors."},{"Add":""},{"Add":"(defun inferior-caml-eval-phrase (arg &optional min max)"},{"Add":"  \"Send the phrase containing the point to the CAML process."},{"Add":"With prefix-arg send as many phrases as its numeric value,"},{"Add":"If an error occurs during evaluation, stop at this phrase and"},{"Add":"report the error."},{"Add":""},{"Add":"Return nil if noerror and position of error if any."},{"Add":""},{"Add":"If arg's numeric value is zero or negative, evaluate the current phrase"},{"Add":"or as many as prefix arg, ignoring evaluation errors."},{"Add":"This allows to jump other erroneous phrases."},{"Add":""},{"Add":"Optional arguments min max defines a region within which the phrase"},{"Add":"should lies.\""},{"Add":"  (interactive \"p\")"},{"Add":"  (if (save-excursion (caml-run-process-if-needed))"},{"Add":"      (progn"},{"Add":"        (setq inferior-caml-output nil)"},{"Add":"        (caml-wait-output 10 1)))"},{"Add":"  (if (< arg 1) (inferior-caml-just-eval-phrase (max 1 (- 0 arg)) min max)"},{"Add":"    (let ((proc (get-buffer-process inferior-caml-buffer-name))"},{"Add":"          (buf (current-buffer))"},{"Add":"          previous-output orig beg end err)"},{"Add":"      (save-window-excursion"},{"Add":"        (while (and (> arg 0) (not err))"},{"Add":"          (setq previous-output (marker-position (process-mark proc)))"},{"Add":"          (setq caml-previous-output previous-output)"},{"Add":"          (setq inferior-caml-output nil)"},{"Add":"          (setq orig (inferior-caml-just-eval-phrase 1 min max))"},{"Add":"          (caml-wait-output)"},{"Add":"          (switch-to-buffer inferior-caml-buffer-name  nil)"},{"Add":"          (goto-char previous-output)"},{"Add":"          (cond ((re-search-forward"},{"Add":"                  \" *Characters \\\\([01-9][01-9]*\\\\)-\\\\([1-9][01-9]*\\\\):\\n[^W]\""},{"Add":"                  (point-max) t)"},{"Add":"                 (setq beg (string-to-number (caml-match-string 1)))"},{"Add":"                 (setq end (string-to-number (caml-match-string 2)))"},{"Add":"                 (switch-to-buffer buf)"},{"Add":"                 (goto-char orig)"},{"Add":"                 (forward-char end)"},{"Add":"                 (setq end (point))"},{"Add":"                 (goto-char orig)"},{"Add":"                 (forward-char beg)"},{"Add":"                 (setq beg (point))"},{"Add":"                 (setq err beg)"},{"Add":"                 )"},{"Add":"                ((looking-at"},{"Add":"                  \"Toplevel input:\\n[>]\\\\([^\\n]*\\\\)\\n[>]\\\\(\\\\( *\\\\)^*\\\\)\\n\")"},{"Add":"                 (let ((expr (caml-match-string 1))"},{"Add":"                       (column (-   (match-end 3) (match-beginning 3)))"},{"Add":"                       (width (-   (match-end 2) (match-end 3))))"},{"Add":"                   (if (string-match  \"^\\\\(.*\\\\)[<]EOF[>]$\" expr)"},{"Add":"                       (setq expr (substring expr (match-beginning 1)"},{"Add":"                                             (match-end 1))))"},{"Add":"                   (switch-to-buffer buf)"},{"Add":"                   (re-search-backward"},{"Add":"                    (concat \"^\" (regexp-quote expr) \"$\")"},{"Add":"                    (- orig 10))"},{"Add":"                   (goto-char (+ (match-beginning 0) column))"},{"Add":"                   (setq end (+ (point) width)))"},{"Add":"                 (setq err beg))"},{"Add":"                ((looking-at"},{"Add":"                  \"Toplevel input:\\n>[.]*\\\\([^.].*\\n\\\\)\\\\([>].*\\n\\\\)*[>]\\\\(.*[^.]\\\\)[.]*\\n\")"},{"Add":"                 (let* ((e1 (caml-match-string 1))"},{"Add":"                        (e2 (caml-match-string 3))"},{"Add":"                        (expr"},{"Add":"                         (concat"},{"Add":"                          (regexp-quote e1) \"\\\\(.*\\n\\\\)*\" (regexp-quote e2))))"},{"Add":"                   (switch-to-buffer buf)"},{"Add":"                   (re-search-backward expr orig 'move)"},{"Add":"                   (setq end (match-end 0)))"},{"Add":"                 (setq err beg))"},{"Add":"                (t"},{"Add":"                 (switch-to-buffer buf)))"},{"Add":"          (setq arg (- arg 1))"},{"Add":"          )"},{"Add":"        (pop-to-buffer inferior-caml-buffer-name)"},{"Add":"        (if err"},{"Add":"            (goto-char (point-max))"},{"Add":"          (goto-char previous-output)"},{"Add":"          (goto-char (point-max)))"},{"Add":"        (pop-to-buffer buf))"},{"Add":"      (if err (progn (beep) (caml-overlay-region (point) end))"},{"Add":"        (if inferior-caml-output"},{"Add":"            (message \"No error\")"},{"Add":"          (message \"No output yet...\")"},{"Add":"          ))"},{"Add":"      err)))"},{"Add":""},{"Add":"(defun caml-overlay-region (beg end &optional wait)"},{"Add":"  (interactive \"%r\")"},{"Add":"  (cond ((fboundp 'make-overlay)"},{"Add":"         (if caml-error-overlay ()"},{"Add":"           (setq caml-error-overlay (make-overlay 1 1))"},{"Add":"           (overlay-put caml-error-overlay 'face 'region))"},{"Add":"         (unwind-protect"},{"Add":"             (progn"},{"Add":"               (move-overlay caml-error-overlay beg end (current-buffer))"},{"Add":"               (beep) (if wait (read-event) (caml-sit-for 60)))"},{"Add":"           (delete-overlay caml-error-overlay)))))"},{"Add":""},{"Add":";; wait some amount for output, that is, until inferior-caml-output is set"},{"Add":";; to true. Hence, interleaves sitting for shorts delays and checking the"},{"Add":";; flag. Give up after some time. Typing into the source buffer will cancel"},{"Add":";; waiting, i.e. may report 'No result yet'"},{"Add":""},{"Add":"(defun caml-wait-output (&optional before after)"},{"Add":"  (caml-sit-for 0 (or before 1))"},{"Add":"  (let ((c 1))"},{"Add":"    (while (and (not inferior-caml-output) (< c 99) (caml-sit-for 0 c t))"},{"Add":"      (setq c (+ c 1))))"},{"Add":"  (caml-sit-for (or after 0) 1))"},{"Add":""},{"Add":";; To insert the last output from caml at point"},{"Add":"(defun caml-insert-last-output ()"},{"Add":"  \"Insert the result of the evaluation of previous phrase\""},{"Add":"  (interactive)"},{"Add":"  (let ((pos (process-mark (get-buffer-process inferior-caml-buffer-name))))"},{"Add":"  (insert-buffer-substring inferior-caml-buffer-name"},{"Add":"                           caml-previous-output (- pos 2))))"},{"Add":""},{"Add":";; additional bindings"},{"Add":""},{"Add":";(let ((map (lookup-key caml-mode-map [menu-bar caml])))"},{"Add":";  (define-key map [indent-buffer] '(\"Indent buffer\" . caml-indent-buffer))"},{"Add":";  (define-key map [eval-buffer] '(\"Eval buffer\" . caml-eval-buffer))"},{"Add":";)"},{"Add":";(define-key caml-mode-map \"\\C-c\\C-b\" 'caml-eval-buffer)"},{"Add":""},{"Add":""},{"Add":"(provide 'inf-caml)"}]}},{"FileAdd":{"meta":{"basename":"camldebug.el","metadata":0},"context":[{"change":0,"pos":2136691}],"contents":[{"Add":";****************************************** -*- lexical-binding: t; -*- ***"},{"Add":";*                                                                        *"},{"Add":";*                                 OCaml                                  *"},{"Add":";*                                                                        *"},{"Add":";*                 Jacques Garrigue and Ian T Zimmerman                   *"},{"Add":";*                                                                        *"},{"Add":";*   Copyright 1997 Institut National de Recherche en Informatique et     *"},{"Add":";*     en Automatique.                                                    *"},{"Add":";*                                                                        *"},{"Add":";*   All rights reserved.  This file is distributed under the terms of    *"},{"Add":";*   the GNU General Public License.                                      *"},{"Add":";*                                                                        *"},{"Add":";**************************************************************************"},{"Add":""},{"Add":";;; Run camldebug under Emacs"},{"Add":";;; Derived from gdb.el."},{"Add":";;; gdb.el is Copyright (C) 1988 Free Software Foundation, Inc, and is part"},{"Add":";;; of GNU Emacs"},{"Add":";;; Modified by Jerome Vouillon, 1994."},{"Add":";;; Modified by Ian T. Zimmerman, 1996."},{"Add":";;; Modified by Xavier Leroy, 1997."},{"Add":""},{"Add":";; This file is free software; you can redistribute it and/or modify"},{"Add":";; it under the terms of the GNU General Public License as published by"},{"Add":";; the Free Software Foundation; either version 1, or (at your option)"},{"Add":";; any later version."},{"Add":""},{"Add":";; This file is distributed in the hope that it will be useful,"},{"Add":";; but WITHOUT ANY WARRANTY; without even the implied warranty of"},{"Add":";; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the"},{"Add":";; GNU General Public License for more details."},{"Add":""},{"Add":";;itz 04-06-96 I pondered basing this on gud. The potential advantages"},{"Add":";;were: automatic bugfix , keymaps and menus propagation."},{"Add":";;Disadvantages: gud is not so clean itself, there is little common"},{"Add":";;functionality it abstracts (most of the stuff is done in the"},{"Add":";;debugger specific parts anyway), and, most seriously, gud sees it"},{"Add":";;fit to add C-x C-a bindings to the _global_ map, so there would be a"},{"Add":";;conflict between camldebug and gdb, for instance. While it's OK to"},{"Add":";;assume that a sane person doesn't use gdb and dbx at the same time,"},{"Add":";;it's not so OK (IMHO) for gdb and camldebug."},{"Add":""},{"Add":";; Xavier Leroy, 21/02/97: adaptation to ocamldebug."},{"Add":""},{"Add":"(require 'comint)"},{"Add":"(require 'shell)"},{"Add":"(require 'caml)"},{"Add":"(require 'derived)"},{"Add":"(require 'thingatpt)"},{"Add":""},{"Add":";;; Variables."},{"Add":""},{"Add":"(defvar camldebug-last-frame)"},{"Add":"(defvar camldebug-delete-prompt-marker)"},{"Add":"(defvar camldebug-filter-accumulator nil)"},{"Add":"(defvar camldebug-last-frame-displayed-p)"},{"Add":"(defvar camldebug-filter-function)"},{"Add":""},{"Add":"(defvar camldebug-prompt-pattern \"^(ocd) *\""},{"Add":"  \"A regexp to recognize the prompt for ocamldebug.\")"},{"Add":""},{"Add":"(defvar camldebug-overlay-event nil"},{"Add":"  \"Overlay for displaying the current event.\")"},{"Add":"(defvar camldebug-overlay-under nil"},{"Add":"  \"Overlay for displaying the current event.\")"},{"Add":"(defvar camldebug-event-marker nil"},{"Add":"  \"Marker for displaying the current event.\")"},{"Add":""},{"Add":"(defvar camldebug-track-frame t"},{"Add":"  \"*If non-nil, always display current frame position in another window.\")"},{"Add":""},{"Add":"(cond"},{"Add":" (window-system"},{"Add":"  (make-face 'camldebug-event)"},{"Add":"  (make-face 'camldebug-underline)"},{"Add":"  (unless (face-differs-from-default-p 'camldebug-event)"},{"Add":"    (invert-face 'camldebug-event))"},{"Add":"  (unless (face-differs-from-default-p 'camldebug-underline)"},{"Add":"    (set-face-underline 'camldebug-underline t))"},{"Add":"  (setq camldebug-overlay-event (make-overlay 1 1))"},{"Add":"  (overlay-put camldebug-overlay-event 'face 'camldebug-event)"},{"Add":"  (setq camldebug-overlay-under (make-overlay 1 1))"},{"Add":"  (overlay-put camldebug-overlay-under 'face 'camldebug-underline))"},{"Add":" (t"},{"Add":"  (setq camldebug-event-marker (make-marker))"},{"Add":"  (setq overlay-arrow-string \"=>\")))"},{"Add":""},{"Add":";;; Camldebug mode."},{"Add":""},{"Add":"(defvar comint-input-sentinel)"},{"Add":""},{"Add":"(define-derived-mode camldebug-mode comint-mode \"Inferior CDB\""},{"Add":""},{"Add":"  \"Major mode for interacting with an inferior ocamldebug process."},{"Add":""},{"Add":"The following commands are available:"},{"Add":""},{"Add":"\\\\{camldebug-mode-map}"},{"Add":""},{"Add":"\\\\[camldebug-display-frame] displays in the other window"},{"Add":"the last line referred to in the camldebug buffer."},{"Add":""},{"Add":"\\\\[camldebug-step], \\\\[camldebug-back] and \\\\[camldebug-next], in the camldebug"},{"Add":"window, call camldebug to step, backstep or next and then update the other window"},{"Add":"with the current file and position."},{"Add":""},{"Add":"If you are in a source file, you may select a point to break"},{"Add":"at, by doing \\\\[camldebug-break]."},{"Add":""},{"Add":"Commands:"},{"Add":"Many commands are inherited from comint mode."},{"Add":"Additionally we have:"},{"Add":""},{"Add":"\\\\[camldebug-display-frame] display frames file in other window"},{"Add":"\\\\[camldebug-step] advance one line in program"},{"Add":"C-x SPACE sets break point at current line.\""},{"Add":""},{"Add":"  (mapc #'make-local-variable"},{"Add":"        '(camldebug-last-frame-displayed-p  camldebug-last-frame"},{"Add":"          camldebug-delete-prompt-marker camldebug-filter-function"},{"Add":"          camldebug-filter-accumulator paragraph-start))"},{"Add":"  (setq"},{"Add":"   camldebug-last-frame nil"},{"Add":"   camldebug-delete-prompt-marker (make-marker)"},{"Add":"   camldebug-filter-accumulator \"\""},{"Add":"   camldebug-filter-function #'camldebug-marker-filter"},{"Add":"   comint-prompt-regexp camldebug-prompt-pattern"},{"Add":"   paragraph-start comint-prompt-regexp"},{"Add":"   camldebug-last-frame-displayed-p t)"},{"Add":"  (add-hook 'comint-dynamic-complete-functions #'camldebug-complete nil t)"},{"Add":"  (make-local-variable 'shell-dirtrackp)"},{"Add":"  (setq shell-dirtrackp t)"},{"Add":"  (setq comint-input-sentinel #'shell-directory-tracker))"},{"Add":""},{"Add":";;; Keymaps."},{"Add":""},{"Add":"(defun camldebug-numeric-arg (arg)"},{"Add":"  (and arg (prefix-numeric-value arg)))"},{"Add":""},{"Add":"(defmacro def-camldebug (name key &optional doc args)"},{"Add":""},{"Add":"  \"Define camldebug-NAME to be a command sending NAME ARGS and bound"},{"Add":"to KEY, with optional doc string DOC.  Certain %-escapes in ARGS are"},{"Add":"interpreted specially if present.  These are:"},{"Add":""},{"Add":"  %m    module name of current module."},{"Add":"  %d    directory of current source file."},{"Add":"  %c    number of current character position"},{"Add":"  %e    text of the caml variable surrounding point."},{"Add":""},{"Add":"  The `current' source file is the file of the current buffer (if"},{"Add":"we're in a caml buffer) or the source file current at the last break"},{"Add":"or step (if we're in the camldebug buffer), and the `current' module"},{"Add":"name is the filename stripped of any *.ml* suffixes (this assumes the"},{"Add":"usual correspondence between module and file naming is observed).  The"},{"Add":"`current' position is that of the current buffer (if we're in a source"},{"Add":"file) or the position of the last break or step (if we're in the"},{"Add":"camldebug buffer)."},{"Add":""},{"Add":"If a numeric is present, it overrides any ARGS flags and its string"},{"Add":"representation is simply concatenated with the COMMAND.\""},{"Add":""},{"Add":"  (let* ((fun (intern (format \"camldebug-%s\" name))))"},{"Add":"    (list 'progn"},{"Add":"          (if doc"},{"Add":"              (list 'defun fun '(arg)"},{"Add":"                    doc"},{"Add":"                    '(interactive \"P\")"},{"Add":"                    (list 'camldebug-call name args"},{"Add":"                          '(camldebug-numeric-arg arg))))"},{"Add":"          (list 'define-key 'camldebug-mode-map"},{"Add":"                (concat \"\\C-c\" key)"},{"Add":"                (list 'quote fun))"},{"Add":"          (list 'define-key 'caml-mode-map"},{"Add":"                (concat \"\\C-x\\C-a\" key)"},{"Add":"                (list 'quote fun)))))"},{"Add":""},{"Add":"(def-camldebug \"step\"   \"\\C-s\"  \"Step one event forward.\")"},{"Add":"(def-camldebug \"backstep\" \"\\C-k\" \"Step one event backward.\")"},{"Add":"(def-camldebug \"run\"    \"\\C-r\"  \"Run the program.\")"},{"Add":"(def-camldebug \"reverse\" \"\\C-v\" \"Run the program in reverse.\")"},{"Add":"(def-camldebug \"last\"   \"\\C-l\"  \"Go to latest time in execution history.\")"},{"Add":"(def-camldebug \"backtrace\" \"\\C-t\" \"Print the call stack.\")"},{"Add":"(def-camldebug \"finish\" \"\\C-f\"  \"Finish executing current function.\")"},{"Add":"(def-camldebug \"print\"  \"\\C-p\"  \"Print value of symbol at point.\"       \"%e\")"},{"Add":"(def-camldebug \"display\" \"\\C-d\" \"Display value of symbol at point.\"     \"%e\")"},{"Add":"(def-camldebug \"next\"   \"\\C-n\"  \"Step one event forward (skip functions)\")"},{"Add":"(def-camldebug \"up\"     \"<\"  \"Go up N stack frames (numeric arg) with display\")"},{"Add":"(def-camldebug \"down\"  \">\" \"Go down N stack frames (numeric arg) with display\")"},{"Add":"(def-camldebug \"break\"  \"\\C-b\"  \"Set breakpoint at current line.\""},{"Add":"  \"@ \\\"%m\\\" # %c\")"},{"Add":""},{"Add":"(defun camldebug-mouse-display (click)"},{"Add":"  \"Display value of $NNN clicked on.\""},{"Add":"  (interactive \"e\")"},{"Add":"  (let* ((start (event-start click))"},{"Add":"         (window (car start))"},{"Add":"         (pos (car (cdr start)))"},{"Add":"         symb)"},{"Add":"    (save-excursion"},{"Add":"      (select-window window)"},{"Add":"      (goto-char pos)"},{"Add":"      (setq symb (thing-at-point 'symbol))"},{"Add":"      (if (string-match \"^\\\\$[0-9]+$\" symb)"},{"Add":"          (camldebug-call \"display\" symb)))))"},{"Add":""},{"Add":"(define-key camldebug-mode-map [mouse-2] 'camldebug-mouse-display)"},{"Add":""},{"Add":"(defvar camldebug-kill-output)"},{"Add":""},{"Add":"(defun camldebug-kill-filter (string)"},{"Add":"  ;gob up stupid questions :-)"},{"Add":"  (setq camldebug-filter-accumulator"},{"Add":"        (concat camldebug-filter-accumulator string))"},{"Add":"  (when (string-match \"\\\\(.* \\\\)(y or n) \" camldebug-filter-accumulator)"},{"Add":"    (setq camldebug-kill-output"},{"Add":"          (cons t (match-string 1 camldebug-filter-accumulator)))"},{"Add":"    (setq camldebug-filter-accumulator \"\"))"},{"Add":"  (if (string-match comint-prompt-regexp camldebug-filter-accumulator)"},{"Add":"      (let ((output (substring camldebug-filter-accumulator"},{"Add":"                               (match-beginning 0))))"},{"Add":"        (setq camldebug-kill-output"},{"Add":"              (cons nil (substring camldebug-filter-accumulator 0"},{"Add":"                                   (1- (match-beginning 0)))))"},{"Add":"        (setq camldebug-filter-accumulator \"\")"},{"Add":"        output)"},{"Add":"    \"\"))"},{"Add":""},{"Add":"(def-camldebug \"kill\"   \"\\C-k\")"},{"Add":""},{"Add":"(defvar current-camldebug-buffer nil)"},{"Add":"(defvar camldebug-goto-output)"},{"Add":"(defvar camldebug-goto-position)"},{"Add":""},{"Add":"(defun camldebug-kill ()"},{"Add":"  \"Kill the program.\""},{"Add":"  (interactive)"},{"Add":"  (let ((camldebug-kill-output))"},{"Add":"    (with-current-buffer current-camldebug-buffer"},{"Add":"      (let ((proc (get-buffer-process (current-buffer)))"},{"Add":"            (camldebug-filter-function #'camldebug-kill-filter))"},{"Add":"        (camldebug-call \"kill\")"},{"Add":"        (while (not (and camldebug-kill-output"},{"Add":"                         (zerop (length camldebug-filter-accumulator))))"},{"Add":"          (accept-process-output proc))))"},{"Add":"    (if (not (car camldebug-kill-output))"},{"Add":"        (error (cdr camldebug-kill-output))"},{"Add":"      (sit-for 0 300)"},{"Add":"      (camldebug-call-1 (if (y-or-n-p (cdr camldebug-kill-output)) \"y\" \"n\")))))"},{"Add":";;FIXME: camldebug doesn't output the Hide marker on kill"},{"Add":""},{"Add":"(defun camldebug-goto-filter (string)"},{"Add":"  ;accumulate onto previous output"},{"Add":"  (setq camldebug-filter-accumulator"},{"Add":"        (concat camldebug-filter-accumulator string))"},{"Add":"  ;;    Address  Characters        Kind      Repr."},{"Add":"  ;;     14452     64-82      before/fun"},{"Add":"  ;;     14584    182-217      after/ret"},{"Add":"  ;;0:     30248     -1--1          pseudo"},{"Add":"  ;;0:     30076     64-82      before/fun"},{"Add":"  (when (or (string-match"},{"Add":"             (concat \"\\\\(?:\\n\\\\|\\\\`\\\\)[ \\t]*\""},{"Add":"                     \"\\\\([0-9]+\\\\)\\\\(?::[ \\t]*\\\\([0-9]+\\\\)\\\\)?[ \\t]+\""},{"Add":"                     camldebug-goto-position"},{"Add":"                     \"-[0-9]+[ \\t]*before.*\\n\")"},{"Add":"             camldebug-filter-accumulator)"},{"Add":"            (string-match"},{"Add":"             (concat \"\\\\(?:\\n\\\\|\\\\`\\\\)[ \\t]*\""},{"Add":"                     \"\\\\([0-9]+\\\\)\\\\(?::[ \\t]*\\\\([0-9]+\\\\)\\\\)?[ \\t]+[0-9]+-\""},{"Add":"                     camldebug-goto-position"},{"Add":"                     \"[ \\t]*after.*\\n\")"},{"Add":"             camldebug-filter-accumulator))"},{"Add":"    (let ((id (match-string 1 camldebug-filter-accumulator))"},{"Add":"          (pos (match-string 2 camldebug-filter-accumulator)))"},{"Add":"      (setq camldebug-goto-output (if pos (concat id \":\" pos) id)))"},{"Add":"    (setq camldebug-filter-accumulator"},{"Add":"          (substring camldebug-filter-accumulator (1- (match-end 0)))))"},{"Add":"  (when (string-match comint-prompt-regexp camldebug-filter-accumulator)"},{"Add":"    (setq camldebug-goto-output (or camldebug-goto-output 'fail))"},{"Add":"    (setq camldebug-filter-accumulator \"\"))"},{"Add":"  (if (string-match \"\\n\\\\(.*\\\\)\\\\'\" camldebug-filter-accumulator)"},{"Add":"      (setq camldebug-filter-accumulator"},{"Add":"            (match-string 1 camldebug-filter-accumulator)))"},{"Add":"  \"\")"},{"Add":""},{"Add":"(def-camldebug \"goto\" \"\\C-g\")"},{"Add":"(defun camldebug-goto (&optional time)"},{"Add":""},{"Add":"  \"Go to the execution time TIME."},{"Add":""},{"Add":"Without TIME, the command behaves as follows: In the camldebug buffer,"},{"Add":"if the point at buffer end, goto time 0\\; otherwise, try to obtain the"},{"Add":"time from context around point. In a caml mode buffer, try to find the"},{"Add":"time associated in execution history with the current point location."},{"Add":""},{"Add":"With a negative TIME, move that many lines backward in the camldebug"},{"Add":"buffer, then try to obtain the time from context around point.\""},{"Add":""},{"Add":"  (interactive \"P\")"},{"Add":"  (cond"},{"Add":"   (time"},{"Add":"    (let ((ntime (camldebug-numeric-arg time)))"},{"Add":"      (if (>= ntime 0) (camldebug-call \"goto\" nil ntime)"},{"Add":"        (save-selected-window"},{"Add":"          (select-window (get-buffer-window current-camldebug-buffer))"},{"Add":"          (save-excursion"},{"Add":"            (if (re-search-backward"},{"Add":"                 \"^Time *: [0-9]+ - pc *: [0-9]+\\\\(?::[0-9]+\\\\)? \""},{"Add":"                 nil t (- 1 ntime))"},{"Add":"                (camldebug-goto nil)"},{"Add":"              (error \"I don't have %d times in my history\""},{"Add":"                     (- 1 ntime))))))))"},{"Add":"   ((eq (current-buffer) current-camldebug-buffer)"},{"Add":"      (let ((time (cond"},{"Add":"                   ((eobp) 0)"},{"Add":"                   ((save-excursion"},{"Add":"                      (beginning-of-line 1)"},{"Add":"                      (looking-at"},{"Add":"                       \"^Time *: \\\\([0-9]+\\\\) - pc *: [0-9]+\\\\(?::[0-9]+\\\\)? \"))"},{"Add":"                    (string-to-number (match-string 1)))"},{"Add":"                   ((string-to-number (camldebug-format-command \"%e\"))))))"},{"Add":"        (camldebug-call \"goto\" nil time)))"},{"Add":"   (t"},{"Add":"    (let ((module (camldebug-module-name (buffer-file-name)))"},{"Add":"          (camldebug-goto-position (int-to-string (1- (point))))"},{"Add":"          (camldebug-goto-output) (address))"},{"Add":"      ;get a list of all events in the current module"},{"Add":"      (with-current-buffer current-camldebug-buffer"},{"Add":"        (let* ((proc (get-buffer-process (current-buffer)))"},{"Add":"               (camldebug-filter-function #'camldebug-goto-filter))"},{"Add":"          (camldebug-call-1 (concat \"info events \" module))"},{"Add":"          (while (not (and camldebug-goto-output"},{"Add":"                      (zerop (length camldebug-filter-accumulator))))"},{"Add":"            (accept-process-output proc))"},{"Add":"          (setq address (if (eq camldebug-goto-output 'fail) nil"},{"Add":"                          (re-search-backward"},{"Add":"                           (concat \"^Time *: \\\\([0-9]+\\\\) - pc *: \""},{"Add":"                                   camldebug-goto-output"},{"Add":"                                   \" - module \""},{"Add":"                                   module \"$\")"},{"Add":"                           nil t)"},{"Add":"                          (match-string 1)))))"},{"Add":"      (if address (camldebug-call \"goto\" nil (string-to-number address))"},{"Add":"        (error \"No time at %s at %s\" module camldebug-goto-position))))))"},{"Add":""},{"Add":"(defvar camldebug-delete-output)"},{"Add":"(defvar camldebug-delete-position)"},{"Add":"(defvar camldebug-delete-file)"},{"Add":""},{"Add":"(defun camldebug-delete-filter (string)"},{"Add":"  (setq camldebug-filter-accumulator"},{"Add":"        (concat camldebug-filter-accumulator string))"},{"Add":"  (when (string-match"},{"Add":"         ;; Num    Address  Where"},{"Add":"         ;;  1      14552  file u.ml, line 5, characters 1-34"},{"Add":"         ;;  1 0:     30176  file u.ml, line 5, characters 1-34"},{"Add":"         (concat \"\\\\(?:\\n\\\\|\\\\`\\\\)[ \\t]*\\\\([0-9]+\\\\)[ \\t]+\""},{"Add":"                 \"[0-9]+\\\\(?::[ \\t]*[0-9]+\\\\)?[ \\t]+file +\""},{"Add":"                 (regexp-quote camldebug-delete-file)"},{"Add":"                 \", character \""},{"Add":"                 camldebug-delete-position \"\\n\")"},{"Add":"         camldebug-filter-accumulator)"},{"Add":"    (setq camldebug-delete-output"},{"Add":"          (match-string 1 camldebug-filter-accumulator))"},{"Add":"    (setq camldebug-filter-accumulator"},{"Add":"          (substring camldebug-filter-accumulator (1- (match-end 0)))))"},{"Add":"  (when (string-match comint-prompt-regexp camldebug-filter-accumulator)"},{"Add":"    (setq camldebug-delete-output (or camldebug-delete-output 'fail))"},{"Add":"    (setq camldebug-filter-accumulator \"\"))"},{"Add":"  (if (string-match \"\\n\\\\(.*\\\\)\\\\'\" camldebug-filter-accumulator)"},{"Add":"      (setq camldebug-filter-accumulator"},{"Add":"            (match-string 1 camldebug-filter-accumulator)))"},{"Add":"  \"\")"},{"Add":""},{"Add":""},{"Add":"(def-camldebug \"delete\" \"\\C-d\")"},{"Add":""},{"Add":"(defun camldebug-delete (&optional arg)"},{"Add":"  \"Delete the breakpoint numbered ARG."},{"Add":""},{"Add":"Without ARG, the command behaves as follows: In the camldebug buffer,"},{"Add":"try to obtain the time from context around point. In a caml mode"},{"Add":"buffer, try to find the breakpoint associated with the current point"},{"Add":"location."},{"Add":""},{"Add":"With a negative ARG, look for the -ARGth breakpoint pattern in the"},{"Add":"camldebug buffer, then try to obtain the breakpoint info from context"},{"Add":"around point.\""},{"Add":""},{"Add":"  (interactive \"P\")"},{"Add":"  (cond"},{"Add":"   (arg"},{"Add":"    (let ((narg (camldebug-numeric-arg arg)))"},{"Add":"      (if (> narg 0) (camldebug-call \"delete\" nil narg)"},{"Add":"        (with-current-buffer current-camldebug-buffer"},{"Add":"          (if (re-search-backward"},{"Add":"               \"^Breakpoint [0-9]+ at [0-9]+\\\\(?::[0-9]+\\\\)? *: file \""},{"Add":"               nil t (- 1 narg))"},{"Add":"              (camldebug-delete nil)"},{"Add":"            (error \"I don't have %d breakpoints in my history\""},{"Add":"                     (- 1 narg)))))))"},{"Add":"   ((eq (current-buffer) current-camldebug-buffer)"},{"Add":"    (let* ((bpline"},{"Add":"            \"^Breakpoint \\\\([0-9]+\\\\) at [0-9]+\\\\(?::[0-9]+\\\\)? *: file \")"},{"Add":"           (arg (cond"},{"Add":"                 ((eobp)"},{"Add":"                  (save-excursion (re-search-backward bpline nil t))"},{"Add":"                  (string-to-number (match-string 1)))"},{"Add":"                 ((save-excursion"},{"Add":"                    (beginning-of-line 1)"},{"Add":"                    (looking-at bpline))"},{"Add":"                  (string-to-number (match-string 1)))"},{"Add":"                 ((string-to-number (camldebug-format-command \"%e\"))))))"},{"Add":"      (camldebug-call \"delete\" nil arg)))"},{"Add":"   (t"},{"Add":"    (let ((camldebug-delete-file"},{"Add":"           (concat (camldebug-format-command \"%m\") \".ml\"))"},{"Add":"          (camldebug-delete-position (camldebug-format-command \"%c\")))"},{"Add":"      (with-current-buffer current-camldebug-buffer"},{"Add":"        (let ((proc (get-buffer-process (current-buffer)))"},{"Add":"              (camldebug-filter-function #'camldebug-delete-filter)"},{"Add":"              (camldebug-delete-output))"},{"Add":"          (camldebug-call-1 \"info break\")"},{"Add":"          (while (not (and camldebug-delete-output"},{"Add":"                           (zerop (length"},{"Add":"                                   camldebug-filter-accumulator))))"},{"Add":"            (accept-process-output proc))"},{"Add":"          (if (eq camldebug-delete-output 'fail)"},{"Add":"              (error \"No breakpoint in %s at %s\""},{"Add":"                     camldebug-delete-file"},{"Add":"                     camldebug-delete-position)"},{"Add":"            (camldebug-call \"delete\" nil"},{"Add":"                            (string-to-number camldebug-delete-output)))))))))"},{"Add":""},{"Add":"(defvar camldebug-complete-list)"},{"Add":""},{"Add":"(defun camldebug-complete-filter (string)"},{"Add":"  (setq camldebug-filter-accumulator"},{"Add":"        (concat camldebug-filter-accumulator string))"},{"Add":"  (while (string-match \"\\\\(\\n\\\\|\\\\`\\\\)\\\\(.+\\\\)\\n\""},{"Add":"                       camldebug-filter-accumulator)"},{"Add":"    (push (match-string 2 camldebug-filter-accumulator)"},{"Add":"          camldebug-complete-list)"},{"Add":"    (setq camldebug-filter-accumulator"},{"Add":"          (substring camldebug-filter-accumulator"},{"Add":"                     (1- (match-end 0)))))"},{"Add":"  (when (string-match comint-prompt-regexp camldebug-filter-accumulator)"},{"Add":"    (setq camldebug-complete-list"},{"Add":"          (or camldebug-complete-list 'fail))"},{"Add":"    (setq camldebug-filter-accumulator \"\"))"},{"Add":"  (if (string-match \"\\n\\\\(.*\\\\)\\\\'\" camldebug-filter-accumulator)"},{"Add":"      (setq camldebug-filter-accumulator"},{"Add":"            (match-string 1 camldebug-filter-accumulator)))"},{"Add":"  \"\")"},{"Add":""},{"Add":"(defun camldebug-complete ()"},{"Add":""},{"Add":"  \"Perform completion on the camldebug command preceding point.\""},{"Add":""},{"Add":"  (interactive)"},{"Add":"  (let* ((end (point))"},{"Add":"         (command (save-excursion"},{"Add":"                    (beginning-of-line)"},{"Add":"                    (and (looking-at comint-prompt-regexp)"},{"Add":"                         (goto-char (match-end 0)))"},{"Add":"                    (buffer-substring (point) end)))"},{"Add":"         (camldebug-complete-list nil) (command-word))"},{"Add":""},{"Add":"    ;; Find the word break.  This match will always succeed."},{"Add":"    (string-match \"\\\\(\\\\`\\\\| \\\\)\\\\([^ ]*\\\\)\\\\'\" command)"},{"Add":"    (setq command-word (match-string 2 command))"},{"Add":""},{"Add":"    ;itz 04-21-96 if we are trying to complete a word of nonzero"},{"Add":"    ;length, chop off the last character. This is a nasty hack, but it"},{"Add":"    ;works - in general, not just for this set of words: the comint"},{"Add":"    ;call below will weed out false matches - and it avoids further"},{"Add":"    ;mucking with camldebug's lexer."},{"Add":"    (if (> (length command-word) 0)"},{"Add":"        (setq command (substring command 0 (1- (length command)))))"},{"Add":""},{"Add":"    (let ((camldebug-filter-function #'camldebug-complete-filter))"},{"Add":"      (camldebug-call-1 (concat \"complete \" command))"},{"Add":"      (set-marker camldebug-delete-prompt-marker nil)"},{"Add":"      (while (not (and camldebug-complete-list"},{"Add":"                       (zerop (length camldebug-filter-accumulator))))"},{"Add":"        (accept-process-output (get-buffer-process"},{"Add":"                                (current-buffer)))))"},{"Add":"    (if (eq camldebug-complete-list 'fail)"},{"Add":"        (setq camldebug-complete-list nil))"},{"Add":"    (setq camldebug-complete-list"},{"Add":"          (sort camldebug-complete-list 'string-lessp))"},{"Add":"    (comint-dynamic-simple-complete command-word camldebug-complete-list)))"},{"Add":""},{"Add":"(define-key camldebug-mode-map \"\\C-l\" 'camldebug-refresh)"},{"Add":"(define-key camldebug-mode-map \"\\t\" 'comint-dynamic-complete)"},{"Add":"(define-key camldebug-mode-map \"\\M-?\" 'comint-dynamic-list-completions)"},{"Add":""},{"Add":"(define-key caml-mode-map \"\\C-x \" 'camldebug-break)"},{"Add":""},{"Add":""},{"Add":";;;###autoload"},{"Add":"(defvar camldebug-command-name \"ocamldebug\""},{"Add":"  \"*Pathname for executing camldebug.\")"},{"Add":""},{"Add":";;;###autoload"},{"Add":"(defun camldebug (path)"},{"Add":"  \"Run camldebug on program FILE in buffer *camldebug-FILE*."},{"Add":"The directory containing FILE becomes the initial working directory"},{"Add":"and source-file directory for camldebug.  If you wish to change this, use"},{"Add":"the camldebug commands `cd DIR' and `directory'.\""},{"Add":"  (interactive \"fRun ocamldebug on file: \")"},{"Add":"  (setq path (expand-file-name path))"},{"Add":"  (let ((file (file-name-nondirectory path)))"},{"Add":"    (pop-to-buffer (concat \"*camldebug-\" file \"*\"))"},{"Add":"    (setq default-directory (file-name-directory path))"},{"Add":"    (message \"Current directory is %s\" default-directory)"},{"Add":"    (make-comint (concat \"camldebug-\" file)"},{"Add":"                 (substitute-in-file-name camldebug-command-name)"},{"Add":"                 nil"},{"Add":"                 \"-emacs\" \"-cd\" default-directory file)"},{"Add":"    (set-process-filter (get-buffer-process (current-buffer))"},{"Add":"                        'camldebug-filter)"},{"Add":"    (set-process-sentinel (get-buffer-process (current-buffer))"},{"Add":"                          'camldebug-sentinel)"},{"Add":"    (camldebug-mode)"},{"Add":"    (camldebug-set-buffer)))"},{"Add":""},{"Add":"(defun camldebug-set-buffer ()"},{"Add":"  (if (eq major-mode 'camldebug-mode)"},{"Add":"      (setq current-camldebug-buffer (current-buffer))"},{"Add":"    (save-selected-window (pop-to-buffer current-camldebug-buffer))))"},{"Add":""},{"Add":";;; Filter and sentinel."},{"Add":""},{"Add":"(defun camldebug-marker-filter (string)"},{"Add":"  (setq camldebug-filter-accumulator"},{"Add":"        (concat camldebug-filter-accumulator string))"},{"Add":"  (let ((output \"\") (begin))"},{"Add":"    ;; Process all the complete markers in this chunk."},{"Add":"    (while (setq begin"},{"Add":"                 (string-match"},{"Add":"                  \"\\032\\032\\\\(H\\\\|M\\\\(.+\\\\):\\\\(.+\\\\):\\\\(.+\\\\):\\\\(before\\\\|after\\\\)\\\\)\\n\""},{"Add":"                  camldebug-filter-accumulator))"},{"Add":"      (setq camldebug-last-frame"},{"Add":"            (if (char-equal ?H (aref camldebug-filter-accumulator"},{"Add":"                                     (1+ (1+ begin))))"},{"Add":"                nil"},{"Add":"              (let ((isbefore"},{"Add":"                     (string= \"before\""},{"Add":"                              (match-string 5 camldebug-filter-accumulator)))"},{"Add":"                    (startpos (string-to-number"},{"Add":"                               (match-string 3 camldebug-filter-accumulator)))"},{"Add":"                    (endpos (string-to-number"},{"Add":"                             (match-string 4 camldebug-filter-accumulator))))"},{"Add":"                (list (match-string 2 camldebug-filter-accumulator)"},{"Add":"                      (if isbefore startpos endpos)"},{"Add":"                      isbefore"},{"Add":"                      startpos"},{"Add":"                      endpos"},{"Add":"                      )))"},{"Add":"            output (concat output"},{"Add":"                           (substring camldebug-filter-accumulator"},{"Add":"                                      0 begin))"},{"Add":"            ;; Set the accumulator to the remaining text."},{"Add":"            camldebug-filter-accumulator (substring"},{"Add":"                                          camldebug-filter-accumulator"},{"Add":"                                          (match-end 0))"},{"Add":"            camldebug-last-frame-displayed-p nil))"},{"Add":""},{"Add":""},{"Add":"    ;; Does the remaining text look like it might end with the"},{"Add":"    ;; beginning of another marker?  If it does, then keep it in"},{"Add":"    ;; camldebug-filter-accumulator until we receive the rest of it.  Since we"},{"Add":"    ;; know the full marker regexp above failed, it's pretty simple to"},{"Add":"    ;; test for marker starts."},{"Add":"    (if (string-match \"\\032.*\\\\'\" camldebug-filter-accumulator)"},{"Add":"        (progn"},{"Add":"          ;; Everything before the potential marker start can be output."},{"Add":"          (setq output (concat output (substring camldebug-filter-accumulator"},{"Add":"                                                 0 (match-beginning 0))))"},{"Add":""},{"Add":"          ;; Everything after, we save, to combine with later input."},{"Add":"          (setq camldebug-filter-accumulator"},{"Add":"                (substring camldebug-filter-accumulator (match-beginning 0))))"},{"Add":""},{"Add":"      (setq output (concat output camldebug-filter-accumulator)"},{"Add":"            camldebug-filter-accumulator \"\"))"},{"Add":""},{"Add":"    output))"},{"Add":""},{"Add":"(defun camldebug-filter (proc string)"},{"Add":"  (let ((output))"},{"Add":"    (if (buffer-name (process-buffer proc))"},{"Add":"        (let ((process-window))"},{"Add":"          ;; it does not seem necessary to save excursion here,"},{"Add":"          ;; since set-buffer as a temporary effect."},{"Add":"          ;; comint-output-filter explicitly avoids it."},{"Add":"          ;; in version 23, it prevents the marker to stay at end of buffer"},{"Add":"          (with-current-buffer (process-buffer proc)"},{"Add":"            ;; If we have been so requested, delete the debugger prompt."},{"Add":"            (if (marker-buffer camldebug-delete-prompt-marker)"},{"Add":"                (progn"},{"Add":"                  (delete-region (process-mark proc)"},{"Add":"                                 camldebug-delete-prompt-marker)"},{"Add":"                  (set-marker camldebug-delete-prompt-marker nil)))"},{"Add":"            (setq output (funcall camldebug-filter-function string))"},{"Add":"            ;; Don't display the specified file unless"},{"Add":"            ;; (1) point is at or after the position where output appears"},{"Add":"            ;; and (2) this buffer is on the screen."},{"Add":"            (setq process-window (and camldebug-track-frame"},{"Add":"                                      (not camldebug-last-frame-displayed-p)"},{"Add":"                                      (>= (point) (process-mark proc))"},{"Add":"                                      (get-buffer-window (current-buffer))))"},{"Add":"            ;; Insert the text, moving the process-marker."},{"Add":"            (comint-output-filter proc output))"},{"Add":"          ;; if save-excursion is used (comint-next-prompt 1) would be needed"},{"Add":"          ;; to move the mark past then next prompt, but this is not as good"},{"Add":"          ;; as solution."},{"Add":"          (if process-window"},{"Add":"              (save-selected-window"},{"Add":"                (select-window process-window)"},{"Add":"                (camldebug-display-frame)))))))"},{"Add":""},{"Add":"(defun camldebug-sentinel (proc msg)"},{"Add":"  (cond ((null (buffer-name (process-buffer proc)))"},{"Add":"         ;; buffer killed"},{"Add":"         ;; Stop displaying an arrow in a source file."},{"Add":"         (camldebug-remove-current-event)"},{"Add":"         (set-process-buffer proc nil))"},{"Add":"        ((memq (process-status proc) '(signal exit))"},{"Add":"         ;; Stop displaying an arrow in a source file."},{"Add":"         (camldebug-remove-current-event)"},{"Add":"         ;; Fix the mode line."},{"Add":"         (setq mode-line-process"},{"Add":"               (concat \": \""},{"Add":"                       (symbol-name (process-status proc))))"},{"Add":"         (let* ((obuf (current-buffer)))"},{"Add":"           ;; save-excursion isn't the right thing if"},{"Add":"           ;;  process-buffer is current-buffer"},{"Add":"           (unwind-protect"},{"Add":"               (progn"},{"Add":"                 ;; Write something in *compilation* and hack its mode line,"},{"Add":"                 (set-buffer (process-buffer proc))"},{"Add":"                 ;; Force mode line redisplay soon"},{"Add":"                 (set-buffer-modified-p (buffer-modified-p))"},{"Add":"                 (if (eobp)"},{"Add":"                     (insert ?\\n mode-name \" \" msg)"},{"Add":"                   (save-excursion"},{"Add":"                     (goto-char (point-max))"},{"Add":"                     (insert ?\\n mode-name \" \" msg)))"},{"Add":"                 ;; If buffer and mode line will show that the process"},{"Add":"                 ;; is dead, we can delete it now.  Otherwise it"},{"Add":"                 ;; will stay around until M-x list-processes."},{"Add":"                 (delete-process proc))"},{"Add":"             ;; Restore old buffer, but don't restore old point"},{"Add":"             ;; if obuf is the cdb buffer."},{"Add":"             (set-buffer obuf))))))"},{"Add":""},{"Add":""},{"Add":"(defun camldebug-refresh (&optional arg)"},{"Add":"  \"Fix up a possibly garbled display, and redraw the mark.\""},{"Add":"  (interactive \"P\")"},{"Add":"  (camldebug-display-frame)"},{"Add":"  (recenter arg))"},{"Add":""},{"Add":"(defun camldebug-display-frame ()"},{"Add":"  \"Find, obey and delete the last filename-and-line marker from CDB."},{"Add":"The marker looks like \\\\032\\\\032Mfilename:startchar:endchar:beforeflag\\\\n."},{"Add":"Obeying it means displaying in another window the specified file and line.\""},{"Add":"  (interactive)"},{"Add":"  (camldebug-set-buffer)"},{"Add":"  (if (not camldebug-last-frame)"},{"Add":"      (camldebug-remove-current-event)"},{"Add":"    (camldebug-display-line (nth 0 camldebug-last-frame)"},{"Add":"                            (nth 3 camldebug-last-frame)"},{"Add":"                            (nth 4 camldebug-last-frame)"},{"Add":"                            (nth 2 camldebug-last-frame)))"},{"Add":"  (setq camldebug-last-frame-displayed-p t))"},{"Add":""},{"Add":";; Make sure the file named TRUE-FILE is in a buffer that appears on the screen"},{"Add":";; and that its character CHARACTER is visible."},{"Add":";; Put the mark on this character in that buffer."},{"Add":""},{"Add":"(defvar pre-display-buffer-function)"},{"Add":""},{"Add":"(defun camldebug-display-line (true-file schar echar kind)"},{"Add":"  (let* ((pre-display-buffer-function nil) ; screw it, put it all in one screen"},{"Add":"         (pop-up-windows t)"},{"Add":"         (buffer (find-file-noselect true-file))"},{"Add":"         (window (display-buffer buffer t))"},{"Add":"         (spos) (epos) (pos))"},{"Add":"    (with-current-buffer buffer"},{"Add":"      (save-restriction"},{"Add":"        (widen)"},{"Add":"        (setq spos (+ (point-min) schar))"},{"Add":"        (setq epos (+ (point-min) echar))"},{"Add":"        (setq pos (if kind spos epos))"},{"Add":"        (camldebug-set-current-event spos epos (current-buffer) kind))"},{"Add":"      (cond ((or (< pos (point-min)) (> pos (point-max)))"},{"Add":"             (widen)"},{"Add":"             (goto-char pos))))"},{"Add":"    (set-window-point window pos)))"},{"Add":""},{"Add":";;; Events."},{"Add":""},{"Add":"(defun camldebug-remove-current-event ()"},{"Add":"  (if window-system"},{"Add":"      (progn"},{"Add":"        (delete-overlay camldebug-overlay-event)"},{"Add":"        (delete-overlay camldebug-overlay-under))"},{"Add":"    (setq overlay-arrow-position nil)))"},{"Add":""},{"Add":"(defun camldebug-set-current-event (spos epos buffer before)"},{"Add":"  (if window-system"},{"Add":"      (if before"},{"Add":"          (progn"},{"Add":"            (move-overlay camldebug-overlay-event spos (1+ spos) buffer)"},{"Add":"            (move-overlay camldebug-overlay-under"},{"Add":"                          (+ spos 1) epos buffer))"},{"Add":"        (move-overlay camldebug-overlay-event (1- epos) epos buffer)"},{"Add":"        (move-overlay camldebug-overlay-under spos (- epos 1) buffer))"},{"Add":"    (with-current-buffer buffer"},{"Add":"      (goto-char spos)"},{"Add":"      (beginning-of-line)"},{"Add":"      (move-marker camldebug-event-marker (point))"},{"Add":"      (setq overlay-arrow-position camldebug-event-marker))))"},{"Add":""},{"Add":";;; Miscellaneous."},{"Add":""},{"Add":"(defun camldebug-module-name (filename)"},{"Add":"  (substring filename (string-match \"\\\\([^/]*\\\\)\\\\.ml$\" filename)"},{"Add":"             (match-end 1)))"},{"Add":""},{"Add":";; The camldebug-call function must do the right thing whether its"},{"Add":";; invoking keystroke is from the camldebug buffer itself (via"},{"Add":";; major-mode binding) or a caml buffer.  In the former case, we want"},{"Add":";; to supply data from camldebug-last-frame.  Here's how we do it:"},{"Add":""},{"Add":"(defun camldebug-format-command (str)"},{"Add":"  (let* ((insource (not (eq (current-buffer) current-camldebug-buffer)))"},{"Add":"        (frame (if insource nil camldebug-last-frame)) (result))"},{"Add":"    (while (and str (string-match \"\\\\([^%]*\\\\)%\\\\([mdcep]\\\\)\" str))"},{"Add":"      (let ((key (string-to-char (substring str (match-beginning 2))))"},{"Add":"            (cmd (substring str (match-beginning 1) (match-end 1)))"},{"Add":"            (subst))"},{"Add":"        (setq str (substring str (match-end 2)))"},{"Add":"        (cond"},{"Add":"         ((eq key ?m)"},{"Add":"          (setq subst (camldebug-module-name"},{"Add":"                       (if insource (buffer-file-name) (nth 0 frame)))))"},{"Add":"         ((eq key ?d)"},{"Add":"          (setq subst (file-name-directory"},{"Add":"                       (if insource (buffer-file-name) (nth 0 frame)))))"},{"Add":"         ((eq key ?c)"},{"Add":"          (setq subst (int-to-string"},{"Add":"                       (if insource (1- (point)) (nth 1 frame)))))"},{"Add":"         ((eq key ?e)"},{"Add":"          (setq subst (thing-at-point 'symbol))))"},{"Add":"        (setq result (concat result cmd subst))))"},{"Add":"    ;; There might be text left in STR when the loop ends."},{"Add":"    (concat result str)))"},{"Add":""},{"Add":"(defun camldebug-call (command &optional fmt arg)"},{"Add":"  \"Invoke camldebug COMMAND displaying source in other window."},{"Add":""},{"Add":"Certain %-escapes in FMT are interpreted specially if present."},{"Add":"These are:"},{"Add":""},{"Add":"  %m    module name of current module."},{"Add":"  %d    directory of current source file."},{"Add":"  %c    number of current character position"},{"Add":"  %e    text of the caml variable surrounding point."},{"Add":""},{"Add":"  The `current' source file is the file of the current buffer (if"},{"Add":"we're in a caml buffer) or the source file current at the last break"},{"Add":"or step (if we're in the camldebug buffer), and the `current' module"},{"Add":"name is the filename stripped of any *.ml* suffixes (this assumes the"},{"Add":"usual correspondence between module and file naming is observed).  The"},{"Add":"`current' position is that of the current buffer (if we're in a source"},{"Add":"file) or the position of the last break or step (if we're in the"},{"Add":"camldebug buffer)."},{"Add":""},{"Add":"If ARG is present, it overrides any FMT flags and its string"},{"Add":"representation is simply concatenated with the COMMAND.\""},{"Add":""},{"Add":"  ;; Make sure debugger buffer is displayed in a window."},{"Add":"  (camldebug-set-buffer)"},{"Add":"  (message \"Command: %s\" (camldebug-call-1 command fmt arg)))"},{"Add":""},{"Add":"(defun camldebug-call-1 (command &optional fmt arg)"},{"Add":""},{"Add":"  ;; Record info on the last prompt in the buffer and its position."},{"Add":"  (with-current-buffer current-camldebug-buffer"},{"Add":"    (goto-char (process-mark (get-buffer-process current-camldebug-buffer)))"},{"Add":"    (let () ;;(pt (point))"},{"Add":"      (beginning-of-line)"},{"Add":"      (if (looking-at comint-prompt-regexp)"},{"Add":"          (set-marker camldebug-delete-prompt-marker (point)))))"},{"Add":"  (let ((cmd (cond"},{"Add":"              (arg (concat command \" \" (int-to-string arg)))"},{"Add":"              (fmt (camldebug-format-command"},{"Add":"                    (concat command \" \" fmt)))"},{"Add":"              (command))))"},{"Add":"    (process-send-string (get-buffer-process current-camldebug-buffer)"},{"Add":"                         (concat cmd \"\\n\"))"},{"Add":"    cmd))"},{"Add":""},{"Add":""},{"Add":"(provide 'camldebug)"}]}},{"FileAdd":{"meta":{"basename":"caml.el","metadata":0},"context":[{"change":0,"pos":2136691}],"contents":[{"Add":";;; caml.el --- Caml mode for GNU Emacs -*- lexical-binding: t; -*-"},{"Add":""},{"Add":";; Copyright (C) 1997-2017 Institut National de Recherche en Informatique et en Automatique."},{"Add":""},{"Add":";; Author: Jacques Garrigue "},{"Add":";;         Ian T Zimmerman "},{"Add":";;         Damien Doligez "},{"Add":";; Maintainer: Christophe Troestler "},{"Add":";; Created: July 1993"},{"Add":";; Package-Requires: ((emacs \"24.3\"))"},{"Add":";; Version: 4.10-snapshot"},{"Add":";; Keywords: OCaml"},{"Add":";; Homepage: https://github.com/ocaml/caml-mode"},{"Add":""},{"Add":";; This file is not part of GNU Emacs."},{"Add":""},{"Add":";; This file is free software; you can redistribute it and/or modify"},{"Add":";; it under the terms of the GNU General Public License as published by"},{"Add":";; the Free Software Foundation; either version 2, or (at your option)"},{"Add":";; any later version."},{"Add":""},{"Add":";; This file is distributed in the hope that it will be useful,"},{"Add":";; but WITHOUT ANY WARRANTY; without even the implied warranty of"},{"Add":";; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the"},{"Add":";; GNU General Public License for more details."},{"Add":""},{"Add":";; You should have received a copy of the GNU General Public License"},{"Add":";; along with GNU Emacs.  If not, see ."},{"Add":""},{"Add":";;; Commentary:"},{"Add":""},{"Add":";; A major mode for editing OCaml code (see ) in Emacs."},{"Add":""},{"Add":";; Some of its major features include:"},{"Add":""},{"Add":";; - syntax highlighting (font lock);"},{"Add":";; - automatic indentation;"},{"Add":";; - querying the type of expressions (using compiler generated annot files);"},{"Add":";; - running an OCaml REPL within Emacs;"},{"Add":";; - scans declarations and places them in a menu."},{"Add":""},{"Add":""},{"Add":";; The original indentation code was the work of Ian T Zimmerman and"},{"Add":";; was adapted for OCaml by Jacques Garrigue in July 1997."},{"Add":""},{"Add":";;; Code:"},{"Add":""},{"Add":";;user customizable variables"},{"Add":"(defvar caml-quote-char \"'\""},{"Add":"  \"*Quote for character constants.  \\\"'\\\" for OCaml, \\\"`\\\" for Caml-Light.\")"},{"Add":""},{"Add":"(defvar caml-imenu-enable nil"},{"Add":"  \"*Enable Imenu support.\")"},{"Add":""},{"Add":"(defvar caml-mode-indentation 2"},{"Add":"  \"*Used for \\\\[caml-unindent-command].\")"},{"Add":""},{"Add":"(defvar caml-lookback-limit 5000"},{"Add":"  \"*How far to look back for syntax things in caml mode.\")"},{"Add":""},{"Add":"(defvar caml-max-indent-priority 8"},{"Add":"  \"*Bounds priority of operators permitted to affect caml indentation."},{"Add":""},{"Add":"Priorities are assigned to `interesting' caml operators as follows:"},{"Add":""},{"Add":"        all keywords 0 to 7     8"},{"Add":"        type, val, ... + 0      7"},{"Add":"        :: ^                    6"},{"Add":"        @                       5"},{"Add":"        := <-                   4"},{"Add":"        if                      3"},{"Add":"        fun, let, match ...     2"},{"Add":"        module                  1"},{"Add":"        opening keywords        0.\")"},{"Add":""},{"Add":"(defvar caml-apply-extra-indent 2"},{"Add":"  \"*How many spaces to add to indentation for an application in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-apply-extra-indent)"},{"Add":""},{"Add":"(defvar caml-begin-indent 2"},{"Add":"  \"*How many spaces to indent from a \\\"begin\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-begin-indent)"},{"Add":""},{"Add":"(defvar caml-class-indent 2"},{"Add":"  \"*How many spaces to indent from a \\\"class\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-class-indent)"},{"Add":""},{"Add":"(defvar caml-exception-indent 2"},{"Add":"  \"*How many spaces to indent from an \\\"exception\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-exception-indent)"},{"Add":""},{"Add":"(defvar caml-for-indent 2"},{"Add":"  \"*How many spaces to indent from a \\\"for\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-for-indent)"},{"Add":""},{"Add":"(defvar caml-fun-indent 2"},{"Add":"  \"*How many spaces to indent from a \\\"fun\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-fun-indent)"},{"Add":""},{"Add":"(defvar caml-function-indent 4"},{"Add":"  \"*How many spaces to indent from a \\\"function\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-function-indent)"},{"Add":""},{"Add":"(defvar caml-if-indent  2"},{"Add":"  \"*How many spaces to indent from an \\\"if\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-if-indent)"},{"Add":""},{"Add":"(defvar caml-if-else-indent 0"},{"Add":"  \"*How many spaces to indent from an \\\"if .. else\\\" line in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-if-else-indent)"},{"Add":""},{"Add":"(defvar caml-inherit-indent 2"},{"Add":"  \"*How many spaces to indent from an \\\"inherit\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-inherit-indent)"},{"Add":""},{"Add":"(defvar caml-initializer-indent 2"},{"Add":"  \"*How many spaces to indent from an \\\"initializer\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-initializer-indent)"},{"Add":""},{"Add":"(defvar caml-include-indent 2"},{"Add":"  \"*How many spaces to indent from an \\\"include\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-include-indent)"},{"Add":""},{"Add":"(defvar caml-let-indent 2"},{"Add":"  \"*How many spaces to indent from a \\\"let\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-let-indent)"},{"Add":""},{"Add":"(defvar caml-let-in-indent 0"},{"Add":"  \"*How many spaces to indent from a \\\"let .. in\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-let-in-indent)"},{"Add":""},{"Add":"(defvar caml-match-indent 2"},{"Add":"  \"*How many spaces to indent from a \\\"match\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-match-indent)"},{"Add":""},{"Add":"(defvar caml-method-indent 2"},{"Add":"  \"*How many spaces to indent from a \\\"method\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-method-indent)"},{"Add":""},{"Add":"(defvar caml-module-indent 2"},{"Add":"  \"*How many spaces to indent from a \\\"module\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-module-indent)"},{"Add":""},{"Add":"(defvar caml-object-indent 2"},{"Add":"  \"*How many spaces to indent from an \\\"object\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-object-indent)"},{"Add":""},{"Add":"(defvar caml-of-indent 2"},{"Add":"  \"*How many spaces to indent from an \\\"of\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-of-indent)"},{"Add":""},{"Add":"(defvar caml-parser-indent 4"},{"Add":"  \"*How many spaces to indent from a \\\"parser\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-parser-indent)"},{"Add":""},{"Add":"(defvar caml-sig-indent 2"},{"Add":"  \"*How many spaces to indent from a \\\"sig\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-sig-indent)"},{"Add":""},{"Add":"(defvar caml-struct-indent 2"},{"Add":"  \"*How many spaces to indent from a \\\"struct\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-struct-indent)"},{"Add":""},{"Add":"(defvar caml-try-indent 2"},{"Add":"  \"*How many spaces to indent from a \\\"try\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-try-indent)"},{"Add":""},{"Add":"(defvar caml-type-indent 4"},{"Add":"  \"*How many spaces to indent from a \\\"type\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-type-indent)"},{"Add":""},{"Add":"(defvar caml-val-indent 2"},{"Add":"  \"*How many spaces to indent from a \\\"val\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-val-indent)"},{"Add":""},{"Add":"(defvar caml-while-indent 2"},{"Add":"  \"*How many spaces to indent from a \\\"while\\\" keyword in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-while-indent)"},{"Add":""},{"Add":"(defvar caml-::-indent  2"},{"Add":"  \"*How many spaces to indent from a \\\"::\\\" operator in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-::-indent)"},{"Add":""},{"Add":"(defvar caml-@-indent   2"},{"Add":"  \"*How many spaces to indent from a \\\"@\\\" operator in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-@-indent)"},{"Add":""},{"Add":"(defvar caml-:=-indent  2"},{"Add":"  \"*How many spaces to indent from a \\\":=\\\" operator in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-:=-indent)"},{"Add":""},{"Add":"(defvar caml-<--indent  2"},{"Add":"  \"*How many spaces to indent from a \\\"<-\\\" operator in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-<--indent)"},{"Add":""},{"Add":"(defvar caml-->-indent  2"},{"Add":"  \"*How many spaces to indent from a \\\"->\\\" operator in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-->-indent)"},{"Add":""},{"Add":"(defvar caml-lb-indent 2"},{"Add":"  \"*How many spaces to indent from a \\\"\\[\\\" operator in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-lb-indent)"},{"Add":""},{"Add":"(defvar caml-lc-indent 2"},{"Add":"  \"*How many spaces to indent from a \\\"\\{\\\" operator in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-lc-indent)"},{"Add":""},{"Add":"(defvar caml-lp-indent  1"},{"Add":"  \"*How many spaces to indent from a \\\"\\(\\\" operator in caml mode.\")"},{"Add":"(make-variable-buffer-local 'caml-lp-indent)"},{"Add":""},{"Add":"(defvar caml-and-extra-indent nil"},{"Add":"  \"*Extra indent for caml lines starting with the \\\"and\\\" keyword."},{"Add":"Usually negative. nil is align on master.\")"},{"Add":"(make-variable-buffer-local 'caml-and-extra-indent)"},{"Add":""},{"Add":"(defvar caml-do-extra-indent nil"},{"Add":"  \"*Extra indent for caml lines starting with the \\\"do\\\" keyword."},{"Add":"Usually negative. nil is align on master.\")"},{"Add":"(make-variable-buffer-local 'caml-do-extra-indent)"},{"Add":""},{"Add":"(defvar caml-done-extra-indent nil"},{"Add":"  \"*Extra indent for caml lines starting with the \\\"done\\\" keyword."},{"Add":"Usually negative. nil is align on master.\")"},{"Add":"(make-variable-buffer-local 'caml-done-extra-indent)"},{"Add":""},{"Add":"(defvar caml-else-extra-indent nil"},{"Add":"  \"*Extra indent for caml lines starting with the \\\"else\\\" keyword."},{"Add":"Usually negative. nil is align on master.\")"},{"Add":"(make-variable-buffer-local 'caml-else-extra-indent)"},{"Add":""},{"Add":"(defvar caml-end-extra-indent nil"},{"Add":"  \"*Extra indent for caml lines starting with the \\\"end\\\" keyword."},{"Add":"Usually negative. nil is align on master.\")"},{"Add":"(make-variable-buffer-local 'caml-end-extra-indent)"},{"Add":""},{"Add":"(defvar caml-in-extra-indent nil"},{"Add":"  \"*Extra indent for caml lines starting with the \\\"in\\\" keyword."},{"Add":"Usually negative. nil is align on master.\")"},{"Add":"(make-variable-buffer-local 'caml-in-extra-indent)"},{"Add":""},{"Add":"(defvar caml-then-extra-indent nil"},{"Add":"  \"*Extra indent for caml lines starting with the \\\"then\\\" keyword."},{"Add":"Usually negative. nil is align on master.\")"},{"Add":"(make-variable-buffer-local 'caml-then-extra-indent)"},{"Add":""},{"Add":"(defvar caml-to-extra-indent -1"},{"Add":"  \"*Extra indent for caml lines starting with the \\\"to\\\" keyword."},{"Add":"Usually negative. nil is align on master.\")"},{"Add":"(make-variable-buffer-local 'caml-to-extra-indent)"},{"Add":""},{"Add":"(defvar caml-with-extra-indent nil"},{"Add":"  \"*Extra indent for caml lines starting with the \\\"with\\\" keyword."},{"Add":"Usually negative. nil is align on master.\")"},{"Add":"(make-variable-buffer-local 'caml-with-extra-indent)"},{"Add":""},{"Add":"(defvar caml-comment-indent 3"},{"Add":"  \"*Indent inside comments.\")"},{"Add":"(make-variable-buffer-local 'caml-comment-indent)"},{"Add":""},{"Add":"(defvar caml-|-extra-indent -2"},{"Add":"  \"*Extra indent for caml lines starting with the | operator."},{"Add":"Usually negative.  nil is align on master.\")"},{"Add":"(make-variable-buffer-local 'caml-|-extra-indent)"},{"Add":""},{"Add":"(defvar caml-rb-extra-indent -2"},{"Add":"  \"*Extra indent for caml lines starting with ]."},{"Add":"Usually negative.  nil is align on master.\")"},{"Add":""},{"Add":"(defvar caml-rc-extra-indent -2"},{"Add":"  \"*Extra indent for caml lines starting with }."},{"Add":"Usually negative.  nil is align on master.\")"},{"Add":""},{"Add":"(defvar caml-rp-extra-indent -1"},{"Add":"  \"*Extra indent for caml lines starting with )."},{"Add":"Usually negative.  nil is align on master.\")"},{"Add":""},{"Add":"(defvar caml-electric-indent t"},{"Add":"  \"*Non-nil means electrically indent lines starting with |, ] or }."},{"Add":""},{"Add":"Many people find electric keys irritating, so you can disable them if"},{"Add":"you are one.\")"},{"Add":""},{"Add":"(defvar caml-electric-close-vector t"},{"Add":"  \"*Non-nil means electrically insert a | before a vector-closing ]."},{"Add":""},{"Add":"Many people find electric keys irritating, so you can disable them if"},{"Add":"you are one.  You should probably have this on, though, if you also"},{"Add":"have `caml-electric-indent' on, which see.\")"},{"Add":""},{"Add":";;code"},{"Add":""},{"Add":"(defvar caml-shell-active nil"},{"Add":"  \"Non nil when a subshell is running.\")"},{"Add":""},{"Add":"(defvar caml-mode-map"},{"Add":"  (let ((map (make-sparse-keymap)))"},{"Add":"    (define-key map \"|\" 'caml-electric-pipe)"},{"Add":"    (define-key map \"}\" 'caml-electric-pipe)"},{"Add":"    (define-key map \"]\" 'caml-electric-rb)"},{"Add":"    (define-key map \"\\t\" 'caml-indent-command)"},{"Add":"    (define-key map [backtab] 'caml-unindent-command)"},{"Add":""},{"Add":"    ;;itz 04-21-96 instead of defining a new function, use defadvice"},{"Add":"    ;;that way we get out effect even when we do \\C-x` in compilation buffer"},{"Add":"    ;;  (define-key map \"\\C-x`\" 'caml-next-error)"},{"Add":""},{"Add":"    ;; caml-types"},{"Add":"    (define-key map [?\\C-c?\\C-t] 'caml-types-show-type)  ; \"type\""},{"Add":"    (define-key map [?\\C-c?\\C-f] 'caml-types-show-call)  ; \"function\""},{"Add":"    (define-key map [?\\C-c?\\C-l] 'caml-types-show-ident) ; \"let\""},{"Add":"    ;; must be a mouse-down event. Can be any button and any prefix"},{"Add":"    (define-key map [?\\C-c down-mouse-1] 'caml-types-explore)"},{"Add":"    ;; caml-help"},{"Add":"    (define-key map [?\\C-c?i] 'ocaml-add-path)"},{"Add":"    (define-key map [?\\C-c?\\]] 'ocaml-close-module)"},{"Add":"    (define-key map [?\\C-c?\\[] 'ocaml-open-module)"},{"Add":"    (define-key map [?\\C-c?\\C-h] 'caml-help)"},{"Add":"    (define-key map [?\\C-c?\\t] 'caml-complete)"},{"Add":"    ;; others"},{"Add":"    (define-key map \"\\C-cb\" 'caml-insert-begin-form)"},{"Add":"    (define-key map \"\\C-cf\" 'caml-insert-for-form)"},{"Add":"    (define-key map \"\\C-ci\" 'caml-insert-if-form)"},{"Add":"    (define-key map \"\\C-cl\" 'caml-insert-let-form)"},{"Add":"    (define-key map \"\\C-cm\" 'caml-insert-match-form)"},{"Add":"    (define-key map \"\\C-ct\" 'caml-insert-try-form)"},{"Add":"    (define-key map \"\\C-cw\" 'caml-insert-while-form)"},{"Add":"    (define-key map \"\\C-c`\" 'caml-goto-phrase-error)"},{"Add":"    (define-key map \"\\C-c\\C-a\" 'caml-find-alternate-file)"},{"Add":"    (define-key map \"\\C-c\\C-c\" 'compile)"},{"Add":"    (define-key map \"\\C-c\\C-e\" 'caml-eval-phrase)"},{"Add":"    (define-key map \"\\C-c\\C-[\" 'caml-backward-to-less-indent)"},{"Add":"    (define-key map \"\\C-c\\C-]\" 'caml-forward-to-less-indent)"},{"Add":"    (define-key map \"\\C-c\\C-q\" 'caml-indent-phrase)"},{"Add":"    (define-key map \"\\C-c\\C-r\" 'caml-eval-region)"},{"Add":"    (define-key map \"\\C-c\\C-s\" 'caml-show-subshell)"},{"Add":"    (define-key map \"\\M-\\C-h\" 'caml-mark-phrase)"},{"Add":"    (define-key map \"\\M-\\C-q\" 'caml-indent-phrase)"},{"Add":"    (define-key map \"\\M-\\C-x\" 'caml-eval-phrase)"},{"Add":""},{"Add":"    (let ((menu (make-sparse-keymap \"Caml\"))"},{"Add":"          (forms (make-sparse-keymap \"Forms\")))"},{"Add":"      (define-key map \"\\C-c\\C-d\" 'caml-show-imenu)"},{"Add":"      (define-key map [menu-bar] (make-sparse-keymap))"},{"Add":"      (define-key map [menu-bar caml] (cons \"Caml\" menu))"},{"Add":"      ;; caml-help"},{"Add":""},{"Add":"      (define-key menu [open] '(\"Open add path\" . ocaml-add-path ))"},{"Add":"      (define-key menu [close]"},{"Add":"        '(\"Close module for help\" . ocaml-close-module))"},{"Add":"      (define-key menu [open] '(\"Open module for help\" . ocaml-open-module))"},{"Add":"      (define-key menu [help] '(\"Help for identifier\" . caml-help))"},{"Add":"      (define-key menu [complete] '(\"Complete identifier\" . caml-complete))"},{"Add":"      (define-key menu [separator-help] '(\"---\"))"},{"Add":""},{"Add":"      ;; caml-types"},{"Add":"      (define-key menu [show-type]"},{"Add":"        '(\"Show type at point\" . caml-types-show-type ))"},{"Add":"      (define-key menu [separator-types] '(\"---\"))"},{"Add":""},{"Add":"      ;; others"},{"Add":"      (define-key menu [camldebug] '(\"Call debugger...\" . camldebug))"},{"Add":"      (define-key menu [run-caml] '(\"Start subshell...\" . run-caml))"},{"Add":"      (define-key menu [compile] '(\"Compile...\" . compile))"},{"Add":"      (define-key menu [switch-view]"},{"Add":"        '(\"Switch view\" . caml-find-alternate-file))"},{"Add":"      (define-key menu [separator-format] '(\"--\"))"},{"Add":"      (define-key menu [forms] (cons \"Forms\" forms))"},{"Add":"      (define-key menu [show-imenu] '(\"Show index\" . caml-show-imenu))"},{"Add":"      (put 'caml-show-imenu 'menu-enable '(not caml-imenu-shown))"},{"Add":"      (define-key menu [show-subshell] '(\"Show subshell\" . caml-show-subshell))"},{"Add":"      (put 'caml-show-subshell 'menu-enable 'caml-shell-active)"},{"Add":"      (define-key menu [eval-phrase] '(\"Eval phrase\" . caml-eval-phrase))"},{"Add":"      (put 'caml-eval-phrase 'menu-enable 'caml-shell-active)"},{"Add":"      (define-key menu [indent-phrase] '(\"Indent phrase\" . caml-indent-phrase))"},{"Add":"      (define-key forms [while]"},{"Add":"        '(\"while .. do .. done\" . caml-insert-while-form))"},{"Add":"      (define-key forms [try] '(\"try .. with ..\" . caml-insert-try-form))"},{"Add":"      (define-key forms [match] '(\"match .. with ..\" . caml-insert-match-form))"},{"Add":"      (define-key forms [let] '(\"let .. in ..\" . caml-insert-let-form))"},{"Add":"      (define-key forms [if] '(\"if .. then .. else ..\" . caml-insert-if-form))"},{"Add":"      (define-key forms [begin] '(\"for .. do .. done\" . caml-insert-for-form))"},{"Add":"      (define-key forms [begin] '(\"begin .. end\" . caml-insert-begin-form)))"},{"Add":"    map)"},{"Add":"  \"Keymap used in Caml mode.\")"},{"Add":""},{"Add":"(defvar caml-mode-syntax-table"},{"Add":"  (let ((st (make-syntax-table)))"},{"Add":"    ;; backslash is an escape sequence"},{"Add":"    (modify-syntax-entry ?\\\\ \"\\\\\" st)"},{"Add":"    ;; ( is first character of comment start"},{"Add":"    (modify-syntax-entry ?\\( \"()1n\" st)"},{"Add":"    ;; * is second character of comment start,"},{"Add":"    ;; and first character of comment end"},{"Add":"    (modify-syntax-entry ?* \". 23n\" st)"},{"Add":"    ;; ) is last character of comment end"},{"Add":"    (modify-syntax-entry ?\\) \")(4\" st)"},{"Add":"    ;; backquote was a string-like delimiter (for character literals)"},{"Add":"    ;; (modify-syntax-entry ?` \"\\\"\" st)"},{"Add":"    ;; quote and underscore are part of words"},{"Add":"    (modify-syntax-entry ?' \"w\" st)"},{"Add":"    (modify-syntax-entry ?_ \"w\" st)"},{"Add":"    ;; ISO-latin accented letters and EUC kanjis are part of words"},{"Add":"    (let ((i 160))"},{"Add":"      (while (< i 256)"},{"Add":"        (modify-syntax-entry i \"w\" st)"},{"Add":"        (setq i (1+ i))))"},{"Add":"    st)"},{"Add":"  \"Syntax table in use in Caml mode buffers.\")"},{"Add":""},{"Add":"(defvar caml-mode-abbrev-table nil"},{"Add":"  \"Abbrev table used for Caml mode buffers.\")"},{"Add":"(if caml-mode-abbrev-table nil"},{"Add":"  (define-abbrev-table 'caml-mode-abbrev-table"},{"Add":"    (mapcar (lambda (keyword)"},{"Add":"              `(,keyword ,keyword caml-abbrev-hook nil t))"},{"Add":"            '(\"and\" \"do\" \"done\" \"else\" \"end\" \"in\" \"then\" \"with\"))))"},{"Add":""},{"Add":";; Other internal variables"},{"Add":""},{"Add":"(defvar caml-imenu-shown nil"},{"Add":"  \"Non-nil if we have computed definition list.\")"},{"Add":"(make-variable-buffer-local 'caml-imenu-shown)"},{"Add":""},{"Add":"(defconst caml-imenu-search-regexp"},{"Add":"  (concat \"\\\\_\\\\|\""},{"Add":"          \"^[ \\t]*\\\\(let\\\\|class\\\\|type\\\\|m\\\\(odule\\\\|ethod\\\\)\""},{"Add":"          \"\\\\|functor\\\\|and\\\\|val\\\\)[ \\t]+\""},{"Add":"          \"\\\\(\\\\('[a-zA-Z0-9]+\\\\|([^)]+)\""},{"Add":"          \"\\\\|mutable\\\\|private\\\\|rec\\\\|type\\\\)[ \\t]+\\\\)?\""},{"Add":"          \"\\\\([a-zA-Z][a-zA-Z0-9_']*\\\\)\"))"},{"Add":""},{"Add":";;; The major mode"},{"Add":"(eval-when-compile"},{"Add":"  (require 'imenu))"},{"Add":""},{"Add":";;"},{"Add":"(defvar caml-mode-hook nil"},{"Add":"  \"Hook for `caml-mode'.\")"},{"Add":""},{"Add":"(define-derived-mode caml-mode prog-mode \"caml\""},{"Add":"  \"Major mode for editing OCaml code.\""},{"Add":"  (setq local-abbrev-table caml-mode-abbrev-table)"},{"Add":"  (make-local-variable 'paragraph-start)"},{"Add":"  (setq paragraph-start (concat \"^$\\\\|\" page-delimiter))"},{"Add":"  (make-local-variable 'paragraph-separate)"},{"Add":"  (setq paragraph-separate paragraph-start)"},{"Add":"  (make-local-variable 'paragraph-ignore-fill-prefix)"},{"Add":"  (setq paragraph-ignore-fill-prefix t)"},{"Add":"  (make-local-variable 'require-final-newline)"},{"Add":"  (setq require-final-newline t)"},{"Add":"  (make-local-variable 'comment-start)"},{"Add":"  (setq comment-start \"(*\")"},{"Add":"  (make-local-variable 'comment-end)"},{"Add":"  (setq comment-end \"*)\")"},{"Add":"  (make-local-variable 'comment-column)"},{"Add":"  (setq comment-column 40)"},{"Add":"  (make-local-variable 'comment-start-skip)"},{"Add":"  (setq comment-start-skip \"(\\\\*+ *\")"},{"Add":"  (make-local-variable 'parse-sexp-ignore-comments)"},{"Add":"  (setq parse-sexp-ignore-comments nil)"},{"Add":"  (make-local-variable 'indent-line-function)"},{"Add":"  (setq indent-line-function #'caml-indent-command)"},{"Add":"  ;itz Fri Sep 25 13:23:49 PDT 1998"},{"Add":"  (make-local-variable 'add-log-current-defun-function)"},{"Add":"  (setq add-log-current-defun-function #'caml-current-defun)"},{"Add":"  ;garrigue 27-11-96"},{"Add":"  (setq case-fold-search nil)"},{"Add":"  ;garrigue july 97"},{"Add":"  ;; imenu support"},{"Add":"  (make-local-variable 'imenu-create-index-function)"},{"Add":"  (setq imenu-create-index-function #'caml-create-index-function)"},{"Add":"  (make-local-variable 'imenu-generic-expression)"},{"Add":"  (setq imenu-generic-expression caml-imenu-search-regexp)"},{"Add":"  (if (and caml-imenu-enable (< (buffer-size) 10000))"},{"Add":"      (caml-show-imenu)))"},{"Add":""},{"Add":""},{"Add":";; Disabled because it assumes make and does not play well with ocamlbuild."},{"Add":";; See PR#4469 for details."},{"Add":""},{"Add":";; (defun caml-set-compile-command ()"},{"Add":";;   \"Hook to set compile-command locally, unless there is a Makefile or"},{"Add":";;    a _build directory or a _tags file in the current directory.\""},{"Add":";;   (interactive)"},{"Add":";;   (unless (or (null buffer-file-name)"},{"Add":";;               (file-exists-p \"makefile\")"},{"Add":";;               (file-exists-p \"Makefile\")"},{"Add":";;               (file-exists-p \"_build\")"},{"Add":";;               (file-exists-p \"_tags\"))"},{"Add":";;     (let* ((filename (file-name-nondirectory buffer-file-name))"},{"Add":";;            (basename (file-name-sans-extension filename))"},{"Add":";;            (command nil))"},{"Add":";;       (cond"},{"Add":";;        ((string-match \".*\\\\.mli\\$\" filename)"},{"Add":";;         (setq command \"ocamlc -c\"))"},{"Add":";;        ((string-match \".*\\\\.ml\\$\" filename)"},{"Add":";;         (setq command \"ocamlc -c\") ; (concat \"ocamlc -o \" basename)"},{"Add":";;         )"},{"Add":";;        ((string-match \".*\\\\.mll\\$\" filename)"},{"Add":";;         (setq command \"ocamllex\"))"},{"Add":";;        ((string-match \".*\\\\.mll\\$\" filename)"},{"Add":";;         (setq command \"ocamlyacc\"))"},{"Add":";;        )"},{"Add":";;       (if command"},{"Add":";;           (progn"},{"Add":";;             (make-local-variable 'compile-command)"},{"Add":";;             (setq compile-command (concat command \" \" filename))))"},{"Add":";;       )))"},{"Add":""},{"Add":";; (add-hook 'caml-mode-hook #'caml-set-compile-command)"},{"Add":""},{"Add":""},{"Add":";;; Auxiliary function. Garrigue 96-11-01."},{"Add":""},{"Add":"(defun caml-find-alternate-file ()"},{"Add":"  \"Find the `.mli' file for the open `.ml' file, or vice versa.\""},{"Add":"  (interactive)"},{"Add":"  (let ((name (buffer-file-name)))"},{"Add":"    (if (string-match \"^\\\\(.*\\\\)\\\\.\\\\(ml\\\\|mli\\\\)$\" name)"},{"Add":"        (find-file"},{"Add":"         (concat"},{"Add":"          (caml-match-string 1 name)"},{"Add":"          (if (string= \"ml\" (caml-match-string 2 name)) \".mli\" \".ml\"))))))"},{"Add":""},{"Add":";;; subshell support"},{"Add":""},{"Add":"(defun caml-eval-region (start end)"},{"Add":"  \"Evaluate the region."},{"Add":"Send the current region bounded by START and END to the inferior"},{"Add":"OCaml process.\""},{"Add":"  (interactive\"r\")"},{"Add":"  (require 'inf-caml)"},{"Add":"  (declare-function inferior-caml-eval-region \"inf-caml\")"},{"Add":"  (inferior-caml-eval-region start end))"},{"Add":""},{"Add":";; old version ---to be deleted later"},{"Add":";"},{"Add":"; (defun caml-eval-phrase ()"},{"Add":";   \"Send the current OCaml phrase to the inferior Caml process.\""},{"Add":";   (interactive)"},{"Add":";   (save-excursion"},{"Add":";     (let ((bounds (caml-mark-phrase)))"},{"Add":";     (inferior-caml-eval-region (car bounds) (cdr bounds)))))"},{"Add":""},{"Add":"(defun caml-eval-phrase (arg &optional min max)"},{"Add":"  \"Send the phrase containing the point to the CAML process."},{"Add":"With a prefix argument send as many phrases as its numeric value,"},{"Add":"If an error occurs during evaluation, stop at this phrase and"},{"Add":"report the error."},{"Add":""},{"Add":"Return nil if noerror and position of error if any."},{"Add":""},{"Add":"If ARG's numeric value is zero or negative, evaluate the current phrase"},{"Add":"or as many as prefix arg, ignoring evaluation errors."},{"Add":"This allows to jump other erroneous phrases."},{"Add":""},{"Add":"Optional arguments MIN MAX defines a region within which the phrase"},{"Add":"should lies.\""},{"Add":"  (interactive \"p\")"},{"Add":"  (require 'inf-caml)"},{"Add":"  (declare-function inferior-caml-eval-phrase \"inf-caml\")"},{"Add":"  (inferior-caml-eval-phrase arg min max))"},{"Add":""},{"Add":"(defun caml-eval-buffer (arg)"},{"Add":"  \"Evaluate the buffer from the beginning to the phrase under the point."},{"Add":"With a prefix ARG, evaluate past the whole buffer, no"},{"Add":"stopping at the current point.\""},{"Add":"  (interactive \"p\")"},{"Add":"  (let ((here (point)) err)"},{"Add":"    (goto-char (point-min))"},{"Add":"    (setq err"},{"Add":"          (caml-eval-phrase 500 (point-min) (if arg (point-max) here)))"},{"Add":"    (if err (set-mark err))"},{"Add":"    (goto-char here)))"},{"Add":""},{"Add":"(defun caml-show-subshell ()"},{"Add":"  \"Start an inferior subshell.\""},{"Add":"  (interactive)"},{"Add":"  (require 'inf-caml)"},{"Add":"  (declare-function inferior-caml-show-subshell \"inf-caml\")"},{"Add":"  (inferior-caml-show-subshell))"},{"Add":""},{"Add":""},{"Add":";;; Imenu support"},{"Add":"(defun caml-show-imenu ()"},{"Add":"  \"Open `imenu'.\""},{"Add":"  (interactive)"},{"Add":"  (require 'imenu)"},{"Add":"  (switch-to-buffer (current-buffer))"},{"Add":"  (imenu-add-to-menubar \"Defs\")"},{"Add":"  (setq caml-imenu-shown t))"},{"Add":""},{"Add":"(defun caml-prev-index-position-function ()"},{"Add":"  \"Locate the previous imenu entry.\""},{"Add":"  (let (found data)"},{"Add":"    (while (and (setq found"},{"Add":"                      (re-search-backward caml-imenu-search-regexp nil 'move))"},{"Add":"                (progn (setq data (match-data)) t)"},{"Add":"                (or (caml-in-literal-p)"},{"Add":"                    (caml-in-comment-p)"},{"Add":"                    (if (looking-at \"in\") (caml-find-in-match)))))"},{"Add":"    (set-match-data data)"},{"Add":"    found))"},{"Add":""},{"Add":"(defun caml-create-index-function ()"},{"Add":"  \"Create an index alist for OCaml files."},{"Add":"See `imenu-create-index-function'.\""},{"Add":"  (let (value-alist"},{"Add":"        type-alist"},{"Add":"        class-alist"},{"Add":"        method-alist"},{"Add":"        module-alist"},{"Add":"        and-alist"},{"Add":"        all-alist"},{"Add":"        menu-alist"},{"Add":"        (prev-pos (point-max))"},{"Add":"        index)"},{"Add":"    (goto-char prev-pos)"},{"Add":"    ;; collect definitions"},{"Add":"    (while (caml-prev-index-position-function)"},{"Add":"      (setq index (cons (caml-match-string 5) (point)))"},{"Add":"      (setq all-alist (cons index all-alist))"},{"Add":"      (cond"},{"Add":"       ((looking-at \"[ \\t]*and\")"},{"Add":"        (setq and-alist (cons index and-alist)))"},{"Add":"       ((looking-at \"[ \\t]*let\")"},{"Add":"        (setq value-alist (cons index (append and-alist value-alist)))"},{"Add":"        (setq and-alist nil))"},{"Add":"       ((looking-at \"[ \\t]*type\")"},{"Add":"        (setq type-alist (cons index (append and-alist type-alist)))"},{"Add":"        (setq and-alist nil))"},{"Add":"       ((looking-at \"[ \\t]*class\")"},{"Add":"        (setq class-alist (cons index (append and-alist class-alist)))"},{"Add":"        (setq and-alist nil))"},{"Add":"       ((looking-at \"[ \\t]*val\")"},{"Add":"        (setq value-alist (cons index value-alist)))"},{"Add":"       ((looking-at \"[ \\t]*\\\\(module\\\\|functor\\\\)\")"},{"Add":"        (setq module-alist (cons index module-alist)))"},{"Add":"       ((looking-at \"[ \\t]*method\")"},{"Add":"        (setq method-alist (cons index method-alist)))))"},{"Add":"    ;; build menu"},{"Add":"    (mapc"},{"Add":"     (lambda (pair)"},{"Add":"       (if (not (null (cdr pair)))"},{"Add":"           (setq menu-alist"},{"Add":"                 (cons"},{"Add":"                  (cons (car pair)"},{"Add":"                        (sort (cdr pair) 'imenu--sort-by-name))"},{"Add":"                  menu-alist))))"},{"Add":"     `((\"Values\" . ,value-alist)"},{"Add":"       (\"Types\" . ,type-alist)"},{"Add":"       (\"Modules\" . ,module-alist)"},{"Add":"       (\"Methods\" . ,method-alist)"},{"Add":"       (\"Classes\" . ,class-alist)))"},{"Add":"    (if all-alist (setq menu-alist (cons (cons \"Index\" all-alist) menu-alist)))"},{"Add":"    menu-alist))"},{"Add":""},{"Add":";;; Indentation stuff"},{"Add":""},{"Add":"(defun caml-in-indentation ()"},{"Add":"  \"Test if inside indentation."},{"Add":"This function tests whether all characters between beginning of"},{"Add":"line and point are blanks.\""},{"Add":"  (save-excursion"},{"Add":"    (skip-chars-backward \" \\t\")"},{"Add":"    (bolp)))"},{"Add":""},{"Add":";;; The command"},{"Add":";;; Sorry, I didn't like the previous behaviour... Garrigue 96/11/01"},{"Add":""},{"Add":"(defun caml-indent-command (&optional p)"},{"Add":"  \"Indent the current line in Caml mode."},{"Add":"Compute new indentation based on Caml syntax.  If prefixed P,"},{"Add":"indent the line all the way to where point is.\""},{"Add":""},{"Add":"  (interactive \"*p\")"},{"Add":"  (cond"},{"Add":"   ((and p (> p 1)) (indent-line-to (current-column)))"},{"Add":"   ((caml-in-indentation) (indent-line-to (caml-compute-final-indent)))"},{"Add":"   (t (save-excursion"},{"Add":"        (indent-line-to"},{"Add":"         (caml-compute-final-indent))))))"},{"Add":""},{"Add":"(defun caml-unindent-command ()"},{"Add":""},{"Add":"  \"Decrease indentation by one level in Caml mode."},{"Add":""},{"Add":"Works only if the point is at the beginning of an indented line"},{"Add":"\\(i.e., all characters between beginning of line and point are"},{"Add":"blanks\\).  Does nothing otherwise.  The unindent size is given by the"},{"Add":"variable `caml-mode-indentation'.\""},{"Add":""},{"Add":"  (interactive \"*\")"},{"Add":"  (let* ((begline"},{"Add":"          (save-excursion"},{"Add":"            (beginning-of-line)"},{"Add":"            (point)))"},{"Add":"         (current-offset"},{"Add":"          (- (point) begline)))"},{"Add":"    (if (and (>= current-offset caml-mode-indentation)"},{"Add":"             (caml-in-indentation))"},{"Add":"        (backward-delete-char-untabify caml-mode-indentation))))"},{"Add":""},{"Add":";;;"},{"Add":";;; Error processing"},{"Add":";;;"},{"Add":""},{"Add":";; Error positions are given in bytes, not in characters"},{"Add":";; This function switches to monobyte mode"},{"Add":""},{"Add":"(require 'compile)"},{"Add":""},{"Add":"(defconst caml--error-regexp"},{"Add":"  (rx bol"},{"Add":"      (* \" \")"},{"Add":"      (group                                ; 1: HIGHLIGHT"},{"Add":"       (or \"File \""},{"Add":"           ;; Exception backtrace."},{"Add":"           (seq"},{"Add":"            (or \"Raised at\" \"Re-raised at\" \"Raised by primitive operation at\""},{"Add":"                \"Called from\")"},{"Add":"            (* nonl)            ; OCaml ≥4.11: \" FUNCTION in\""},{"Add":"            \" file \"))"},{"Add":"       (group (? \"\\\"\"))                     ; 2"},{"Add":"       (group (+ (not (in \"\\t\\n \\\",<>\"))))  ; 3: FILE"},{"Add":"       (backref 2)"},{"Add":"       (? \" (inlined)\")"},{"Add":"       \", line\" (? \"s\") \" \""},{"Add":"       (group (+ (in \"0-9\")))               ; 4: LINE-START"},{"Add":"       (? \"-\" (group (+ (in \"0-9\"))))       ; 5; LINE-END"},{"Add":"       (? \", character\" (? \"s\") \" \""},{"Add":"          (group (+ (in \"0-9\")))            ; 6: COL-START"},{"Add":"          (? \"-\" (group (+ (in \"0-9\")))))   ; 7: COL-END"},{"Add":"       ;; Colon not present in backtraces."},{"Add":"       (? \":\"))"},{"Add":"      (? \"\\n\""},{"Add":"         (* (in \"\\t \"))"},{"Add":"         (* (or (seq (+ (in \"0-9\"))"},{"Add":"                     \" | \""},{"Add":"                     (* nonl))"},{"Add":"                (+ \"^\"))"},{"Add":"            \"\\n\""},{"Add":"            (* (in \"\\t \")))"},{"Add":"         (group \"Warning\"                   ; 8: WARNING"},{"Add":"                (? \" \" (+ (in \"0-9\")))"},{"Add":"                (? \" [\" (+ (in \"a-z0-9-\")) \"]\")"},{"Add":"                \":\")))"},{"Add":"  \"Regular expression matching the error messages produced by ocamlc/ocamlopt."},{"Add":"Also matches source references in exception backtraces.\")"},{"Add":""},{"Add":"(defun caml--end-column ()"},{"Add":"  \"Return the end-column number in a parsed OCaml message."},{"Add":"OCaml uses exclusive end-columns but Emacs wants them to be inclusive.\""},{"Add":"  (and (match-beginning 7)"},{"Add":"       (+ (string-to-number (match-string 7))"},{"Add":"          ;; Prior to Emacs 28, the end-column function value was incorrectly"},{"Add":"          ;; off by one."},{"Add":"          (if (>= emacs-major-version 28) -1 0))))"},{"Add":""},{"Add":"(when (boundp 'compilation-error-regexp-alist-alist)"},{"Add":"  (push `(ocaml ,caml--error-regexp 3 (4 . 5) (6 . caml--end-column) (8) 1"},{"Add":"                (8 font-lock-function-name-face))"},{"Add":"        compilation-error-regexp-alist-alist))"},{"Add":""},{"Add":"(when (boundp 'compilation-error-regexp-alist)"},{"Add":"  (push 'ocaml compilation-error-regexp-alist))"},{"Add":""},{"Add":";; A regexp to extract the range info"},{"Add":""},{"Add":"(defconst caml-error-chars-regexp"},{"Add":"  \".*, .*, [A-\\377]+ \\\\([0-9]+\\\\)-\\\\([0-9]+\\\\):?\""},{"Add":"  \"Regular expression used by `next-error'."},{"Add":"This regular expression extracts the character numbers from an"},{"Add":"error message produced by ocamlc.\")"},{"Add":""},{"Add":";; Wrapper around next-error."},{"Add":""},{"Add":"(defvar caml-error-overlay nil)"},{"Add":"(defvar caml-next-error-skip-warnings-flag nil)"},{"Add":""},{"Add":";;itz 04-21-96 somebody didn't get the documentation for next-error"},{"Add":";;right. When the optional argument is a number n, it should move"},{"Add":";;forward n errors, not reparse."},{"Add":""},{"Add":";itz 04-21-96 instead of defining a new function, use defadvice"},{"Add":";that way we get our effect even when we do \\C-x` in compilation buffer"},{"Add":""},{"Add":"(defadvice next-error (after caml-next-error activate)"},{"Add":"  \"Read the extra positional information provided by the OCaml compiler."},{"Add":""},{"Add":"Puts the point and the mark exactly around the erroneous program"},{"Add":"fragment.  The erroneous fragment is also temporarily highlighted if"},{"Add":"possible.\""},{"Add":""},{"Add":" (if (eq major-mode 'caml-mode)"},{"Add":"     (let (skip bol beg end)"},{"Add":"       (save-excursion"},{"Add":"         (with-current-buffer"},{"Add":"             (if (boundp 'compilation-last-buffer)"},{"Add":"                 compilation-last-buffer   ;Emacs 19"},{"Add":"               \"*compilation*\")           ;Emacs 18"},{"Add":"           (save-excursion"},{"Add":"             (goto-char (window-point (get-buffer-window (current-buffer))))"},{"Add":"             (if (looking-at caml-error-chars-regexp)"},{"Add":"                 (setq beg"},{"Add":"                       (string-to-number"},{"Add":"                        (buffer-substring (match-beginning 1) (match-end 1)))"},{"Add":"                       end"},{"Add":"                       (string-to-number"},{"Add":"                        (buffer-substring (match-beginning 2) (match-end 2)))))"},{"Add":"             (forward-line 1)"},{"Add":"             (beginning-of-line)"},{"Add":"             (if (and (looking-at \"Warning\")"},{"Add":"                      caml-next-error-skip-warnings-flag)"},{"Add":"                 (setq skip 't)))))"},{"Add":"       (cond"},{"Add":"        (skip (next-error))"},{"Add":"        (beg"},{"Add":"              (setq end (- end beg))"},{"Add":"              (beginning-of-line)"},{"Add":"              (forward-char beg)"},{"Add":"              (setq beg (point))"},{"Add":"              (forward-char end)"},{"Add":"              (setq end (point))"},{"Add":"              (goto-char beg)"},{"Add":"              (push-mark end t)"},{"Add":"              (cond ((fboundp 'make-overlay)"},{"Add":"                     (if caml-error-overlay ()"},{"Add":"                       (setq caml-error-overlay (make-overlay 1 1))"},{"Add":"                       (overlay-put caml-error-overlay 'face 'region))"},{"Add":"                     (unwind-protect"},{"Add":"                         (progn"},{"Add":"                           (move-overlay caml-error-overlay"},{"Add":"                                         beg end (current-buffer))"},{"Add":"                           (sit-for 60))"},{"Add":"                       (delete-overlay caml-error-overlay)))))))))"},{"Add":""},{"Add":"(defun caml-next-error-skip-warnings (&rest args)"},{"Add":"  \"Same as `next-error' but skip warnings."},{"Add":"For the arguments ARGS, see `next-error'.\""},{"Add":"  (let ((old-flag caml-next-error-skip-warnings-flag))"},{"Add":"    (unwind-protect"},{"Add":"        (progn (setq caml-next-error-skip-warnings-flag 't)"},{"Add":"               (apply #'next-error args))"},{"Add":"      (setq caml-next-error-skip-warnings-flag old-flag))))"},{"Add":""},{"Add":""},{"Add":";; Usual match-string doesn't work properly with font-lock-mode"},{"Add":";; on some emacs."},{"Add":""},{"Add":"(defun caml-match-string (num &optional string)"},{"Add":"  \"Return string of text matched by last search, without properties."},{"Add":""},{"Add":"NUM specifies which parenthesized expression in the last regexp."},{"Add":"Value is nil if NUMth pair didn't match, or there were less than"},{"Add":"NUM pairs.  Zero means the entire text matched by the whole regexp"},{"Add":"or whole string.  Uses STRING is given and otherwise extracts from"},{"Add":"buffer.\""},{"Add":""},{"Add":"  (let* ((data (match-data))"},{"Add":"         (begin (nth (* 2 num) data))"},{"Add":"         (end (nth (1+ (* 2 num)) data)))"},{"Add":"    (if string (substring string begin end)"},{"Add":"      (buffer-substring-no-properties begin end))))"},{"Add":""},{"Add":";; itz Thu Sep 24 19:02:42 PDT 1998 this is to have some level of"},{"Add":";; comfort when sending phrases to the toplevel and getting errors."},{"Add":"(defun caml-goto-phrase-error ()"},{"Add":"  \"Find the error location in current OCaml phrase.\""},{"Add":"  (interactive)"},{"Add":"  (require 'inf-caml)"},{"Add":"  (declare-function inferior-caml-goto-error \"inf-caml\")"},{"Add":"  (let ((bounds (save-excursion (caml-mark-phrase))))"},{"Add":"    (inferior-caml-goto-error (car bounds) (cdr bounds))))"},{"Add":""},{"Add":";;; Phrases"},{"Add":""},{"Add":";itz the heuristics used to see if we're `between two phrases'"},{"Add":";didn't seem right to me."},{"Add":""},{"Add":"(defconst caml-phrase-start-keywords"},{"Add":"  (concat \"\\\\_<\\\\(class\\\\|ex\\\\(ternal\\\\|ception\\\\)\\\\|functor\""},{"Add":"          \"\\\\|let\\\\|module\\\\|open\\\\|type\\\\|val\\\\)\\\\_>\")"},{"Add":"  \"Keywords starting phrases in files.\")"},{"Add":""},{"Add":"(defun caml-at-phrase-start-p ()"},{"Add":"  \"Check if at the start of a phrase."},{"Add":"A phrase starts when a toplevel keyword is at the beginning of a"},{"Add":"line.\""},{"Add":"  (and (bolp)"},{"Add":"       (or (looking-at \"#\")"},{"Add":"           (looking-at caml-phrase-start-keywords))))"},{"Add":""},{"Add":"(defun caml-skip-comments-forward ()"},{"Add":"  \"Skip forward past comments.\""},{"Add":"  (skip-chars-forward \" \\n\\t\")"},{"Add":"  (while (or (looking-at comment-start-skip) (caml-in-comment-p))"},{"Add":"    (if (= (following-char) ?\\)) (forward-char)"},{"Add":"      (search-forward comment-end))"},{"Add":"    (skip-chars-forward \" \\n\\t\")))"},{"Add":""},{"Add":"(defun caml-skip-comments-backward ()"},{"Add":"  \"Skip backward past comments.\""},{"Add":"  (skip-chars-backward \" \\n\\t\")"},{"Add":"  (while (and (eq (preceding-char) ?\\)) (eq (char-after (- (point) 2)) ?*))"},{"Add":"    (backward-char)"},{"Add":"    (while (caml-in-comment-p) (search-backward comment-start))"},{"Add":"    (skip-chars-backward \" \\n\\t\")))"},{"Add":""},{"Add":"(defconst caml-phrase-sep-keywords (concat \";;\\\\|\" caml-phrase-start-keywords))"},{"Add":""},{"Add":"(defun caml-find-phrase (&optional min-pos max-pos)"},{"Add":"  \"Find the CAML phrase containing the point."},{"Add":"Return the position of the beginning of the phrase, and move"},{"Add":"point to the end.  Optionally operates between MIN-POS and"},{"Add":"MAX-POS.\""},{"Add":"  (interactive)"},{"Add":"  (if (not min-pos) (setq min-pos (point-min)))"},{"Add":"  (if (not max-pos) (setq max-pos (point-max)))"},{"Add":"  (let (beg end kwop)"},{"Add":"    ;(caml-skip-comments-backward)"},{"Add":"    (cond"},{"Add":"     ; shall we have special processing for semicolons?"},{"Add":"     ;((and (eq (char-before (- (point) 1)) ?\\;) (eq (char-before) ?\\;))"},{"Add":"     ; (forward-char)"},{"Add":"     ; (caml-skip-comments-forward)"},{"Add":"     ; (setq beg (point))"},{"Add":"     ; (while (and (search-forward \";;\" max-pos 'move)"},{"Add":"     ;    (or (caml-in-comment-p) (caml-in-literal-p)))))"},{"Add":"     (t"},{"Add":"      (caml-skip-comments-forward)"},{"Add":"      (if (caml-at-phrase-start-p) (forward-char))"},{"Add":"      (while (and (cond"},{"Add":"                   ((re-search-forward caml-phrase-sep-keywords max-pos 'move)"},{"Add":"                    (goto-char (match-beginning 0)) t))"},{"Add":"                  (or (not (or (bolp) (looking-at \";;\")))"},{"Add":"                      (caml-in-comment-p)"},{"Add":"                      (caml-in-literal-p)))"},{"Add":"        (forward-char))"},{"Add":"      (setq end (+ (point) (if (looking-at \";;\") 2 0)))"},{"Add":"      (while (and"},{"Add":"              (setq kwop (caml-find-kwop caml-phrase-sep-keywords min-pos))"},{"Add":"              (not (string= kwop \";;\"))"},{"Add":"              (not (bolp))))"},{"Add":"      (if (string= kwop \";;\") (forward-char 2))"},{"Add":"      (if (not kwop) (goto-char min-pos))"},{"Add":"      (caml-skip-comments-forward)"},{"Add":"      (setq beg (point))"},{"Add":"      (if (>= beg end) (error \"No phrase before point\"))"},{"Add":"      (goto-char end)))"},{"Add":"    (caml-skip-comments-forward)"},{"Add":"    beg))"},{"Add":""},{"Add":"(defun caml-mark-phrase (&optional min-pos max-pos)"},{"Add":"  \"Put mark at end of this OCaml phrase, point at beginning."},{"Add":"Optionally operates between MIN-POS and MAX-POS.\""},{"Add":"  (interactive)"},{"Add":"  (let* ((beg (caml-find-phrase min-pos max-pos)) (end (point)))"},{"Add":"    (push-mark)"},{"Add":"    (goto-char beg)"},{"Add":"    (cons beg end)))"},{"Add":""},{"Add":";;itz Fri Sep 25 12:58:13 PDT 1998 support for adding change-log entries"},{"Add":"(defun caml-current-defun ()"},{"Add":"  \"Return the location of the definition around the point.\""},{"Add":"  (save-excursion"},{"Add":"    (caml-mark-phrase)"},{"Add":"    (if (not (looking-at caml-phrase-start-keywords)) nil"},{"Add":"      (re-search-forward caml-phrase-start-keywords)"},{"Add":"      (let ((done nil))"},{"Add":"        (while (not done)"},{"Add":"          (cond"},{"Add":"           ((looking-at \"\\\\s \")"},{"Add":"            (skip-syntax-forward \" \"))"},{"Add":"           ((char-equal (following-char) ?\\( )"},{"Add":"            (forward-sexp 1))"},{"Add":"           ((char-equal (following-char) ?')"},{"Add":"            (skip-syntax-forward \"w_\"))"},{"Add":"           (t (setq done t)))))"},{"Add":"      (re-search-forward \"\\\\(\\\\sw\\\\|\\\\s_\\\\)+\")"},{"Add":"      (match-string 0))))"},{"Add":""},{"Add":"(defun caml-overlap (b1 e1 b2 e2)"},{"Add":"  \"Return non-nil if the closed ranges B1..E1 and B2..E2 overlap.\""},{"Add":"  (<= (max b1 b2) (min e1 e2)))"},{"Add":""},{"Add":"(defun caml-in-literal-p ()"},{"Add":"  \"Return non-nil if point is inside a caml literal.\""},{"Add":"  (let* ((start-literal (concat \"[\\\"\" caml-quote-char \"]\"))"},{"Add":"         (char-literal"},{"Add":"          (concat \"\\\\([^\\\\]\\\\|\\\\\\\\\\\\.\\\\|\\\\\\\\[0-9][0-9][0-9]\\\\)\""},{"Add":"                  caml-quote-char))"},{"Add":"         (pos (point))"},{"Add":"         (eol (progn (end-of-line 1) (point)))"},{"Add":"         state in-str)"},{"Add":"    (beginning-of-line 1)"},{"Add":"    (while (and (not state)"},{"Add":"                (re-search-forward start-literal eol t)"},{"Add":"                (<= (point) pos))"},{"Add":"      (cond"},{"Add":"       ((string= (caml-match-string 0) \"\\\"\")"},{"Add":"        (setq in-str t)"},{"Add":"        (while (and in-str (not state)"},{"Add":"                    (re-search-forward \"\\\"\\\\|\\\\\\\\\\\"\" eol t))"},{"Add":"          (if (> (point) pos) (setq state t))"},{"Add":"          (if (string= (caml-match-string 0) \"\\\"\") (setq in-str nil)))"},{"Add":"        (if in-str (setq state t)))"},{"Add":"       ((looking-at char-literal)"},{"Add":"        (if (and (>= pos (match-beginning 0)) (< pos (match-end 0)))"},{"Add":"            (setq state t)"},{"Add":"          (goto-char (match-end 0))))))"},{"Add":"    (goto-char pos)"},{"Add":"    state))"},{"Add":""},{"Add":"(defun caml-forward-comment ()"},{"Add":"  \"Skip one (eventually nested) comment.\""},{"Add":"  (let ((count 1) match)"},{"Add":"    (while (> count 0)"},{"Add":"      (if (not (re-search-forward \"(\\\\*\\\\|\\\\*)\" nil 'move))"},{"Add":"          (setq count -1)"},{"Add":"        (setq match (caml-match-string 0))"},{"Add":"        (cond"},{"Add":"         ((caml-in-literal-p)"},{"Add":"          nil)"},{"Add":"         ((string= match comment-start)"},{"Add":"          (setq count (1+ count)))"},{"Add":"         (t"},{"Add":"          (setq count (1- count))))))"},{"Add":"    (= count 0)))"},{"Add":""},{"Add":"(defun caml-backward-comment ()"},{"Add":"  \"Skip one (eventually nested) comment.\""},{"Add":"  (let ((count 1) match)"},{"Add":"    (while (> count 0)"},{"Add":"      (if (not (re-search-backward \"(\\\\*\\\\|\\\\*)\" nil 'move))"},{"Add":"          (setq count -1)"},{"Add":"        (setq match (caml-match-string 0))"},{"Add":"        (cond"},{"Add":"         ((caml-in-literal-p)"},{"Add":"          nil)"},{"Add":"         ((string= match comment-start)"},{"Add":"          (setq count (1- count)))"},{"Add":"         (t"},{"Add":"          (setq count (1+ count))))))"},{"Add":"    (= count 0)))"},{"Add":""},{"Add":"(defun caml-in-comment-p ()"},{"Add":"  \"Return non-nil if point is inside a caml comment."},{"Add":"Returns nil for the parenthesis opening a comment.\""},{"Add":"  (nth 4 (syntax-ppss)))"},{"Add":""},{"Add":";; Various constants and regexps"},{"Add":""},{"Add":"(defconst caml-before-expr-prefix"},{"Add":"  (concat \"\\\\_<\\\\(asr\\\\|begin\\\\|class\\\\|do\\\\(wnto\\\\)?\\\\|else\""},{"Add":"          \"\\\\|i\\\\(f\\\\|n\\\\(herit\\\\|itializer\\\\)?\\\\)\""},{"Add":"          \"\\\\|f\\\\(or\\\\|un\\\\(ct\\\\(ion\\\\|or\\\\)\\\\)?\\\\)\""},{"Add":"          \"\\\\|l\\\\(and\\\\|or\\\\|s[lr]\\\\|xor\\\\)\\\\|m\\\\(atch\\\\|od\\\\)\""},{"Add":"          \"\\\\|o[fr]\\\\|parser\\\\|s\\\\(ig\\\\|truct\\\\)\\\\|t\\\\(hen\\\\|o\\\\|ry\\\\)\""},{"Add":"          \"\\\\|w\\\\(h\\\\(en\\\\|ile\\\\)\\\\|ith\\\\)\\\\)\\\\_>\\\\|:begin\\\\_>\""},{"Add":"          \"\\\\|[=<>@^|&+-*/$%][!$%*+-./:<=>?@^|~]*\\\\|:[:=]\\\\|[[({,;]\")"},{"Add":""},{"Add":"  \"Keywords that may appear immediately before an expression."},{"Add":"Used to distinguish it from toplevel let construct.\")"},{"Add":""},{"Add":"(defconst caml-matching-kw-regexp"},{"Add":"  (concat"},{"Add":"   \"\\\\_<\\\\(and\\\\|do\\\\(ne\\\\|wnto\\\\)?\\\\|e\\\\(lse\\\\|nd\\\\)\\\\|in\\\\|t\\\\(hen\\\\|o\\\\)\""},{"Add":"   \"\\\\|with\\\\)\\\\_>\\\\|[^[|]|\")"},{"Add":"  \"Regexp used in caml mode for skipping back over nested blocks.\")"},{"Add":""},{"Add":"(defconst caml-matching-kw-alist"},{"Add":"  '((\"|\" . caml-find-pipe-match)"},{"Add":"    (\";\" . caml-find-semi-match)"},{"Add":"    (\",\" . caml-find-comma-match)"},{"Add":"    (\"end\" . caml-find-end-match)"},{"Add":"    (\"done\" . caml-find-done-match)"},{"Add":"    (\"in\"  . caml-find-in-match)"},{"Add":"    (\"with\" . caml-find-with-match)"},{"Add":"    (\"else\" . caml-find-else-match)"},{"Add":"    (\"then\" . caml-find-then-match)"},{"Add":"    (\"to\" . caml-find-done-match)"},{"Add":"    (\"downto\" . caml-find-done-match)"},{"Add":"    (\"do\" . caml-find-done-match)"},{"Add":"    (\"and\" . caml-find-and-match))"},{"Add":""},{"Add":"  \"Association list used in caml mode for skipping back over nested blocks.\")"},{"Add":""},{"Add":"(defconst caml-kwop-regexps (make-vector 9 nil)"},{"Add":"  \"Array of regexps representing caml keywords of different priorities.\")"},{"Add":""},{"Add":"(defun caml-in-shebang-line ()"},{"Add":"  \"Check if in shebang.\""},{"Add":"  (save-excursion"},{"Add":"    (beginning-of-line)"},{"Add":"    (and (= 1 (point)) (looking-at \"#!\"))))"},{"Add":""},{"Add":"(defun caml-in-expr-p ()"},{"Add":"  \"Check if in expression.\""},{"Add":"  (let ((pos (point)) (in-expr t))"},{"Add":"    (caml-find-kwop"},{"Add":"     (concat caml-before-expr-prefix \"\\\\|\""},{"Add":"             caml-matching-kw-regexp \"\\\\|\""},{"Add":"             (aref caml-kwop-regexps caml-max-indent-priority)))"},{"Add":"    (cond"},{"Add":"     ; special case for #! at beginning of file"},{"Add":"     ((caml-in-shebang-line) (setq in-expr nil))"},{"Add":"     ; special case for ;;"},{"Add":"     ((and (> (point) 1) (= (preceding-char) ?\\;) (= (following-char) ?\\;))"},{"Add":"      (setq in-expr nil))"},{"Add":"     ((looking-at caml-before-expr-prefix)"},{"Add":"      (if (not (looking-at \"(\\\\*\")) (goto-char (match-end 0)))"},{"Add":"      (skip-chars-forward \" \\t\\n\")"},{"Add":"      (while (looking-at \"(\\\\*\")"},{"Add":"        (forward-char)"},{"Add":"        (caml-forward-comment)"},{"Add":"        (skip-chars-forward \" \\t\\n\"))"},{"Add":"      (if (<= pos (point)) (setq in-expr nil))))"},{"Add":"    (goto-char pos)"},{"Add":"    in-expr))"},{"Add":""},{"Add":"(defun caml-at-sexp-close-p ()"},{"Add":"  \"Check if at end of sexp.\""},{"Add":"  (or (char-equal ?\\) (following-char))"},{"Add":"      (char-equal ?\\] (following-char))"},{"Add":"      (char-equal ?\\} (following-char))))"},{"Add":""},{"Add":"(defun caml-find-kwop (kwop-regexp &optional min-pos)"},{"Add":"  \"Look back for a caml keyword or operator matching KWOP-REGEXP."},{"Add":"Second optional argument MIN-POS bounds the search."},{"Add":""},{"Add":"Ignore occurrences inside literals.  If found, return a list of two"},{"Add":"values: the actual text of the keyword or operator, and a boolean"},{"Add":"indicating whether the keyword was one we looked for explicitly"},{"Add":"{non-nil}, or on the other hand one of the block-terminating"},{"Add":"keywords.\""},{"Add":""},{"Add":"  (let ((start-literal (concat \"[\\\"\" caml-quote-char \"]\"))"},{"Add":"        found kwop)"},{"Add":"    (while (and (> (point) 1) (not found)"},{"Add":"                (re-search-backward kwop-regexp min-pos 'move))"},{"Add":"      (setq kwop (caml-match-string 0))"},{"Add":"      (cond"},{"Add":"       ((looking-at \"(\\\\*\")"},{"Add":"        (if (> (point) 1) (backward-char)))"},{"Add":"       ((caml-in-comment-p)"},{"Add":"        (search-backward \"(\" min-pos 'move))"},{"Add":"       ((looking-at start-literal))"},{"Add":"       ((caml-in-literal-p)"},{"Add":"        (re-search-backward start-literal min-pos 'move))  ;ugly hack"},{"Add":"       ((setq found t))))"},{"Add":"    (if found"},{"Add":"        (if (not (string-match \"\\\\`[^|[]|[^]|]?\\\\'\" kwop)) ;arrrrgh!!"},{"Add":"            kwop"},{"Add":"          (forward-char 1) \"|\")"},{"Add":"      nil)))"},{"Add":""},{"Add":";  Association list of indentation values based on governing keywords."},{"Add":";"},{"Add":";Each element is of the form (KEYWORD OP-TYPE PRIO INDENT). OP-TYPE is"},{"Add":";non-nil for operator-type nodes, which affect indentation in a"},{"Add":";different way from keywords: subsequent lines are indented to the"},{"Add":";actual occurrence of an operator, but relative to the indentation of"},{"Add":";the line where the governing keyword occurs."},{"Add":""},{"Add":"(defconst caml-no-indent 0)"},{"Add":""},{"Add":"(defconst caml-kwop-alist"},{"Add":"  '((\"begin\"            nil     6       caml-begin-indent)"},{"Add":"    (\":begin\"           nil     6       caml-begin-indent) ; hack"},{"Add":"    (\"class\"            nil     0       caml-class-indent)"},{"Add":"    (\"constraint\"       nil     0       caml-val-indent)"},{"Add":"    (\"sig\"              nil     1       caml-sig-indent)"},{"Add":"    (\"struct\"           nil     1       caml-struct-indent)"},{"Add":"    (\"exception\"        nil     0       caml-exception-indent)"},{"Add":"    (\"for\"              nil     6       caml-for-indent)"},{"Add":"    (\"fun\"              nil     3       caml-fun-indent)"},{"Add":"    (\"function\"         nil     3       caml-function-indent)"},{"Add":"    (\"if\"               nil     6       caml-if-indent)"},{"Add":"    (\"if-else\"          nil     6       caml-if-else-indent)"},{"Add":"    (\"include\"          nil     0       caml-include-indent)"},{"Add":"    (\"inherit\"          nil     0       caml-inherit-indent)"},{"Add":"    (\"initializer\"      nil     0       caml-initializer-indent)"},{"Add":"    (\"let\"              nil     6       caml-let-indent)"},{"Add":"    (\"let-in\"           nil     6       caml-let-in-indent)"},{"Add":"    (\"match\"            nil     6       caml-match-indent)"},{"Add":"    (\"method\"           nil     0       caml-method-indent)"},{"Add":"    (\"module\"           nil     0       caml-module-indent)"},{"Add":"    (\"object\"           nil     6       caml-object-indent)"},{"Add":"    (\"of\"               nil     7       caml-of-indent)"},{"Add":"    (\"open\"             nil     0       caml-no-indent)"},{"Add":"    (\"parser\"           nil     3       caml-parser-indent)"},{"Add":"    (\"try\"              nil     6       caml-try-indent)"},{"Add":"    (\"type\"             nil     0       caml-type-indent)"},{"Add":"    (\"val\"              nil     0       caml-val-indent)"},{"Add":"    (\"when\"             nil     2       caml-if-indent)"},{"Add":"    (\"while\"            nil     6       caml-while-indent)"},{"Add":"    (\"::\"               t       5       caml-::-indent)"},{"Add":"    (\"@\"                t       4       caml-@-indent)"},{"Add":"    (\"^\"                t       4       caml-@-indent)"},{"Add":"    (\":=\"               nil     3       caml-:=-indent)"},{"Add":"    (\"<-\"               nil     3       caml-<--indent)"},{"Add":"    (\"->\"               nil     2       caml-->-indent)"},{"Add":"    (\"\\[\"               t       8       caml-lb-indent)"},{"Add":"    (\"{\"                t       8       caml-lc-indent)"},{"Add":"    (\"\\(\"               t       8       caml-lp-indent)"},{"Add":"    (\"|\"                nil     2       caml-no-indent)"},{"Add":"    (\";;\"               nil     0       caml-no-indent))"},{"Add":"; if-else and let-in are not keywords but idioms"},{"Add":"; \"|\" is not in the regexps"},{"Add":"; all these 3 values correspond to hard-coded names"},{"Add":""},{"Add":"\"Association list of indentation values based on governing keywords."},{"Add":""},{"Add":"Each element is of the form (KEYWORD OP-TYPE PRIO INDENT).  OP-TYPE is"},{"Add":"non-nil for operator-type nodes, which affect indentation in a"},{"Add":"different way from keywords: subsequent lines are indented to the"},{"Add":"actual occurrence of an operator, but relative to the indentation of"},{"Add":"the line where the governing keyword occurs.\")"},{"Add":""},{"Add":";;Originally, we had caml-kwop-regexp create these at runtime, from an"},{"Add":";;additional field in caml-kwop-alist. That proved way too slow,"},{"Add":";;although I still can't understand why. itz"},{"Add":""},{"Add":"(aset caml-kwop-regexps 0"},{"Add":"      (concat"},{"Add":"       \"\\\\_<\\\\(begin\\\\|object\\\\|for\\\\|s\\\\(ig\\\\|truct\\\\)\\\\|while\\\\)\\\\_>\""},{"Add":"       \"\\\\|:begin\\\\>\\\\|[[({]\\\\|;;\"))"},{"Add":"(aset caml-kwop-regexps 1"},{"Add":"      (concat (aref caml-kwop-regexps 0) \"\\\\|\\\\_<\\\\(class\\\\|module\\\\)\\\\_>\"))"},{"Add":"(aset caml-kwop-regexps 2"},{"Add":"      (concat"},{"Add":"       (aref caml-kwop-regexps 1)"},{"Add":"       \"\\\\|\\\\_<\\\\(fun\\\\(ction\\\\)?\\\\|initializer\\\\|let\\\\|m\\\\(atch\\\\|ethod\\\\)\""},{"Add":"       \"\\\\|parser\\\\|try\\\\|val\\\\)\\\\_>\\\\|->\"))"},{"Add":"(aset caml-kwop-regexps 3"},{"Add":"      (concat (aref caml-kwop-regexps 2) \"\\\\|\\\\_\"))"},{"Add":"(aset caml-kwop-regexps 4"},{"Add":"      (concat (aref caml-kwop-regexps 3) \"\\\\|:=\\\\|<-\"))"},{"Add":"(aset caml-kwop-regexps 5"},{"Add":"      (concat (aref caml-kwop-regexps 4) \"\\\\|@\"))"},{"Add":"(aset caml-kwop-regexps 6"},{"Add":"      (concat (aref caml-kwop-regexps 5) \"\\\\|::\\\\|\\\\^\"))"},{"Add":"(aset caml-kwop-regexps 7"},{"Add":"      (concat"},{"Add":"       (aref caml-kwop-regexps 0)"},{"Add":"       \"\\\\|\\\\_<\\\\(constraint\\\\|exception\\\\|in\\\\(herit\\\\|clude\\\\)\""},{"Add":"       \"\\\\|o\\\\(f\\\\|pen\\\\)\\\\|type\\\\|val\\\\)\\\\_>\"))"},{"Add":"(aset caml-kwop-regexps 8"},{"Add":"      (concat (aref caml-kwop-regexps 6)"},{"Add":"              \"\\\\|\\\\_<\\\\(constraint\\\\|exception\\\\|in\\\\(herit\\\\|clude\\\\)\""},{"Add":"              \"\\\\|o\\\\(f\\\\|pen\\\\)\\\\|type\\\\)\\\\>\"))"},{"Add":""},{"Add":"(defun caml-find-done-match ()"},{"Add":"  \"Move the point to the begining of a loop."},{"Add":"Return whether it is \\\"for\\\" or \\\"while\\\".\""},{"Add":"  (let ((unbalanced 1) (kwop t))"},{"Add":"    (while (and (not (= 0 unbalanced)) kwop)"},{"Add":"      (setq kwop (caml-find-kwop \"\\\\_<\\\\(done\\\\|for\\\\|while\\\\)\\\\_>\"))"},{"Add":"      (cond"},{"Add":"       ((not kwop))"},{"Add":"       ((string= kwop \"done\") (setq unbalanced (1+ unbalanced)))"},{"Add":"       (t (setq unbalanced (1- unbalanced)))))"},{"Add":"    kwop))"},{"Add":""},{"Add":"(defun caml-find-end-match ()"},{"Add":"  \"Move the point at the beginning of a block closed by \\\"end\\\"."},{"Add":"Return the keyword \\\"begin\\\", \\\"object\\\", \\\"sig\\\", \\\"struct\\\""},{"Add":"indicating the type of block.\""},{"Add":"  (let ((unbalanced 1) (kwop t))"},{"Add":"    (while (and (not (= 0 unbalanced)) kwop)"},{"Add":"      (setq kwop"},{"Add":"            (caml-find-kwop"},{"Add":"             \"\\\\_<\\\\(end\\\\|begin\\\\|object\\\\|s\\\\(ig\\\\|truct\\\\)\\\\)\\\\_>\\\\|:begin\\\\_>\\\\|;;\"))"},{"Add":"      (cond"},{"Add":"       ((not kwop))"},{"Add":"       ((string= kwop \";;\") (setq kwop nil) (forward-line 1))"},{"Add":"       ((string= kwop \"end\") (setq unbalanced (1+ unbalanced)))"},{"Add":"       ( t (setq unbalanced (1- unbalanced)))))"},{"Add":"    (if (string= kwop \":begin\") \"begin\""},{"Add":"      kwop)))"},{"Add":""},{"Add":"(defun caml-find-in-match ()"},{"Add":"  \"Move the point backward to the \\\"let\\\" binding the current expression.\""},{"Add":"  (let ((unbalanced 1) (kwop t))"},{"Add":"    (while (and (not (= 0 unbalanced)) kwop)"},{"Add":"      (setq kwop (caml-find-kwop \"\\\\_<\\\\(in\\\\|let\\\\|end\\\\)\\\\_>\"))"},{"Add":"      (cond"},{"Add":"       ((not kwop))"},{"Add":"       ((string= kwop \"end\") (caml-find-end-match))"},{"Add":"       ((string= kwop \"in\") (setq unbalanced (1+ unbalanced)))"},{"Add":"       (t (setq unbalanced (1- unbalanced)))))"},{"Add":"    kwop))"},{"Add":""},{"Add":"(defun caml-find-with-match ()"},{"Add":"  \"Move the point backward to the keyword starting the current \\\"with\\\".\""},{"Add":"  (let ((unbalanced 1) (kwop t))"},{"Add":"    (while (and (not (= 0 unbalanced)) kwop)"},{"Add":"      (setq kwop"},{"Add":"            (caml-find-kwop"},{"Add":"             \"\\\\_<\\\\(with\\\\|try\\\\|m\\\\(atch\\\\|odule\\\\)\\\\|functor\\\\)\\\\_>\\\\|[{}()]\"))"},{"Add":"      (cond"},{"Add":"       ((not kwop))"},{"Add":"       ((caml-at-sexp-close-p)"},{"Add":"        (caml-find-paren-match (following-char)))"},{"Add":"       ((string= kwop \"with\")"},{"Add":"        (setq unbalanced (1+ unbalanced)))"},{"Add":"       ((or (string= kwop \"module\")"},{"Add":"            (string= kwop \"functor\")"},{"Add":"            (string= kwop \"{\")"},{"Add":"            (string= kwop \"(\"))"},{"Add":"        (setq unbalanced 0))"},{"Add":"       (t (setq unbalanced (1- unbalanced)))))"},{"Add":"    kwop))"},{"Add":""},{"Add":"(defun caml-find-paren-match (close)"},{"Add":"  \"Move the point backward to the opening parenthesis of the current expr."},{"Add":"Which parenthesis is determined by providing the closing one as CLOSE.\""},{"Add":"  (let ((unbalanced 1)"},{"Add":"        (regexp (cond ((= close ?\\)) \"[()]\")"},{"Add":"                      ((= close ?\\]) \"[][]\")"},{"Add":"                      ((= close ?\\}) \"[{}]\"))))"},{"Add":"    (while (and (> unbalanced 0)"},{"Add":"                (caml-find-kwop regexp))"},{"Add":"      (if (= close (following-char))"},{"Add":"          (setq unbalanced (1+ unbalanced))"},{"Add":"        (setq unbalanced (1- unbalanced))))))"},{"Add":""},{"Add":"(defun caml-find-then-match (&optional from-else)"},{"Add":"  \"Move the point backward to the \\\"if\\\" of the current \\\"then\\\"."},{"Add":"Assumes the point is at the beginning of the \\\"then\\\" keyword unless"},{"Add":"FROM-ELSE is non-nil in which case the point must be before \\\"else\\\".\""},{"Add":"  (let ((bol (if from-else"},{"Add":"                 (save-excursion"},{"Add":"                   (progn (beginning-of-line) (point)))))"},{"Add":"        kwop done matching-fun)"},{"Add":"    (while (not done)"},{"Add":"      (setq kwop"},{"Add":"            (caml-find-kwop"},{"Add":"             \"\\\\_<\\\\(e\\\\(nd\\\\|lse\\\\)\\\\|done\\\\|then\\\\|if\\\\|with\\\\)\\\\_>\\\\|[])};]\"))"},{"Add":"      (cond"},{"Add":"       ((not kwop) (setq done t))"},{"Add":"       ((caml-at-sexp-close-p)"},{"Add":"        (caml-find-paren-match (following-char)))"},{"Add":"       ((string= kwop \"if\") (setq done t))"},{"Add":"       ((string= kwop \"then\")"},{"Add":"        (if (not from-else) (setq kwop (caml-find-then-match))))"},{"Add":"       ((setq matching-fun (cdr-safe (assoc kwop caml-matching-kw-alist)))"},{"Add":"        (setq kwop (funcall matching-fun)))))"},{"Add":"    (if (and bol (>= (point) bol))"},{"Add":"        \"if-else\""},{"Add":"      kwop)))"},{"Add":""},{"Add":"(defun caml-find-pipe-match ()"},{"Add":"  (let ((done nil) (kwop)"},{"Add":"        (re (concat"},{"Add":"             \"\\\\_<\\\\(try\\\\|match\\\\|with\\\\|function\\\\|parser\\\\|type\""},{"Add":"             \"\\\\|e\\\\(nd\\\\|lse\\\\)\\\\|done\\\\|then\\\\|in\\\\)\\\\_>\""},{"Add":"             \"\\\\|[^[|]|\\\\|[])}]\")))"},{"Add":"    (while (not done)"},{"Add":"      (setq kwop (caml-find-kwop re))"},{"Add":"      (cond"},{"Add":"       ((not kwop) (setq done t))"},{"Add":"       ((looking-at \"[^[|]\\\\(|\\\\)\")"},{"Add":"        (goto-char (match-beginning 1))"},{"Add":"        (setq kwop \"|\")"},{"Add":"        (setq done t))"},{"Add":"       ((caml-at-sexp-close-p)"},{"Add":"        (caml-find-paren-match (following-char)))"},{"Add":"       ((string= kwop \"with\")"},{"Add":"        (setq kwop (caml-find-with-match))"},{"Add":"        (setq done t))"},{"Add":"       ((string= kwop \"parser\")"},{"Add":"        (if (re-search-backward \"\\\\_\" (- (point) 5) t)"},{"Add":"            (setq kwop (caml-find-with-match)))"},{"Add":"        (setq done t))"},{"Add":"       ((string= kwop \"done\") (caml-find-done-match))"},{"Add":"       ((string= kwop \"end\") (caml-find-end-match))"},{"Add":"       ((string= kwop \"then\") (caml-find-then-match))"},{"Add":"       ((string= kwop \"else\") (caml-find-else-match))"},{"Add":"       ((string= kwop \"in\") (caml-find-in-match))"},{"Add":"       (t (setq done t))))"},{"Add":"    kwop))"},{"Add":""},{"Add":"(defun caml-find-and-match ()"},{"Add":"  (let ((done nil) (kwop))"},{"Add":"    (while (not done)"},{"Add":"      (setq kwop (caml-find-kwop"},{"Add":"                  \"\\\\_<\\\\(object\\\\|exception\\\\|let\\\\|type\\\\|end\\\\|in\\\\)\\\\_>\"))"},{"Add":"      (cond"},{"Add":"       ((not kwop) (setq done t))"},{"Add":"       ((string= kwop \"end\") (caml-find-end-match))"},{"Add":"       ((string= kwop \"in\") (caml-find-in-match))"},{"Add":"       (t (setq done t))))"},{"Add":"    kwop))"},{"Add":""},{"Add":"(defun caml-find-else-match ()"},{"Add":"  (caml-find-then-match t))"},{"Add":""},{"Add":"(defun caml-find-semi-match ()"},{"Add":"  (caml-find-kwop-skipping-blocks 2))"},{"Add":""},{"Add":"(defun caml-find-comma-match ()"},{"Add":"  (caml-find-kwop-skipping-blocks 3))"},{"Add":""},{"Add":"(defun caml-find-kwop-skipping-blocks (prio)"},{"Add":"  \"Look back for a caml keyword matching `caml-kwop-regexps' [PRIO]."},{"Add":""},{"Add":" Skip nested blocks.\""},{"Add":""},{"Add":"  (let ((done nil) (kwop nil) (matching-fun)"},{"Add":"        (kwop-list (aref caml-kwop-regexps prio)))"},{"Add":"    (while (not done)"},{"Add":"      (setq kwop (caml-find-kwop"},{"Add":"                  (concat caml-matching-kw-regexp"},{"Add":"                          (cond ((> prio 3) \"\\\\|[])},;]\\\\|\")"},{"Add":"                                ((> prio 2) \"\\\\|[])};]\\\\|\")"},{"Add":"                                (t \"\\\\|[])}]\\\\|\"))"},{"Add":"                          kwop-list)))"},{"Add":"      (cond"},{"Add":"       ((not kwop) (setq done t))"},{"Add":"       ((caml-at-sexp-close-p)"},{"Add":"        (caml-find-paren-match (following-char)))"},{"Add":"       ((or (string= kwop \";;\")"},{"Add":"            (and (string= kwop \";\") (= (preceding-char) ?\\;)))"},{"Add":"        (forward-line 1)"},{"Add":"        (setq kwop \";;\")"},{"Add":"        (setq done t))"},{"Add":"       ((and (>= prio 2) (string= kwop \"|\")) (setq done t))"},{"Add":"       ((string= kwop \"end\") (caml-find-end-match))"},{"Add":"       ((string= kwop \"done\") (caml-find-done-match))"},{"Add":"       ((string= kwop \"in\")"},{"Add":"        (cond ((and (caml-find-in-match) (>= prio 2))"},{"Add":"               (setq kwop \"let-in\")"},{"Add":"               (setq done t))))"},{"Add":"       ((and (string= kwop \"parser\") (>= prio 2)"},{"Add":"             (re-search-backward \"\\\\_\" (- (point) 5) t))"},{"Add":"        (setq kwop (caml-find-with-match))"},{"Add":"        (setq done t))"},{"Add":"       ((setq matching-fun (cdr-safe (assoc kwop caml-matching-kw-alist)))"},{"Add":"        (setq kwop (funcall matching-fun))"},{"Add":"        (if (looking-at kwop-list) (setq done t)))"},{"Add":"       (t (let* ((kwop-info (assoc kwop caml-kwop-alist))"},{"Add":"                 (is-op (and (nth 1 kwop-info)"},{"Add":"                             ; check that we are not at beginning of line"},{"Add":"                             (let ((pos (point)) bti)"},{"Add":"                               (back-to-indentation)"},{"Add":"                               (setq bti (point))"},{"Add":"                               (goto-char pos)"},{"Add":"                               (< bti pos)))))"},{"Add":"            (if (and is-op (looking-at"},{"Add":"                            (concat (regexp-quote kwop)"},{"Add":"                                    \"|?[ \\t]*\\\\(\\n\\\\|(\\\\*\\\\)\")))"},{"Add":"                (setq kwop-list"},{"Add":"                      (aref caml-kwop-regexps (nth 2 kwop-info)))"},{"Add":"              (setq done t))))))"},{"Add":"    kwop))"},{"Add":""},{"Add":"(defun caml-compute-basic-indent (prio)"},{"Add":"  \"Compute indent of current caml line, ignoring leading keywords."},{"Add":""},{"Add":"Find the `governing node' for current line. Compute desired"},{"Add":"indentation based on the node and the indentation alists."},{"Add":"Assumes point is exactly at line indentation."},{"Add":"Does not preserve point.\""},{"Add":""},{"Add":"  (let* (in-expr"},{"Add":"         (kwop (cond"},{"Add":"                ((looking-at \";;\")"},{"Add":"                 (beginning-of-line 1))"},{"Add":"                ((looking-at \"|\\\\([^]|]\\\\|\\\\'\\\\)\")"},{"Add":"                 (caml-find-pipe-match))"},{"Add":"                ((and (looking-at caml-phrase-start-keywords)"},{"Add":"                      (caml-in-expr-p))"},{"Add":"                 (caml-find-end-match))"},{"Add":"                ((and (looking-at caml-matching-kw-regexp)"},{"Add":"                      (assoc (caml-match-string 0) caml-matching-kw-alist))"},{"Add":"                 (funcall (cdr-safe (assoc (caml-match-string 0)"},{"Add":"                                      caml-matching-kw-alist))))"},{"Add":"                ((looking-at"},{"Add":"                  (aref caml-kwop-regexps caml-max-indent-priority))"},{"Add":"                 (let* ((kwop (caml-match-string 0))"},{"Add":"                        (kwop-info (assoc kwop caml-kwop-alist))"},{"Add":"                        (prio (if kwop-info (nth 2 kwop-info)"},{"Add":"                                caml-max-indent-priority)))"},{"Add":"                   (if (and (looking-at (aref caml-kwop-regexps 0))"},{"Add":"                            (not (looking-at \"object\"))"},{"Add":"                            (caml-in-expr-p))"},{"Add":"                       (setq in-expr t))"},{"Add":"                   (caml-find-kwop-skipping-blocks prio)))"},{"Add":"                (t"},{"Add":"                 (if (and (= prio caml-max-indent-priority) (caml-in-expr-p))"},{"Add":"                     (setq in-expr t))"},{"Add":"                 (caml-find-kwop-skipping-blocks prio))))"},{"Add":"         (kwop-info (assoc kwop caml-kwop-alist))"},{"Add":"         (indent-diff"},{"Add":"          (cond"},{"Add":"           ((not kwop-info) (beginning-of-line 1) 0)"},{"Add":"           ((looking-at \"[[({][|<]?[ \\t]*\")"},{"Add":"            (length (caml-match-string 0)))"},{"Add":"           ((nth 1 kwop-info) (symbol-value (nth 3 kwop-info)))"},{"Add":"           (t"},{"Add":"            (let () ;; (pos (point))"},{"Add":"              (back-to-indentation)"},{"Add":";             (if (looking-at \"\\\\_\") (goto-char pos))"},{"Add":"              (- (symbol-value (nth 3 kwop-info))"},{"Add":"                 (if (looking-at \"|\") caml-|-extra-indent 0))))))"},{"Add":"         (extra (if in-expr caml-apply-extra-indent 0)))"},{"Add":"         (+ indent-diff extra (current-column))))"},{"Add":""},{"Add":"(defconst caml-leading-kwops-regexp"},{"Add":"  (concat"},{"Add":"   \"\\\\_<\\\\(and\\\\|do\\\\(ne\\\\|wnto\\\\)?\\\\|e\\\\(lse\\\\|nd\\\\)\\\\|in\""},{"Add":"   \"\\\\|t\\\\(hen\\\\|o\\\\)\\\\|with\\\\)\\\\_>\\\\|[]|})]\")"},{"Add":""},{"Add":"  \"Regexp matching caml keywords which need special indentation.\")"},{"Add":""},{"Add":"(defconst caml-leading-kwops-alist"},{"Add":"  '((\"and\" caml-and-extra-indent 2)"},{"Add":"    (\"do\" caml-do-extra-indent 0)"},{"Add":"    (\"done\" caml-done-extra-indent 0)"},{"Add":"    (\"else\" caml-else-extra-indent 3)"},{"Add":"    (\"end\" caml-end-extra-indent 0)"},{"Add":"    (\"in\" caml-in-extra-indent 2)"},{"Add":"    (\"then\" caml-then-extra-indent 3)"},{"Add":"    (\"to\" caml-to-extra-indent 0)"},{"Add":"    (\"downto\" caml-to-extra-indent 0)"},{"Add":"    (\"with\" caml-with-extra-indent 2)"},{"Add":"    (\"|\" caml-|-extra-indent 2)"},{"Add":"    (\"]\" caml-rb-extra-indent 0)"},{"Add":"    (\"}\" caml-rc-extra-indent 0)"},{"Add":"    (\")\" caml-rp-extra-indent 0))"},{"Add":""},{"Add":"  \"Association list of special caml keyword indent values."},{"Add":""},{"Add":"Each member is of the form (KEYWORD EXTRA-INDENT PRIO) where"},{"Add":"EXTRA-INDENT is the variable holding extra indentation amount for"},{"Add":"KEYWORD (usually negative) and PRIO is upper bound on priority of"},{"Add":"matching nodes to determine KEYWORD's final indentation.\")"},{"Add":""},{"Add":"(defun caml-compute-final-indent ()"},{"Add":"  (save-excursion"},{"Add":"    (back-to-indentation)"},{"Add":"    (cond"},{"Add":"     ((and (bolp) (looking-at comment-start-skip)) (current-column))"},{"Add":"     ((caml-in-comment-p)"},{"Add":"      (let ((closing (looking-at \"\\\\*)\"))"},{"Add":"            (comment-mark (looking-at \"\\\\*\")))"},{"Add":"        (caml-backward-comment)"},{"Add":"        (looking-at comment-start-skip)"},{"Add":"        (+ (current-column)"},{"Add":"           (cond"},{"Add":"            (closing 1)"},{"Add":"            (comment-mark 1)"},{"Add":"            (t (- (match-end 0) (match-beginning 0)))))))"},{"Add":"     (t (let* ((leading (looking-at caml-leading-kwops-regexp))"},{"Add":"               (assoc-val (if leading (assoc (caml-match-string 0)"},{"Add":"                                             caml-leading-kwops-alist)))"},{"Add":"               (extra (if leading (symbol-value (nth 1 assoc-val)) 0))"},{"Add":"               (prio (if leading (nth 2 assoc-val)"},{"Add":"                       caml-max-indent-priority))"},{"Add":"               (basic (caml-compute-basic-indent prio)))"},{"Add":"          (max 0 (if extra (+ extra basic) (current-column))))))))"},{"Add":""},{"Add":""},{"Add":""},{"Add":"(defun caml-split-string ()"},{"Add":"  \"Called whenever a line is broken inside a caml string literal.\""},{"Add":"  (insert-before-markers \"\\\"^\\\"\")"},{"Add":"  (backward-char 1))"},{"Add":""},{"Add":"(defadvice indent-new-comment-line (around"},{"Add":"                                    caml-indent-new-comment-line"},{"Add":"                                    activate)"},{"Add":""},{"Add":"  \"Handle multi-line strings in caml mode.\""},{"Add":""},{"Add":";this advice doesn't make sense in other modes. I wish there were a"},{"Add":";cleaner way to do this: I haven't found one."},{"Add":""},{"Add":"  (let ((hooked (and (eq major-mode 'caml-mode) (caml-in-literal-p)))"},{"Add":"        (split-mark))"},{"Add":"    (if (not hooked) nil"},{"Add":"      (setq split-mark (set-marker (make-marker) (point)))"},{"Add":"      (caml-split-string))"},{"Add":"    ad-do-it"},{"Add":"    (if (not hooked) nil"},{"Add":"      (goto-char split-mark)"},{"Add":"      (set-marker split-mark nil))))"},{"Add":""},{"Add":"(defadvice newline-and-indent (around"},{"Add":"                               caml-newline-and-indent"},{"Add":"                               activate)"},{"Add":""},{"Add":"  \"Handle multi-line strings in caml mode.\""},{"Add":""},{"Add":"    (let ((hooked (and (eq major-mode 'caml-mode) (caml-in-literal-p)))"},{"Add":"        (split-mark))"},{"Add":"    (if (not hooked) nil"},{"Add":"      (setq split-mark (set-marker (make-marker) (point)))"},{"Add":"      (caml-split-string))"},{"Add":"    ad-do-it"},{"Add":"    (if (not hooked) nil"},{"Add":"      (goto-char split-mark)"},{"Add":"      (set-marker split-mark nil))))"},{"Add":""},{"Add":"(defun caml-electric-pipe ()"},{"Add":"  \"If inserting a | or } operator at beginning of line, reindent the line."},{"Add":""},{"Add":"Unfortunately there is a situation where this mechanism gets"},{"Add":"confused. It's when | is the first character of a |] sequence. This is"},{"Add":"a misfeature of caml syntax and cannot be fixed, however, as a"},{"Add":"workaround, the electric ] inserts | itself if the matching [ is"},{"Add":"followed by |.\""},{"Add":""},{"Add":"  (interactive \"*\")"},{"Add":"  (let ((electric (and caml-electric-indent"},{"Add":"                       (caml-in-indentation)"},{"Add":"                       (not (caml-in-comment-p)))))"},{"Add":"    (self-insert-command 1)"},{"Add":"    (if electric (save-excursion (caml-indent-command)))))"},{"Add":""},{"Add":"(defun caml-electric-rb ()"},{"Add":"  \"If inserting a ] operator at beginning of line, reindent the line."},{"Add":""},{"Add":"Also, if the matching [ is followed by a | and this ] is not preceded"},{"Add":"by |, insert one.\""},{"Add":""},{"Add":"  (interactive \"*\")"},{"Add":"  (let* ((prec (preceding-char))"},{"Add":"         (use-pipe (and caml-electric-close-vector"},{"Add":"                        (not (caml-in-comment-p))"},{"Add":"                        (not (caml-in-literal-p))"},{"Add":"                        (or (not (numberp prec))"},{"Add":"                            (not (char-equal ?| prec)))))"},{"Add":"         (electric (and caml-electric-indent"},{"Add":"                        (caml-in-indentation)"},{"Add":"                        (not (caml-in-comment-p)))))"},{"Add":"    (self-insert-command 1)"},{"Add":"    (if electric (save-excursion (caml-indent-command)))"},{"Add":"    (if (and use-pipe"},{"Add":"             (save-excursion"},{"Add":"               (condition-case nil"},{"Add":"                   (prog2"},{"Add":"                       (backward-list 1)"},{"Add":"                       (looking-at \"\\\\[|\"))"},{"Add":"                 (error \"\"))))"},{"Add":"        (save-excursion"},{"Add":"          (backward-char 1)"},{"Add":"          (insert \"|\")))))"},{"Add":""},{"Add":"(defun caml-abbrev-hook ()"},{"Add":"  \"If inserting a leading keyword at beginning of line, reindent the line.\""},{"Add":"  ;itz unfortunately we need a special case"},{"Add":"  (if (and (not (caml-in-comment-p)) (not (= last-command-event ?_)))"},{"Add":"      (let* ((bol (save-excursion (beginning-of-line) (point)))"},{"Add":"             (kw (save-excursion"},{"Add":"                   (and (re-search-backward \"^[ \\t]*\\\\(\\\\sw+\\\\)\\\\=\" bol t)"},{"Add":"                        (caml-match-string 1)))))"},{"Add":"        (if kw"},{"Add":"            (let ((indent (save-excursion"},{"Add":"                            (goto-char (match-beginning 1))"},{"Add":"                            (caml-indent-command)"},{"Add":"                            (current-column)))"},{"Add":"                  (abbrev-correct (if (= last-command-event ?\\ ) 1 0)))"},{"Add":"              (indent-to (- indent"},{"Add":"                            (or"},{"Add":"                             (symbol-value"},{"Add":"                              (nth 1"},{"Add":"                                   (assoc kw caml-leading-kwops-alist)))"},{"Add":"                             0)"},{"Add":"                            abbrev-correct)))))))"},{"Add":""},{"Add":"; (defun caml-indent-phrase ()"},{"Add":";   (interactive \"*\")"},{"Add":";   (let ((bounds (caml-mark-phrase)))"},{"Add":";     (indent-region (car bounds) (cdr bounds) nil)))"},{"Add":""},{"Add":";;; Additional commands by Didier to report errors in toplevel mode"},{"Add":""},{"Add":"(defun caml-skip-blank-forward ()"},{"Add":"  (if (looking-at \"[ \\t\\n]*\\\\((\\\\*\\\\([^*]\\\\|[^(]\\\\*[^)]\\\\)*\\\\*)[ \\t\\n]*\\\\)*\")"},{"Add":"      (goto-char (match-end 0))))"},{"Add":""},{"Add":";; to mark phrases, so that repeated calls will take several of them"},{"Add":";; knows little about OCaml except literals and comments, so it should work"},{"Add":";; with other dialects as long as ;; marks the end of phrase."},{"Add":""},{"Add":"(defun caml-indent-phrase (arg)"},{"Add":"  \"Indent the current phrase."},{"Add":"With prefix ARG, indent that many phrases starting with the"},{"Add":"current phrase.\""},{"Add":"  (interactive \"p\")"},{"Add":"  (save-excursion"},{"Add":"    (let ((beg (caml-find-phrase)))"},{"Add":"    (while (progn (setq arg (- arg 1)) (> arg 0)) (caml-find-phrase))"},{"Add":"    (indent-region beg (point) nil))))"},{"Add":""},{"Add":"(defun caml-indent-buffer ()"},{"Add":"  \"Indent the whole buffer.\""},{"Add":"  (interactive)"},{"Add":"  (indent-region (point-min) (point-max) nil))"},{"Add":""},{"Add":"(defun caml-backward-to-less-indent (&optional n)"},{"Add":"  \"Move cursor back  N lines with less or same indentation.\""},{"Add":"  (interactive \"p\")"},{"Add":"  (beginning-of-line 1)"},{"Add":"  (if (< n 0) (caml-forward-to-less-indent (- n))"},{"Add":"    (while (> n 0)"},{"Add":"      (let ((i (current-indentation)))"},{"Add":"        (forward-line -1)"},{"Add":"        (while (or (> (current-indentation) i)"},{"Add":"                   (caml-in-comment-p)"},{"Add":"                   (looking-at"},{"Add":"                    (concat \"[ \\t]*\\\\(\\n\\\\|\" comment-start-skip \"\\\\)\")))"},{"Add":"          (forward-line -1)))"},{"Add":"      (setq n (1- n))))"},{"Add":"  (back-to-indentation))"},{"Add":""},{"Add":"(defun caml-forward-to-less-indent (&optional n)"},{"Add":"  \"Move cursor back N lines with less or same indentation.\""},{"Add":"  (interactive \"p\")"},{"Add":"  (beginning-of-line 1)"},{"Add":"  (if (< n 0) (caml-backward-to-less-indent (- n))"},{"Add":"    (while (> n 0)"},{"Add":"      (let ((i (current-indentation)))"},{"Add":"        (forward-line 1)"},{"Add":"        (while (or (> (current-indentation) i)"},{"Add":"                   (caml-in-comment-p)"},{"Add":"                   (looking-at"},{"Add":"                    (concat \"[ \\t]*\\\\(\\n\\\\|\" comment-start-skip \"\\\\)\")))"},{"Add":"          (forward-line 1)))"},{"Add":"      (setq n (1- n))))"},{"Add":"  (back-to-indentation))"},{"Add":""},{"Add":"(defun caml-insert-begin-form ()"},{"Add":"  \"Insert a nicely formatted begin-end form, leaving a mark after end.\""},{"Add":"  (interactive \"*\")"},{"Add":"  (let ((prec (preceding-char)))"},{"Add":"    (if (and (numberp prec) (not (char-equal ?\\  (char-syntax prec))))"},{"Add":"        (insert \" \")))"},{"Add":"  (let* ((c (current-indentation)) (i (+ caml-begin-indent c)))"},{"Add":"    (insert \"begin\\n\\nend\")"},{"Add":"    (push-mark)"},{"Add":"    (indent-line-to c)"},{"Add":"    (forward-line -1)"},{"Add":"    (indent-line-to i)))"},{"Add":""},{"Add":"(defun caml-insert-for-form ()"},{"Add":"  \"Insert a nicely formatted for-do-done form, leaving a mark after do(ne).\""},{"Add":"  (interactive \"*\")"},{"Add":"  (let ((prec (preceding-char)))"},{"Add":"    (if (and (numberp prec) (not (char-equal ?\\  (char-syntax prec))))"},{"Add":"        (insert \" \")))"},{"Add":"  (let* ((c (current-indentation)) (i (+ caml-for-indent c)))"},{"Add":"    (insert \"for  do\\n\\ndone\")"},{"Add":"    (push-mark)"},{"Add":"    (indent-line-to c)"},{"Add":"    (forward-line -1)"},{"Add":"    (indent-line-to i)"},{"Add":"    (push-mark)"},{"Add":"    (beginning-of-line 1)"},{"Add":"    (backward-char 4)))"},{"Add":""},{"Add":"(defun caml-insert-if-form ()"},{"Add":"  \"Insert nicely formatted if-then-else form leaving mark after then, else.\""},{"Add":"  (interactive \"*\")"},{"Add":"  (let ((prec (preceding-char)))"},{"Add":"    (if (and (numberp prec) (not (char-equal ?\\  (char-syntax prec))))"},{"Add":"        (insert \" \")))"},{"Add":"  (let* ((c (current-indentation)) (i (+ caml-if-indent c)))"},{"Add":"    (insert \"if\\n\\nthen\\n\\nelse\\n\")"},{"Add":"    (indent-line-to i)"},{"Add":"    (push-mark)"},{"Add":"    (forward-line -1)"},{"Add":"    (indent-line-to c)"},{"Add":"    (forward-line -1)"},{"Add":"    (indent-line-to i)"},{"Add":"    (push-mark)"},{"Add":"    (forward-line -1)"},{"Add":"    (indent-line-to c)"},{"Add":"    (forward-line -1)"},{"Add":"    (indent-line-to i)))"},{"Add":""},{"Add":"(defun caml-insert-match-form ()"},{"Add":"  \"Insert nicely formatted match-with form leaving mark after with.\""},{"Add":"  (interactive \"*\")"},{"Add":"  (let ((prec (preceding-char)))"},{"Add":"    (if (and (numberp prec) (not (char-equal ?\\  (char-syntax prec))))"},{"Add":"        (insert \" \")))"},{"Add":"  (let* ((c (current-indentation)) (i (+ caml-match-indent c)))"},{"Add":"    (insert \"match\\n\\nwith\\n\")"},{"Add":"    (indent-line-to i)"},{"Add":"    (push-mark)"},{"Add":"    (forward-line -1)"},{"Add":"    (indent-line-to c)"},{"Add":"    (forward-line -1)"},{"Add":"    (indent-line-to i)))"},{"Add":""},{"Add":"(defun caml-insert-let-form ()"},{"Add":"  \"Insert nicely formatted let-in form leaving mark after in.\""},{"Add":"  (interactive \"*\")"},{"Add":"  (let ((prec (preceding-char)))"},{"Add":"    (if (and (numberp prec) (not (char-equal ?\\  (char-syntax prec))))"},{"Add":"        (insert \" \")))"},{"Add":"  (let* ((c (current-indentation)))"},{"Add":"    (insert \"let  in\\n\")"},{"Add":"    (indent-line-to c)"},{"Add":"    (push-mark)"},{"Add":"    (forward-line -1)"},{"Add":"    (forward-char (+ c 4))))"},{"Add":""},{"Add":"(defun caml-insert-try-form ()"},{"Add":"  \"Insert nicely formatted try-with form leaving mark after with.\""},{"Add":"  (interactive \"*\")"},{"Add":"  (let ((prec (preceding-char)))"},{"Add":"    (if (and (numberp prec) (not (char-equal ?\\  (char-syntax prec))))"},{"Add":"        (insert \" \")))"},{"Add":"  (let* ((c (current-indentation)) (i (+ caml-try-indent c)))"},{"Add":"    (insert \"try\\n\\nwith\\n\")"},{"Add":"    (indent-line-to i)"},{"Add":"    (push-mark)"},{"Add":"    (forward-line -1)"},{"Add":"    (indent-line-to c)"},{"Add":"    (forward-line -1)"},{"Add":"    (indent-line-to i)))"},{"Add":""},{"Add":"(defun caml-insert-while-form ()"},{"Add":"  \"Insert nicely formatted while-do-done form leaving mark after do, done.\""},{"Add":"  (interactive \"*\")"},{"Add":"  (let ((prec (preceding-char)))"},{"Add":"    (if (and (numberp prec) (not (char-equal ?\\  (char-syntax prec))))"},{"Add":"        (insert \" \")))"},{"Add":"  (let* ((c (current-indentation)) (i (+ caml-if-indent c)))"},{"Add":"    (insert \"while  do\\n\\ndone\")"},{"Add":"    (push-mark)"},{"Add":"    (indent-line-to c)"},{"Add":"    (forward-line -1)"},{"Add":"    (indent-line-to i)"},{"Add":"    (push-mark)"},{"Add":"    (beginning-of-line 1)"},{"Add":"    (backward-char 4)))"},{"Add":""},{"Add":"(autoload 'run-caml \"inf-caml\" \"Run an inferior OCaml process.\" t)"},{"Add":""},{"Add":"(autoload 'caml-types-show-type \"caml-types\""},{"Add":"  \"Show the type of expression or pattern at point.\" t)"},{"Add":"(autoload 'caml-types-explore \"caml-types\""},{"Add":"  \"Explore type annotations by mouse dragging.\" t)"},{"Add":""},{"Add":"(autoload 'caml-help \"caml-help\""},{"Add":"  \"Show documentation for qualified OCaml identifier.\" t)"},{"Add":"(autoload 'caml-complete \"caml-help\""},{"Add":"  \"Does completion for documented qualified OCaml identifier.\" t)"},{"Add":"(autoload 'ocaml-open-module \"caml-help\""},{"Add":"  \"Add module in documentation search path.\" t)"},{"Add":"(autoload 'ocaml-close-module \"caml-help\""},{"Add":"  \"Remove module from documentation search path.\" t)"},{"Add":"(autoload 'ocaml-add-path \"caml-help\""},{"Add":"  \"Add search path for documentation.\" t)"},{"Add":""},{"Add":"(provide 'caml)"},{"Add":""},{"Add":";;; caml.el ends here"}]}},{"FileAdd":{"meta":{"basename":"caml-types.el","metadata":0},"context":[{"change":0,"pos":2136691}],"contents":[{"Add":";**************************************************************************  -*- lexical-binding: t; -*-"},{"Add":";*                                                                        *"},{"Add":";*                                 OCaml                                  *"},{"Add":";*                                                                        *"},{"Add":";*           Damien Doligez, projet Moscova, INRIA Rocquencourt           *"},{"Add":";*                                                                        *"},{"Add":";*   Copyright 2003 Institut National de Recherche en Informatique et     *"},{"Add":";*     en Automatique.                                                    *"},{"Add":";*                                                                        *"},{"Add":";*   All rights reserved.  This file is distributed under the terms of    *"},{"Add":";*   the GNU General Public License.                                      *"},{"Add":";*                                                                        *"},{"Add":";**************************************************************************"},{"Add":""},{"Add":"; An emacs-lisp complement to the \"-annot\" option of ocamlc and ocamlopt."},{"Add":""},{"Add":"(defvar caml-types-buffer)              ;Forward declaration."},{"Add":""},{"Add":"(defun caml-types-feedback (info format)"},{"Add":"  \"Displays INFO using the given FORMAT.\""},{"Add":"  (message (format format info))"},{"Add":"  (with-current-buffer caml-types-buffer"},{"Add":"    (erase-buffer)"},{"Add":"    (insert info)))"},{"Add":""},{"Add":"(defvar caml-types-build-dirs '(\"_build\" \"_obuild\")"},{"Add":"  \"List of possible compilation directories created by build systems."},{"Add":"It is expected that the files under `caml-types-build-dir' preserve"},{"Add":"the paths relative to the parent directory of `caml-types-build-dir'.\")"},{"Add":"(make-variable-buffer-local 'caml-types-build-dir)"},{"Add":""},{"Add":"(defvar caml-annot-dir nil"},{"Add":"  \"A directory, generally relative to the file location, containing the"},{"Add":".annot file.  Intended to be set as a local variable in the .ml file."},{"Add":"See \\\"Specifying File Variables\\\" in the Emacs info manual.\")"},{"Add":"(make-variable-buffer-local 'caml-annot-dir)"},{"Add":"(put 'caml-annot-dir 'safe-local-variable #'stringp)"},{"Add":""},{"Add":"(defvar caml-types-location-re nil \"Regexp to parse *.annot files."},{"Add":""},{"Add":"Annotation files *.annot may be generated with the \\\"-annot\\\" option"},{"Add":"of ocamlc and ocamlopt."},{"Add":""},{"Add":"Their format is:"},{"Add":""},{"Add":"  file ::= block *"},{"Add":"  block ::= position  position  annotation *"},{"Add":"  position ::= filename  num  num  num"},{"Add":"  annotation ::= keyword open-paren    data  close-paren "},{"Add":""},{"Add":"   is a space character (ASCII 0x20)"},{"Add":"   is a line-feed character (ASCII 0x0A)"},{"Add":"  num is a sequence of decimal digits"},{"Add":"  filename is a string with the lexical conventions of OCaml"},{"Add":"  open-paren is an open parenthesis (ASCII 0x28)"},{"Add":"  close-paren is a closed parenthesis (ASCII 0x29)"},{"Add":"  data is any sequence of characters where  is always followed by"},{"Add":"       at least two space characters."},{"Add":""},{"Add":"- in each block, the two positions are respectively the start and the"},{"Add":"  end of the range described by the block."},{"Add":"- in a position, the filename is the name of the file, the first num"},{"Add":"  is the line number, the second num is the offset of the beginning"},{"Add":"  of the line, the third num is the offset of the position itself."},{"Add":"- the char number within the line is the difference between the third"},{"Add":"  and second nums."},{"Add":""},{"Add":"The current list of keywords is:"},{"Add":"type call ident\")"},{"Add":""},{"Add":"(defvar caml-types-position-re nil)"},{"Add":""},{"Add":"(let* ((caml-types-filename-re \"\\\"\\\\(\\\\([^\\\\\\\"]\\\\|\\\\\\\\.\\\\)*\\\\)\\\"\")"},{"Add":"       (caml-types-number-re \"\\\\([0-9]*\\\\)\"))"},{"Add":"  (setq caml-types-position-re"},{"Add":"        (concat caml-types-filename-re \" \""},{"Add":"                caml-types-number-re \" \""},{"Add":"                caml-types-number-re \" \""},{"Add":"                caml-types-number-re))"},{"Add":"  (setq caml-types-location-re"},{"Add":"        (concat \"^\" caml-types-position-re \" \" caml-types-position-re)))"},{"Add":""},{"Add":"(defgroup caml-types nil"},{"Add":"  \"Customization for `caml-types'.\""},{"Add":"  :group 'languages)"},{"Add":""},{"Add":"(defface caml-types-expr-face"},{"Add":"  '((((class color) (background light)) :background \"#88FF44\")"},{"Add":"    (((class color) (background  dark)) :background \"dark green\"))"},{"Add":"  \"Face for highlighting expressions and types\")"},{"Add":""},{"Add":"(defvar caml-types-expr-ovl (make-overlay 1 1))"},{"Add":"(overlay-put caml-types-expr-ovl 'face 'caml-types-expr-face)"},{"Add":""},{"Add":"(defface caml-types-typed-face '((t :background \"#FF8844\"))"},{"Add":"  \"Face for highlighting typed expressions.\")"},{"Add":""},{"Add":"(defvar caml-types-typed-ovl (make-overlay 1 1))"},{"Add":"(overlay-put caml-types-typed-ovl 'face 'caml-types-typed-face)"},{"Add":""},{"Add":"(defface caml-types-scope-face"},{"Add":"  '((((class color) (background light)) :background \"#BBFFFF\")"},{"Add":"    (((class color) (background  dark)) :background \"dark blue\"))"},{"Add":"  \"Face for highlighting variable scopes.\")"},{"Add":""},{"Add":"(defvar caml-types-scope-ovl (make-overlay 1 1))"},{"Add":"(overlay-put caml-types-scope-ovl 'face 'caml-types-scope-face)"},{"Add":""},{"Add":"(defface caml-types-def-face '((t :background \"#FF4444\"))"},{"Add":"  \"Face for highlighting binding occurrences.\")"},{"Add":""},{"Add":"(defvar caml-types-def-ovl (make-overlay 1 1))"},{"Add":"(overlay-put caml-types-def-ovl 'face 'caml-types-def-face)"},{"Add":""},{"Add":"(defface caml-types-occ-face"},{"Add":"  '((((class color) (background light)) :background \"#44FF44\")"},{"Add":"    (((class color) (background  dark)) :background \"dark green\"))"},{"Add":"  \"Face for highlighting variable occurrences.\")"},{"Add":""},{"Add":"(defvar caml-types-occ-ovl (make-overlay 1 1))"},{"Add":"(overlay-put caml-types-occ-ovl 'face 'caml-types-occ-face)"},{"Add":""},{"Add":""},{"Add":"(defvar caml-types-annotation-tree nil)"},{"Add":"(defvar caml-types-annotation-date nil)"},{"Add":"(make-variable-buffer-local 'caml-types-annotation-tree)"},{"Add":"(make-variable-buffer-local 'caml-types-annotation-date)"},{"Add":""},{"Add":"(defvar caml-types-buffer-name \"*caml-types*\""},{"Add":"  \"Name of buffer for displaying caml types.\")"},{"Add":"(defvar caml-types-buffer nil"},{"Add":"  \"Buffer for displaying caml types.\")"},{"Add":""},{"Add":"(defvar target-file) ;; FIXME: Get rid of this dynbound variable!"},{"Add":""},{"Add":"(defun caml-types-show-type (arg)"},{"Add":"  \"Show the type of expression or pattern at point."},{"Add":""},{"Add":"The smallest expression or pattern that contains point is"},{"Add":"temporarily highlighted.  Its type is highlighted in the .annot"},{"Add":"file and the mark is set to the beginning of the type.  The type"},{"Add":"is also displayed in the mini-buffer."},{"Add":""},{"Add":"Hints on using the type display:"},{"Add":". If you want the type of an identifier, put point within any"},{"Add":"occurrence of this identifier."},{"Add":". If you want the result type of a function application, put"},{"Add":"point at the first space after the function name.  . If you want"},{"Add":"the type of a list, put point on a bracket, on a semicolon, or on"},{"Add":"the :: constructor."},{"Add":". Even if type checking fails, you can still look at the types"},{"Add":"in the file, up to where the type checker failed."},{"Add":""},{"Add":"Types are also displayed in the buffer *caml-types*, which is"},{"Add":"displayed when the command is called with Prefix argument 4."},{"Add":""},{"Add":"See also `caml-types-explore' for exploration by mouse dragging."},{"Add":"See `caml-types-location-re' for annotation file format.\""},{"Add":"  (interactive \"p\")"},{"Add":"  (let* ((target-buf (current-buffer))"},{"Add":"         (target-file (file-name-nondirectory (buffer-file-name)))"},{"Add":"         (target-line (1+ (count-lines (point-min)"},{"Add":"                                       (line-beginning-position))))"},{"Add":"         (target-bol (line-beginning-position))"},{"Add":"         (target-cnum (point)))"},{"Add":"    (caml-types-preprocess (buffer-file-name))"},{"Add":"    (setq caml-types-buffer (get-buffer-create caml-types-buffer-name))"},{"Add":"    (let* ((targ-loc (vector target-file target-line target-bol target-cnum))"},{"Add":"           (node (caml-types-find-location targ-loc \"type\" ()"},{"Add":"                                           caml-types-annotation-tree)))"},{"Add":"      (cond"},{"Add":"       ((null node)"},{"Add":"         (delete-overlay caml-types-expr-ovl)"},{"Add":"         (message \"Point is not within a typechecked expression or pattern.\"))"},{"Add":"       (t"},{"Add":"        (let ((left (caml-types-get-pos target-buf (elt node 0)))"},{"Add":"              (right (caml-types-get-pos target-buf (elt node 1)))"},{"Add":"              (type (cdr (assoc \"type\" (elt node 2)))))"},{"Add":"          (move-overlay caml-types-expr-ovl left right target-buf)"},{"Add":"          (caml-types-feedback type \"type: %s\")))))"},{"Add":"    (if (and (= arg 4)"},{"Add":"             (not (window-live-p (get-buffer-window caml-types-buffer))))"},{"Add":"        (display-buffer caml-types-buffer))"},{"Add":"    (unwind-protect"},{"Add":"        (sit-for 60)"},{"Add":"      (delete-overlay caml-types-expr-ovl))))"},{"Add":""},{"Add":"(defun caml-types-show-call (arg)"},{"Add":"  \"Show the kind of call at point."},{"Add":""},{"Add":"The smallest function call that contains point is temporarily"},{"Add":"highlighted.  Its kind is highlighted in the .annot file and the"},{"Add":"mark is set to the beginning of the kind.  The kind is also"},{"Add":"displayed in the mini-buffer."},{"Add":""},{"Add":"The kind is also displayed in the buffer *caml-types*, which is"},{"Add":"displayed when the command is called with Prefix argument 4."},{"Add":""},{"Add":"See `caml-types-location-re' for annotation file format.\""},{"Add":"  (interactive \"p\")"},{"Add":"  (let* ((target-buf (current-buffer))"},{"Add":"         (target-file (file-name-nondirectory (buffer-file-name)))"},{"Add":"         (target-line (1+ (count-lines (point-min)"},{"Add":"                                       (line-beginning-position))))"},{"Add":"         (target-bol (line-beginning-position))"},{"Add":"         (target-cnum (point)))"},{"Add":"    (caml-types-preprocess (buffer-file-name))"},{"Add":"    (setq caml-types-buffer (get-buffer-create caml-types-buffer-name))"},{"Add":"    (let* ((targ-loc (vector target-file target-line target-bol target-cnum))"},{"Add":"           (node (caml-types-find-location targ-loc \"call\" ()"},{"Add":"                                           caml-types-annotation-tree)))"},{"Add":"      (cond"},{"Add":"       ((null node)"},{"Add":"         (delete-overlay caml-types-expr-ovl)"},{"Add":"         (message \"Point is not within a function call.\"))"},{"Add":"       (t"},{"Add":"        (let ((left (caml-types-get-pos target-buf (elt node 0)))"},{"Add":"              (right (caml-types-get-pos target-buf (elt node 1)))"},{"Add":"              (kind (cdr (assoc \"call\" (elt node 2)))))"},{"Add":"          (move-overlay caml-types-expr-ovl left right target-buf)"},{"Add":"          (caml-types-feedback kind \"%s call\")))))"},{"Add":"    (if (and (= arg 4)"},{"Add":"             (not (window-live-p (get-buffer-window caml-types-buffer))))"},{"Add":"        (display-buffer caml-types-buffer))"},{"Add":"    (unwind-protect"},{"Add":"        (sit-for 60)"},{"Add":"      (delete-overlay caml-types-expr-ovl))))"},{"Add":""},{"Add":"(defun caml-types-show-ident (arg)"},{"Add":"  \"Show the binding of identifier at point."},{"Add":""},{"Add":"The identifier that contains point is temporarily highlighted."},{"Add":"Its binding is highlighted in the .annot file and the mark is set"},{"Add":"to the beginning of the binding.  The binding is also displayed"},{"Add":"in the mini-buffer."},{"Add":""},{"Add":"The binding is also displayed in the buffer *caml-types*, which is"},{"Add":"displayed when the command is called with Prefix argument 4."},{"Add":""},{"Add":"See `caml-types-location-re' for annotation file format.\""},{"Add":"  (interactive \"p\")"},{"Add":"  (let* ((target-buf (current-buffer))"},{"Add":"         (target-file (file-name-nondirectory (buffer-file-name)))"},{"Add":"         (target-line (1+ (count-lines (point-min)"},{"Add":"                                       (line-beginning-position))))"},{"Add":"         (target-bol (line-beginning-position))"},{"Add":"         (target-cnum (point)))"},{"Add":"    (caml-types-preprocess (buffer-file-name))"},{"Add":"    (setq caml-types-buffer (get-buffer-create caml-types-buffer-name))"},{"Add":"    (let* ((targ-loc (vector target-file target-line target-bol target-cnum))"},{"Add":"           (node (caml-types-find-location targ-loc \"ident\" ()"},{"Add":"                                           caml-types-annotation-tree)))"},{"Add":"      (cond"},{"Add":"       ((null node)"},{"Add":"         (delete-overlay caml-types-expr-ovl)"},{"Add":"         (message \"Point is not within an identifier.\"))"},{"Add":"       (t"},{"Add":"        (let ((left (caml-types-get-pos target-buf (elt node 0)))"},{"Add":"              (right (caml-types-get-pos target-buf (elt node 1)))"},{"Add":"              (kind (cdr (assoc \"ident\" (elt node 2)))))"},{"Add":"          (move-overlay caml-types-expr-ovl left right target-buf)"},{"Add":"          (let* ((loc-re (concat caml-types-position-re \" \""},{"Add":"                                 caml-types-position-re))"},{"Add":"                 (end-re (concat caml-types-position-re \" --\"))"},{"Add":"                 (def-re (concat \"def \\\\([^ ]*\\\\) \" loc-re))"},{"Add":"                 (def-end-re (concat \"def \\\\([^ ]*\\\\) \" end-re))"},{"Add":"                 (internal-re (concat \"int_ref \\\\([^ ]*\\\\) \" loc-re))"},{"Add":"                 (external-re \"ext_ref \\\\(.*\\\\)\"))"},{"Add":"            (cond"},{"Add":"             ((string-match def-re kind)"},{"Add":"              (let ((var-name (match-string 1 kind))"},{"Add":"                    (l-file (file-name-nondirectory (match-string 2 kind)))"},{"Add":"                    (l-line (string-to-number (match-string 4 kind)))"},{"Add":"                    (l-bol (string-to-number (match-string 5 kind)))"},{"Add":"                    (l-cnum (string-to-number (match-string 6 kind)))"},{"Add":"                    (r-file (file-name-nondirectory (match-string 7 kind)))"},{"Add":"                    (r-line (string-to-number (match-string 9 kind)))"},{"Add":"                    (r-bol (string-to-number (match-string 10 kind)))"},{"Add":"                    (r-cnum (string-to-number (match-string 11 kind))))"},{"Add":"                (let* ((lpos (vector l-file l-line l-bol l-cnum))"},{"Add":"                       (rpos (vector r-file r-line r-bol r-cnum))"},{"Add":"                       (left (caml-types-get-pos target-buf lpos))"},{"Add":"                       (right (caml-types-get-pos target-buf rpos)))"},{"Add":"                  (message (format \"local variable %s is bound here\" var-name))"},{"Add":"                  (move-overlay caml-types-scope-ovl left right target-buf))))"},{"Add":"             ((string-match def-end-re kind)"},{"Add":"              (let ((var-name (match-string 1 kind))"},{"Add":"                    (l-file (file-name-nondirectory (match-string 2 kind)))"},{"Add":"                    (l-line (string-to-number (match-string 4 kind)))"},{"Add":"                    (l-bol (string-to-number (match-string 5 kind)))"},{"Add":"                    (l-cnum (string-to-number (match-string 6 kind))))"},{"Add":"                (let* ((lpos (vector l-file l-line l-bol l-cnum))"},{"Add":"                       (left (caml-types-get-pos target-buf lpos))"},{"Add":"                       (right (buffer-size target-buf)))"},{"Add":"                  (message (format \"global variable %s is bound here\" var-name))"},{"Add":"                  (move-overlay caml-types-scope-ovl left right target-buf))))"},{"Add":"             ((string-match internal-re kind)"},{"Add":"              (let ((var-name (match-string 1 kind))"},{"Add":"                    (l-file (file-name-nondirectory (match-string 2 kind)))"},{"Add":"                    (l-line (string-to-number (match-string 4 kind)))"},{"Add":"                    (l-bol (string-to-number (match-string 5 kind)))"},{"Add":"                    (l-cnum (string-to-number (match-string 6 kind)))"},{"Add":"                    (r-file (file-name-nondirectory (match-string 7 kind)))"},{"Add":"                    (r-line (string-to-number (match-string 9 kind)))"},{"Add":"                    (r-bol (string-to-number (match-string 10 kind)))"},{"Add":"                    (r-cnum (string-to-number (match-string 11 kind))))"},{"Add":"                (let* ((lpos (vector l-file l-line l-bol l-cnum))"},{"Add":"                       (rpos (vector r-file r-line r-bol r-cnum))"},{"Add":"                       (left (caml-types-get-pos target-buf lpos))"},{"Add":"                       (right (caml-types-get-pos target-buf rpos)))"},{"Add":"                  (move-overlay caml-types-def-ovl left right target-buf)"},{"Add":"                  (message (format \"%s is bound at line %d char %d\""},{"Add":"                                   var-name l-line (- l-cnum l-bol))))))"},{"Add":"             ((string-match external-re kind)"},{"Add":"              (let ((fullname (match-string 1 kind)))"},{"Add":"                (caml-types-feedback fullname \"external ident: %s\")))))))))"},{"Add":"    (if (and (= arg 4)"},{"Add":"             (not (window-live-p (get-buffer-window caml-types-buffer))))"},{"Add":"        (display-buffer caml-types-buffer))"},{"Add":"    (unwind-protect"},{"Add":"        (sit-for 60)"},{"Add":"      (delete-overlay caml-types-expr-ovl)"},{"Add":"      (delete-overlay caml-types-def-ovl)"},{"Add":"      (delete-overlay caml-types-scope-ovl))))"},{"Add":""},{"Add":"(defun caml-types-preprocess (target-path)"},{"Add":"  (let* ((type-path (caml-types-locate-type-file target-path))"},{"Add":"         (type-date (nth 5 (file-attributes (file-chase-links type-path))))"},{"Add":"         (target-date (nth 5 (file-attributes target-file))))"},{"Add":"    (unless (and caml-types-annotation-tree"},{"Add":"                 type-date"},{"Add":"                 caml-types-annotation-date"},{"Add":"                 (not (caml-types-date< caml-types-annotation-date type-date)))"},{"Add":"      (if (and type-date target-date (caml-types-date< type-date target-date))"},{"Add":"          (error (format \"`%s' is more recent than `%s'\""},{"Add":"                         target-path type-path)))"},{"Add":"      (message \"Reading annotation file...\")"},{"Add":"      (let* ((type-buf (caml-types-find-file type-path))"},{"Add":"             (tree (with-current-buffer type-buf"},{"Add":"                    (widen)"},{"Add":"                    (goto-char (point-min))"},{"Add":"                    (caml-types-build-tree"},{"Add":"                     (file-name-nondirectory target-path)))))"},{"Add":"        (setq caml-types-annotation-tree tree"},{"Add":"              caml-types-annotation-date type-date)"},{"Add":"        (kill-buffer type-buf)"},{"Add":"        (message \"done\")))))"},{"Add":""},{"Add":"(defun caml-types-parent-dir (d) (file-name-directory (directory-file-name d)))"},{"Add":""},{"Add":"(defun caml-types-locate-type-file (target-path)"},{"Add":"  \"Given the path to an OCaml file, try to locate and return the"},{"Add":"corresponding .annot file.\""},{"Add":"  (let ((sibling (concat (file-name-sans-extension target-path) \".annot\")))"},{"Add":"    (if (file-exists-p sibling)"},{"Add":"        sibling"},{"Add":"      (let* ((dir (file-name-directory sibling)))"},{"Add":"        (if caml-annot-dir"},{"Add":"            ;; Use the relative path set by the user"},{"Add":"            (let* ((annot-dir (expand-file-name caml-annot-dir dir))"},{"Add":"                   (fname (file-name-nondirectory sibling))"},{"Add":"                   (path-fname (expand-file-name fname annot-dir)))"},{"Add":"              (if (file-exists-p path-fname)"},{"Add":"                  path-fname"},{"Add":"                (error (concat \"No annotation file in \" caml-annot-dir"},{"Add":"                               \". Compile with option \\\"-annot\\\".\"))))"},{"Add":"          ;; Else, try to get the .annot from one of build dirs."},{"Add":"          (let* ((is-build (regexp-opt caml-types-build-dirs))"},{"Add":"                 (project-dir (locate-dominating-file"},{"Add":"                               dir"},{"Add":"                               (lambda(d) (directory-files d nil is-build))))"},{"Add":"                 (annot"},{"Add":"                  (if project-dir"},{"Add":"                      (locate-file"},{"Add":"                       (file-relative-name sibling project-dir)"},{"Add":"                       (mapcar (lambda(d) (expand-file-name d project-dir))"},{"Add":"                               caml-types-build-dirs)))))"},{"Add":"            (if annot"},{"Add":"                annot"},{"Add":"              (error (concat \"No annotation file. Compile with option \""},{"Add":"                             \"\\\"-annot\\\" or set `caml-annot-dir'.\")))))))))"},{"Add":""},{"Add":"(defun caml-types-date< (date1 date2)"},{"Add":"  (or (< (car date1) (car date2))"},{"Add":"      (and (= (car date1) (car date2))"},{"Add":"           (< (nth 1 date1) (nth 1 date2)))))"},{"Add":""},{"Add":""},{"Add":"; we use an obarray for hash-consing the strings within each tree"},{"Add":""},{"Add":"(defun caml-types-make-hash-table ()"},{"Add":"  (make-vector 255 0))"},{"Add":""},{"Add":"(defun caml-types-hcons (elem table)"},{"Add":"  (symbol-name (intern elem table)))"},{"Add":""},{"Add":""},{"Add":"(defun caml-types--next-annotation ()"},{"Add":"  (forward-char 1)"},{"Add":"  (if (re-search-forward \"^[a-z\\\"]\" () t)"},{"Add":"      (forward-char -1)"},{"Add":"    (goto-char (point-max)))"},{"Add":"  (looking-at \"[a-z]\"))"},{"Add":""},{"Add":"; tree of intervals"},{"Add":"; each node is a vector"},{"Add":"; [ pos-left pos-right annotation child child child... ]"},{"Add":"; annotation is a list of:"},{"Add":";   (kind . info) where kind = \"type\" \"call\" etc."},{"Add":";                 and info = the contents of the annotation"},{"Add":""},{"Add":"(defun caml-types-build-tree (t-file)"},{"Add":"  (let ((target-file t-file)"},{"Add":"        (stack ())"},{"Add":"        (accu ())"},{"Add":"        (table (caml-types-make-hash-table))"},{"Add":"        (annotation ()))"},{"Add":"    (while (re-search-forward caml-types-location-re () t)"},{"Add":"      (let ((l-file (file-name-nondirectory (match-string 1)))"},{"Add":"            (l-line (string-to-number (match-string 3)))"},{"Add":"            (l-bol (string-to-number (match-string 4)))"},{"Add":"            (l-cnum (string-to-number (match-string 5)))"},{"Add":"            (r-file (file-name-nondirectory (match-string 6)))"},{"Add":"            (r-line (string-to-number (match-string 8)))"},{"Add":"            (r-bol (string-to-number (match-string 9)))"},{"Add":"            (r-cnum (string-to-number (match-string 10))))"},{"Add":"        (unless (caml-types-not-in-file l-file r-file target-file)"},{"Add":"          (setq annotation ())"},{"Add":"          (while (caml-types--next-annotation)"},{"Add":"            (cond ((looking-at \"^\\\\([a-z]+\\\\)(\\n  \\\\(\\\\(.*\\n  \\\\)*.*\\\\)\\n)\")"},{"Add":"                   (let ((kind (caml-types-hcons (match-string 1) table))"},{"Add":"                         (info (caml-types-hcons (match-string 2) table)))"},{"Add":"                     (setq annotation (cons (cons kind info) annotation))))))"},{"Add":"          (setq accu ())"},{"Add":"          (while (and stack"},{"Add":"                      (caml-types-pos-contains l-cnum r-cnum (car stack)))"},{"Add":"            (setq accu (cons (car stack) accu))"},{"Add":"            (setq stack (cdr stack)))"},{"Add":"          (let* ((left-pos (vector l-file l-line l-bol l-cnum))"},{"Add":"                 (right-pos (vector r-file r-line r-bol r-cnum))"},{"Add":"                 (node (caml-types-make-node left-pos right-pos annotation"},{"Add":"                                             accu)))"},{"Add":"            (setq stack (cons node stack))))))"},{"Add":"    (if (null stack)"},{"Add":"        (error \"No annotations found for this source file\")"},{"Add":"      (let* ((left-pos (elt (car (last stack)) 0))"},{"Add":"             (right-pos (elt (car stack) 1)))"},{"Add":"        (if (null (cdr stack))"},{"Add":"            (car stack)"},{"Add":"          (caml-types-make-node left-pos right-pos () (nreverse stack)))))))"},{"Add":""},{"Add":"(defun caml-types-not-in-file (l-file r-file t-file)"},{"Add":"  (not (and (or (string= l-file t-file)"},{"Add":"                (string= l-file \"\"))"},{"Add":"            (or (string= r-file t-file)"},{"Add":"                (string= r-file \"\")))))"},{"Add":""},{"Add":"(defun caml-types-make-node (left-pos right-pos annotation children)"},{"Add":"  (let ((result (make-vector (+ 3 (length children)) ()))"},{"Add":"        (i 3))"},{"Add":"    (aset result 0 left-pos)"},{"Add":"    (aset result 1 right-pos)"},{"Add":"    (aset result 2 annotation)"},{"Add":"    (while children"},{"Add":"      (aset result i (car children))"},{"Add":"      (setq children (cdr children))"},{"Add":"      (setq i (1+ i)))"},{"Add":"    result))"},{"Add":""},{"Add":"(defun caml-types-pos-contains (l-cnum r-cnum node)"},{"Add":"  (and (<= l-cnum (elt (elt node 0) 3))"},{"Add":"       (>= r-cnum (elt (elt node 1) 3))))"},{"Add":""},{"Add":"(defun caml-types-find-location (targ-pos kind curr node)"},{"Add":"  (if (not (caml-types-pos-inside targ-pos node))"},{"Add":"      curr"},{"Add":"    (if (and (elt node 2) (assoc kind (elt node 2)))"},{"Add":"        (setq curr node))"},{"Add":"    (let ((i (caml-types-search node targ-pos)))"},{"Add":"      (if (and (> i 3)"},{"Add":"               (caml-types-pos-inside targ-pos (elt node (1- i))))"},{"Add":"          (caml-types-find-location targ-pos kind curr (elt node (1- i)))"},{"Add":"        curr))))"},{"Add":""},{"Add":"; trouve le premier fils qui commence apres la position"},{"Add":"; ou (length node) si tous commencent avant"},{"Add":"(defun caml-types-search (node pos)"},{"Add":"  (let ((min 3)"},{"Add":"        (max (length node))"},{"Add":"        med)"},{"Add":"    (while (< min max)"},{"Add":"      (setq med (/ (+ min max) 2))"},{"Add":"      (if (caml-types-pos<= (elt (elt node med) 0) pos)"},{"Add":"          (setq min (1+ med))"},{"Add":"        (setq max med)))"},{"Add":"    min))"},{"Add":""},{"Add":"(defun caml-types-pos-inside (pos node)"},{"Add":"  (let ((left-pos (elt node 0))"},{"Add":"        (right-pos (elt node 1)))"},{"Add":"    (and (caml-types-pos<= left-pos pos)"},{"Add":"         (caml-types-pos> right-pos pos))))"},{"Add":""},{"Add":"(defun caml-types-find-interval (buf targ-pos node)"},{"Add":"  (let ((nleft (elt node 0))"},{"Add":"        (nright (elt node 1))"},{"Add":"        (left ())"},{"Add":"        (right ())"},{"Add":"        i)"},{"Add":"    (cond"},{"Add":"     ((not (caml-types-pos-inside targ-pos node))"},{"Add":"      (if (not (caml-types-pos<= nleft targ-pos))"},{"Add":"          (setq right nleft))"},{"Add":"      (if (not (caml-types-pos> nright targ-pos))"},{"Add":"          (setq left nright)))"},{"Add":"     (t"},{"Add":"      (setq left nleft"},{"Add":"            right nright)"},{"Add":"      (setq i (caml-types-search node targ-pos))"},{"Add":"      (if (< i (length node))"},{"Add":"          (setq right (elt (elt node i) 0)))"},{"Add":"      (if (> i 3)"},{"Add":"          (setq left (elt (elt node (1- i)) 1)))))"},{"Add":"     (cons (if left"},{"Add":"               (caml-types-get-pos buf left)"},{"Add":"             (with-current-buffer buf (point-min)))"},{"Add":"           (if right"},{"Add":"               (caml-types-get-pos buf right)"},{"Add":"             (with-current-buffer buf (point-max))))))"},{"Add":""},{"Add":""},{"Add":";; Warning: these comparison functions are not symmetric."},{"Add":";; The first argument determines the format:"},{"Add":";; when its file component is empty, only the cnum is compared."},{"Add":""},{"Add":"(defun caml-types-pos<= (pos1 pos2)"},{"Add":"  (let ((file1 (elt pos1 0))"},{"Add":"        (line1 (elt pos1 1))"},{"Add":"        (bol1 (elt pos1 2))"},{"Add":"        (cnum1 (elt pos1 3))"},{"Add":"        (file2 (elt pos2 0))"},{"Add":"        (line2 (elt pos2 1))"},{"Add":"        (bol2 (elt pos2 2))"},{"Add":"        (cnum2 (elt pos2 3)))"},{"Add":"    (if (string= file1 \"\")"},{"Add":"        (<= cnum1 cnum2)"},{"Add":"      (and (string= file1 file2)"},{"Add":"           (or (< line1 line2)"},{"Add":"               (and (= line1 line2)"},{"Add":"                    (<= (- cnum1 bol1) (- cnum2 bol2))))))))"},{"Add":""},{"Add":"(defun caml-types-pos> (pos1 pos2)"},{"Add":"  (let ((file1 (elt pos1 0))"},{"Add":"        (line1 (elt pos1 1))"},{"Add":"        (bol1 (elt pos1 2))"},{"Add":"        (cnum1 (elt pos1 3))"},{"Add":"        (file2 (elt pos2 0))"},{"Add":"        (line2 (elt pos2 1))"},{"Add":"        (bol2 (elt pos2 2))"},{"Add":"        (cnum2 (elt pos2 3)))"},{"Add":"    (if (string= file1 \"\")"},{"Add":"        (> cnum1 cnum2)"},{"Add":"      (and (string= file1 file2)"},{"Add":"           (or (> line1 line2)"},{"Add":"               (and (= line1 line2)"},{"Add":"                    (> (- cnum1 bol1) (- cnum2 bol2))))))))"},{"Add":""},{"Add":"(defun caml-types-get-pos (buf pos)"},{"Add":"  (with-current-buffer buf"},{"Add":"    (save-restriction"},{"Add":"      (widen)"},{"Add":"      (goto-char (point-min))"},{"Add":"      (forward-line (1- (elt pos 1)))"},{"Add":"      (forward-char (- (elt pos 3) (elt pos 2)))"},{"Add":"      (point))))"},{"Add":""},{"Add":"; find-file-read-only-noselect seems to be missing from emacs..."},{"Add":"(defun caml-types-find-file (name)"},{"Add":"  (let (buf)"},{"Add":"  (cond"},{"Add":"   ((setq buf (get-file-buffer name))"},{"Add":"    (unless (verify-visited-file-modtime buf)"},{"Add":"      (if (buffer-modified-p buf)"},{"Add":"          (find-file-noselect name)"},{"Add":"        (with-current-buffer buf (revert-buffer t t)))))"},{"Add":"   ((and (file-readable-p name)"},{"Add":"         (setq buf (find-file-noselect name)))"},{"Add":"     (with-current-buffer buf (read-only-mode 1)))"},{"Add":"   (t"},{"Add":"    (error (format \"Can't read the annotation file `%s'\" name))))"},{"Add":"  buf))"},{"Add":""},{"Add":"(defun caml-types-mouse-ignore (_event)"},{"Add":"  (interactive \"e\")"},{"Add":"  nil)"},{"Add":""},{"Add":"(defun caml-types-time ()"},{"Add":"  (if (fboundp 'time-convert)"},{"Add":"      (mod (car (time-convert nil 1000)) 1000000)"},{"Add":"    (let ((time (current-time)))"},{"Add":"     (+ (* (mod (cadr time) 1000) 1000)"},{"Add":"                  (/ (cadr (cdr time)) 1000)))))"},{"Add":""},{"Add":"(defun caml--release-event-p (original event)"},{"Add":"  (and (equal (event-basic-type original) (event-basic-type event))"},{"Add":"       (let ((modifiers  (event-modifiers event)))"},{"Add":"         (or (member 'drag modifiers)"},{"Add":"             (member 'click modifiers)))))"},{"Add":""},{"Add":"(defun caml--event-point-end (e) (posn-point (event-end e)))"},{"Add":"(defun caml--event-window (e) (posn-window (event-start e)))"},{"Add":""},{"Add":"(defun caml-types-explore (event)"},{"Add":"  \"Explore type annotations by mouse dragging."},{"Add":""},{"Add":"The expression under the mouse is highlighted and its type is displayed"},{"Add":"in the minibuffer, until the move is released, much as `caml-types-show-type'."},{"Add":"The function uses two overlays."},{"Add":""},{"Add":" . One overlay delimits the largest region whose all subnodes"},{"Add":"   are well-typed."},{"Add":" . Another overlay delimits the current node under the mouse (whose type"},{"Add":"   annotation is being displayed).\""},{"Add":"  (interactive \"e\")"},{"Add":"  (set-buffer (window-buffer (caml--event-window event)))"},{"Add":"  (let* ((target-buf (current-buffer))"},{"Add":"         (target-file (file-name-nondirectory (buffer-file-name)))"},{"Add":"         (target-line) (target-bol)"},{"Add":"         target-pos"},{"Add":"         limits cnum node mes type"},{"Add":"         region"},{"Add":"         (window (caml--event-window event))"},{"Add":"         target-tree"},{"Add":"         (speed 100)"},{"Add":"         (last-time (caml-types-time))"},{"Add":"         (original-event event))"},{"Add":"    (select-window window)"},{"Add":"    (unwind-protect"},{"Add":"        (progn"},{"Add":"          (caml-types-preprocess (buffer-file-name))"},{"Add":"          (setq target-tree caml-types-annotation-tree)"},{"Add":"          (setq caml-types-buffer (get-buffer-create caml-types-buffer-name))"},{"Add":"          ;; (message \"Drag the mouse to explore types\")"},{"Add":"          (unwind-protect"},{"Add":"              (track-mouse"},{"Add":"               (while event"},{"Add":"                 (cond"},{"Add":"                  ;; we ignore non mouse events"},{"Add":"                  ((integer-or-marker-p event))"},{"Add":"                  ;; we stop when the original button is released"},{"Add":"                  ((caml--release-event-p original-event event)"},{"Add":"                   (setq event nil))"},{"Add":"                  ;; we scroll when the motion is outside the window"},{"Add":"                  ((and (mouse-movement-p event)"},{"Add":"                        (not (and (equal window (caml--event-window event))"},{"Add":"                                  (integer-or-marker-p"},{"Add":"                                   (caml--event-point-end event)))))"},{"Add":"                   (let* ((win (window-edges window))"},{"Add":"                          (top (nth 1 win))"},{"Add":"                          (bottom (- (nth 3 win) 1))"},{"Add":"                          mouse"},{"Add":"                          time)"},{"Add":"                     (while (and"},{"Add":"                             (sit-for 0 (/ 500 speed))"},{"Add":"                             (setq time (caml-types-time))"},{"Add":"                             (> (- time last-time) (/ 500 speed))"},{"Add":"                             (setq mouse (cddr (mouse-position)))"},{"Add":"                             (or (< mouse top) (>= mouse bottom)))"},{"Add":"                       (setq last-time time)"},{"Add":"                       (cond"},{"Add":"                        ((< mouse top)"},{"Add":"                         (setq speed (- top mouse))"},{"Add":"                         (condition-case nil"},{"Add":"                             (scroll-down 1)"},{"Add":"                           (error (message \"Beginning of buffer!\"))))"},{"Add":"                        ((>= mouse bottom)"},{"Add":"                         (setq speed (+ 1 (- mouse bottom)))"},{"Add":"                         (condition-case nil"},{"Add":"                             (scroll-up 1)"},{"Add":"                           (error (message \"End of buffer!\")))))"},{"Add":"                       (setq speed (* speed speed)))))"},{"Add":"                  ;; main action, when the motion is inside the window"},{"Add":"                  ;; or on original button down event"},{"Add":"                  ((or (mouse-movement-p event)"},{"Add":"                       (equal original-event event))"},{"Add":"                   (setq cnum (caml--event-point-end event))"},{"Add":"                   (if (and region"},{"Add":"                            (<= (car region) cnum) (< cnum (cdr region)))"},{"Add":"                       ;; mouse remains in outer region"},{"Add":"                       nil"},{"Add":"                     ;; otherwise, reset the outer region"},{"Add":"                     (setq region"},{"Add":"                           (caml-types-typed-make-overlay"},{"Add":"                            target-buf (posn-point (event-start event)))))"},{"Add":"                   (if"},{"Add":"                       (and limits"},{"Add":"                            (>= cnum (car limits)) (< cnum (cdr limits)))"},{"Add":"                       ;; inner region is unchanged"},{"Add":"                       nil"},{"Add":"                     ;; recompute the inner region and type annotation"},{"Add":"                     (setq target-bol"},{"Add":"                           (save-excursion"},{"Add":"                             (goto-char cnum) (line-beginning-position))"},{"Add":"                           target-line (1+ (count-lines (point-min)"},{"Add":"                                                        target-bol))"},{"Add":"                           target-pos"},{"Add":"                           (vector target-file target-line target-bol cnum))"},{"Add":"                     (save-excursion"},{"Add":"                       (setq node (caml-types-find-location target-pos \"type\" ()"},{"Add":"                                                            target-tree))"},{"Add":"                       (set-buffer caml-types-buffer)"},{"Add":"                       (erase-buffer)"},{"Add":"                       (cond"},{"Add":"                        ((null node)"},{"Add":"                         (delete-overlay caml-types-expr-ovl)"},{"Add":"                         (setq type \"*no type information*\")"},{"Add":"                         (setq limits"},{"Add":"                               (caml-types-find-interval"},{"Add":"                                target-buf target-pos target-tree)))"},{"Add":"                        (t"},{"Add":"                         (let ((left"},{"Add":"                                (caml-types-get-pos target-buf (elt node 0)))"},{"Add":"                               (right"},{"Add":"                                (caml-types-get-pos target-buf (elt node 1))))"},{"Add":"                         (move-overlay"},{"Add":"                          caml-types-expr-ovl left right target-buf)"},{"Add":"                         (setq limits"},{"Add":"                               (caml-types-find-interval target-buf"},{"Add":"                                                         target-pos node)"},{"Add":"                               type (cdr (assoc \"type\" (elt node 2)))))))"},{"Add":"                       (setq mes (format \"type: %s\" type))"},{"Add":"                       (insert type)))"},{"Add":"                   (message mes)))"},{"Add":"                 ;; we read next event, unless it is nil, and loop back."},{"Add":"                 (if event (setq event (read-event)))))"},{"Add":"            ;; delete overlays at end of exploration"},{"Add":"            (delete-overlay caml-types-expr-ovl)"},{"Add":"            (delete-overlay caml-types-typed-ovl)))"},{"Add":"      ;; When an error occurs, the mouse release event has not been read."},{"Add":"      ;; We could wait for mouse release to prevent execution of"},{"Add":"      ;; a binding of mouse release, such as cut or paste."},{"Add":"      ;; In most common cases, next event will be the mouse release."},{"Add":"      ;; However, it could also be a key stroke before mouse release."},{"Add":"      ;; Emacs does not allow to test whether mouse is up or down."},{"Add":"      ;; Not sure it is robust to loop for mouse release after an error"},{"Add":"      ;; occurred, as is done for exploration."},{"Add":"      ;; So far, we just ignore next event. (Next line also be uncommenting.)"},{"Add":"      (if event (read-event)))))"},{"Add":""},{"Add":"(defun caml-types-typed-make-overlay (target-buf pos)"},{"Add":"  (interactive \"p\")"},{"Add":"  (let ((start pos) (end pos) len node left right)"},{"Add":"      (setq len (length caml-types-annotation-tree))"},{"Add":"      (while (> len 3)"},{"Add":"        (setq len (- len 1))"},{"Add":"        (setq node (aref caml-types-annotation-tree len))"},{"Add":"        (if (and (equal target-buf (current-buffer))"},{"Add":"                 (setq left (caml-types-get-pos target-buf (elt node 0))"},{"Add":"                       right (caml-types-get-pos target-buf (elt node 1)))"},{"Add":"                 (<= left pos) (> right pos))"},{"Add":"            (setq start (min start left)"},{"Add":"                  end (max end right))))"},{"Add":"      (move-overlay caml-types-typed-ovl"},{"Add":"                    (max (point-min) (- start 1))"},{"Add":"                    (min (point-max) (+ end 1)) target-buf)"},{"Add":"    (cons start end)))"},{"Add":""},{"Add":"(defun caml-types-version ()"},{"Add":"  \"Internal version number of caml-types.el.\""},{"Add":"  (interactive)"},{"Add":"  (message \"4\"))"},{"Add":""},{"Add":"(provide 'caml-types)"}]}},{"FileAdd":{"meta":{"basename":"caml-pkg.el","metadata":0},"context":[{"change":0,"pos":2136691}],"contents":[{"Add":"(define-package \"caml\" \"20230129.1145\" \"Caml mode for GNU Emacs\""},{"Add":"  '((emacs \"24.3\"))"},{"Add":"  :commit \"959a5a27bfdbaa43a9ff99be136d62e0798f5e01\" :authors"},{"Add":"  '((\"Jacques Garrigue\" . \"garrigue@kurims.kyoto-u.ac.jp\")"},{"Add":"    (\"Ian T Zimmerman\" . \"itz@rahul.net\")"},{"Add":"    (\"Damien Doligez\" . \"damien.doligez@inria.fr\"))"},{"Add":"  :maintainers"},{"Add":"  '((\"Christophe Troestler\" . \"Christophe.Troestler@umons.ac.be\"))"},{"Add":"  :maintainer"},{"Add":"  '(\"Christophe Troestler\" . \"Christophe.Troestler@umons.ac.be\")"},{"Add":"  :keywords"},{"Add":"  '(\"ocaml\")"},{"Add":"  :url \"https://github.com/ocaml/caml-mode\")"},{"Add":";; Local Variables:"},{"Add":";; no-byte-compile: t"},{"Add":";; End:"}]}},{"FileAdd":{"meta":{"basename":"caml-help.el","metadata":0},"context":[{"change":0,"pos":2136691}],"contents":[{"Add":";;; caml-help.el --- Contextual completion and help to caml-mode  -*- lexical-binding: t; -*-"},{"Add":";**************************************************************************"},{"Add":";*                                                                        *"},{"Add":";*                                 OCaml                                  *"},{"Add":";*                                                                        *"},{"Add":";*             Didier Remy, projet Cristal, INRIA Rocquencourt            *"},{"Add":";*                                                                        *"},{"Add":";*   Copyright 2001 Institut National de Recherche en Informatique et     *"},{"Add":";*     en Automatique.                                                    *"},{"Add":";*                                                                        *"},{"Add":";*   All rights reserved.  This file is distributed under the terms of    *"},{"Add":";*   the GNU General Public License.                                      *"},{"Add":";*                                                                        *"},{"Add":";**************************************************************************"},{"Add":""},{"Add":";; Author: Didier Remy, November 2001."},{"Add":""},{"Add":";;; Commentary:"},{"Add":""},{"Add":";; This provides two functions: completion and help."},{"Add":";; Look for caml-complete and caml-help."},{"Add":""},{"Add":";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"},{"Add":";;"},{"Add":";;  This is a preliminary version."},{"Add":";;"},{"Add":";;  Possible improvements?"},{"Add":";;   - dump some databases: Info, Lib, ..."},{"Add":";;   - accept a search path for local libraries instead of current dir"},{"Add":";;     (then distinguish between different modules lying in different"},{"Add":";;     directories)"},{"Add":";;   - improve the construction for info files."},{"Add":";;"},{"Add":";;  Abstract over"},{"Add":";;   - the viewing method and the database, so that the documentation for"},{"Add":";;     an identifier could be"},{"Add":";;       * searched in info / html / man / mli's sources"},{"Add":";;       * viewed in Emacs or using an external previewer."},{"Add":";;"},{"Add":";;  Take all identifiers (labels, Constructors, exceptions, etc.)"},{"Add":";;"},{"Add":";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"},{"Add":""},{"Add":";;; Code:"},{"Add":""},{"Add":"(require 'info)"},{"Add":"(require 'view)"},{"Add":""},{"Add":";; Loading or building databases."},{"Add":";;"},{"Add":""},{"Add":";; variables to be customized"},{"Add":""},{"Add":"(defgroup caml-help nil"},{"Add":"  \"Customizations for `caml-help'.\""},{"Add":"  :group 'languages)"},{"Add":""},{"Add":"(require 'cl-lib)"},{"Add":""},{"Add":"(defvar ocaml-lib-path 'lazy"},{"Add":"  \"Path list for ocaml lib sources (mli files)."},{"Add":""},{"Add":"`lazy' means ask ocaml to find it for you at first use.\")"},{"Add":"(defun ocaml-lib-path ()"},{"Add":"  \"Compute if necessary and return the path for ocaml libs.\""},{"Add":"  (if (listp ocaml-lib-path) nil"},{"Add":"    (setq ocaml-lib-path"},{"Add":"          (split-string"},{"Add":"           (shell-command-to-string"},{"Add":"            (or"},{"Add":"             (and (boundp 'inferior-caml-program)"},{"Add":"                      (string-match \"\\\\([^ ]*/ocaml\\\\)\\\\( \\\\|$\\\\)\""},{"Add":"                       inferior-caml-program)"},{"Add":"                      (let ((file"},{"Add":"                             (concat (match-string 1 inferior-caml-program)"},{"Add":"                                     \"c\")))"},{"Add":"                        (and (file-executable-p file)"},{"Add":"                             (concat file \" -where\"))))"},{"Add":"             \"ocamlc -where\")))))"},{"Add":"    ocaml-lib-path)"},{"Add":""},{"Add":""},{"Add":""},{"Add":";; General purpose auxiliary functions"},{"Add":""},{"Add":"(defun ocaml-capitalize (s)"},{"Add":"  (concat (capitalize (substring s 0 1)) (substring s 1)))"},{"Add":""},{"Add":"(defun ocaml-uncapitalize (s)"},{"Add":"  (if (> (length s) 0)"},{"Add":"      (concat (downcase (substring s 0 1)) (substring s 1))"},{"Add":"    s))"},{"Add":""},{"Add":"(defun ocaml-find-files (path filter &optional depth split)"},{"Add":"  (let* ((path-string"},{"Add":"          (if (stringp path)"},{"Add":"              (if (file-directory-p path) path nil)"},{"Add":"            (mapconcat (lambda (d) (if (file-directory-p d) d))"},{"Add":"                       path \" \")))"},{"Add":"         (command"},{"Add":"          (and path-string"},{"Add":"               (concat \"find \" path-string"},{"Add":"                       \" '(' \" filter \" ')' \""},{"Add":"                       (if depth (concat \" -maxdepth \" (int-to-string depth)))"},{"Add":"                       (if split nil \" -printf '%\\p '\")"},{"Add":"                       )))"},{"Add":"          (files"},{"Add":"           (and command (shell-command-to-string command))))"},{"Add":"         (if (and split (stringp files)) (split-string files \"\\n\") files)"},{"Add":"         ))"},{"Add":""},{"Add":";; Specialized auxiliary functions"},{"Add":""},{"Add":""},{"Add":";; Global table of modules contents of modules loaded lazily."},{"Add":""},{"Add":"(defvar ocaml-module-alist 'lazy"},{"Add":"  \"A-list of modules with how and where to find help information."},{"Add":"`delay' means non computed yet.\")"},{"Add":""},{"Add":"(defun ocaml-add-mli-modules (modules tag &optional path)"},{"Add":"  (let ((files"},{"Add":"         (ocaml-find-files (or path (ocaml-lib-path))"},{"Add":"                           \"-type f -name '*.mli'\" 1 t)))"},{"Add":"    (while (consp files)"},{"Add":"      (if (string-match \"\\\\([^/]*\\\\).mli\" (car files))"},{"Add":"          (let* ((module (ocaml-capitalize (match-string 1 (car files))))"},{"Add":"                 (dir (file-name-directory (car files)))"},{"Add":"                 (dirp (member dir (ocaml-lib-path))))"},{"Add":"            (if (and (consp dirp) (string-equal dir (car dirp)))"},{"Add":"                (setq dir (car dirp)))"},{"Add":"            (if (assoc module modules) nil"},{"Add":"              (setq modules"},{"Add":"                    (cons (cons module (cons (cons tag dir) 'lazy)) modules))"},{"Add":"              )))"},{"Add":"      (setq files (cdr files)))"},{"Add":"    modules))"},{"Add":""},{"Add":"(defun ocaml-add-path (dir &optional _path)"},{"Add":"  \"Extend  `ocaml-module-alist' with modules of DIR relative to PATH.\""},{"Add":"  (interactive \"D\")"},{"Add":"  (let* ((old (ocaml-lib-path))"},{"Add":"         (new"},{"Add":"          (if (file-name-absolute-p dir) dir"},{"Add":"            (concat"},{"Add":"             (or (cl-find-if (lambda (p) (file-directory-p (concat p  \"/\" dir)))"},{"Add":"                             (cons default-directory old))"},{"Add":"                 (error \"Directory not found\"))"},{"Add":"             \"/\" dir))))"},{"Add":"    (setq ocaml-lib-path (cons (car old) (cons new (cdr old))))"},{"Add":"    (setq ocaml-module-alist"},{"Add":"          (ocaml-add-mli-modules (ocaml-module-alist) 'lib new))))"},{"Add":""},{"Add":"(defun ocaml-module-alist ()"},{"Add":"  \"Call by need value of variable `ocaml-module-alist'.\""},{"Add":"  (if (listp ocaml-module-alist)"},{"Add":"      nil"},{"Add":"    ;; build list of mli files"},{"Add":"    (setq ocaml-module-alist (ocaml-add-mli-modules nil 'lib))"},{"Add":"    ;; dumping information ? TODO"},{"Add":"    )"},{"Add":"  ocaml-module-alist)"},{"Add":""},{"Add":"(defun ocaml-get-or-make-module (module &optional _tag)"},{"Add":"  (let ((info (assoc module (ocaml-module-alist))))"},{"Add":"    (if info nil"},{"Add":"      (setq info (cons module (cons (cons 'local default-directory) 'lazy)))"},{"Add":"      (push info ocaml-module-alist)"},{"Add":"      )"},{"Add":"    info))"},{"Add":""},{"Add":";; Symbols of module are lazily computed"},{"Add":""},{"Add":"(defun ocaml-module-filename (module)"},{"Add":"  (let ((module (ocaml-uncapitalize module)) (name))"},{"Add":"    (if (file-exists-p (setq name (concat module \".mli\"))) nil"},{"Add":"      (let ((tmp (ocaml-lib-path)))"},{"Add":"        (while (consp tmp)"},{"Add":"          (setq name (concat (car tmp) \"/\" module \".mli\"))"},{"Add":"          (if (file-exists-p name) (setq tmp nil)"},{"Add":"            (setq name nil)))))"},{"Add":"    name))"},{"Add":""},{"Add":"(defun ocaml-module-symbols (module-info)"},{"Add":"  (let* ((module (car module-info))"},{"Add":"         (tail (and module-info (cdr module-info)))"},{"Add":"         (tag (caar tail))"},{"Add":"         (dir (cdar tail))"},{"Add":"         (file)"},{"Add":"         (alist))"},{"Add":"    (if (listp (cdr tail))"},{"Add":"        (cdr tail)"},{"Add":"      (if (equal tag 'info)"},{"Add":"          (setq dir (car ocaml-lib-path)) ; XXX to be fixed"},{"Add":"        )"},{"Add":"      (setq file (concat dir \"/\" (ocaml-uncapitalize module) \".mli\"))"},{"Add":"      (message file)"},{"Add":"      (save-window-excursion"},{"Add":"        (set-buffer (get-buffer-create \"*caml-help*\"))"},{"Add":"        (if (and file (file-exists-p file))"},{"Add":"            (progn"},{"Add":"              (message \"Scanning module %s\" file)"},{"Add":"              (insert-file-contents file))"},{"Add":"          (message \"Module %s not found\" module))"},{"Add":"        (while (re-search-forward"},{"Add":"                (concat \"\\\\([ \\t]*val\\\\|let\\\\|exception\\\\|external\\\\|  [|]\\\\) \\\\([a-zA-Z_0-9'][a-zA-Z_0-9']*\\\\)\""},{"Add":"                        \"\\\\|^  *[{]* \\\\([a-z_][A-Za-z_0-9]*\\\\) : [^;\\n][^;\\n]*;\")"},{"Add":"                (point-max) 'move)"},{"Add":"          (pop-to-buffer (current-buffer))"},{"Add":"          (setq alist (cons (or (match-string 2) (match-string 3)) alist)))"},{"Add":"        (erase-buffer)"},{"Add":"        )"},{"Add":"      (setcdr tail alist)"},{"Add":"      alist)"},{"Add":"      ))"},{"Add":""},{"Add":";; Local list of visible modules."},{"Add":""},{"Add":"(defvar ocaml-visible-modules 'lazy"},{"Add":"  \"A-list of open modules, local to every file.\")"},{"Add":"(make-variable-buffer-local 'ocaml-visible-modules)"},{"Add":"(defun ocaml-visible-modules ()"},{"Add":"  (if (listp ocaml-visible-modules) nil"},{"Add":"    (progn"},{"Add":"      (setq ocaml-visible-modules"},{"Add":"            (list (ocaml-get-or-make-module \"Pervasives\")))"},{"Add":"      (save-excursion"},{"Add":"        (goto-char (point-min))"},{"Add":"        (while (re-search-forward \"^ *open  *\\\\([A-Z][a-zA-Z'_0-9]*\\\\)\""},{"Add":"                                  (point-max) t)"},{"Add":"          (let ((module (match-string 1)))"},{"Add":"            (if (assoc module ocaml-visible-modules) nil"},{"Add":"              (setq ocaml-visible-modules"},{"Add":"                    (cons (ocaml-get-or-make-module module)"},{"Add":"                          ocaml-visible-modules)))))"},{"Add":"        )))"},{"Add":"  ocaml-visible-modules)"},{"Add":""},{"Add":"(defun ocaml-open-module (arg)"},{"Add":"  \"*Make module of name ARG visible when ARG is a string."},{"Add":"When call interactively, make completion over known modules.\""},{"Add":"  (interactive \"P\")"},{"Add":"  (if (not (stringp arg))"},{"Add":"      (let ((modules (ocaml-module-alist)))"},{"Add":"        (setq arg"},{"Add":"              (completing-read \"Open module: \" modules))))"},{"Add":"  (if (and (stringp arg) (not (equal arg \"\")))"},{"Add":"      (progn"},{"Add":"        (if (assoc arg (ocaml-visible-modules))"},{"Add":"            (ocaml-close-module arg))"},{"Add":"        (setq ocaml-visible-modules"},{"Add":"              (cons (ocaml-get-or-make-module arg) (ocaml-visible-modules)))"},{"Add":"        ))"},{"Add":"  (message \"%S\" (mapcar #'car (ocaml-visible-modules))))"},{"Add":""},{"Add":"(defun ocaml-close-module (arg)"},{"Add":"  \"*Close module of name ARG when ARG is a string."},{"Add":"When call interactively, make completion over visible modules."},{"Add":"Otherwise if ARG is true, close all modules and reset to default.\""},{"Add":"  (interactive \"P\")"},{"Add":"  (if (= (prefix-numeric-value arg) 4)"},{"Add":"      (setq ocaml-visible-modules 'lazy)"},{"Add":"    (let* ((modules (ocaml-visible-modules)))"},{"Add":"      (if (null modules) (error \"No visible module to close\"))"},{"Add":"      (unless (stringp arg)"},{"Add":"        (setq arg"},{"Add":"              (completing-read"},{"Add":"               (concat \"Close module [\"  (caar modules) \"] : \")"},{"Add":"               modules))"},{"Add":"        (if (equal arg \"\") (setq arg (caar modules))))"},{"Add":"      (setq ocaml-visible-modules"},{"Add":"            (cl-remove-if (lambda (m) (equal (car m) arg))"},{"Add":"                          ocaml-visible-modules))"},{"Add":"      ))"},{"Add":"  (message \"%S\" (mapcar #'car (ocaml-visible-modules))))"},{"Add":""},{"Add":""},{"Add":";; Look for identifiers around point"},{"Add":""},{"Add":"(defun ocaml-qualified-identifier (&optional show)"},{"Add":"  \"Search for a qualified identifier (Path. entry) around point."},{"Add":""},{"Add":"Entry may be nil."},{"Add":"Currently, the path may only be nil or a single Module."},{"Add":"For paths is of the form Module.Path', it returns Module"},{"Add":"and always nil for entry."},{"Add":""},{"Add":"If defined Module and Entry are represented by a region in the buffer,"},{"Add":"and are nil otherwise."},{"Add":""},{"Add":"For debugging purposes, it returns the string Module.entry if called"},{"Add":"with an optional non-nil argument.\""},{"Add":"  (save-excursion"},{"Add":"    (let ((module) (entry))"},{"Add":"      (if (looking-at \"[ \\n]\") (skip-chars-backward \" \"))"},{"Add":"      (if (re-search-backward"},{"Add":"           \"\\\\([^A-Za-z0-9_.']\\\\|\\\\`\\\\)\\\\([A-Za-z0-9_']*[.]\\\\)*[A-Za-z0-9_']*\\\\=\""},{"Add":"           (- (point) 100) t)"},{"Add":"          (progn"},{"Add":"            (or (looking-at \"\\\\`[A-Za-z)-9_.]\") (forward-char 1))"},{"Add":"            (if (looking-at \"\\\\<\\\\([A-Za-z_][A-Za-z0-9_']*\\\\)[.]\")"},{"Add":"                (progn"},{"Add":"                  (setq module (cons (match-beginning 1) (match-end 1)))"},{"Add":"                  (goto-char (match-end 0))))"},{"Add":"            (if (looking-at \"\\\\<\\\\([A-Za-z_][A-Za-z0-9_']*\\\\)\\\\>\")"},{"Add":"                (setq entry (cons (match-beginning 1) (match-end 1))))))"},{"Add":"      (if show"},{"Add":"          (concat"},{"Add":"           (and module (buffer-substring (car module) (cdr module)))"},{"Add":"           \".\""},{"Add":"           (and entry (buffer-substring (car entry) (cdr entry))))"},{"Add":"      (cons module entry))"},{"Add":"    )))"},{"Add":""},{"Add":";; completion around point"},{"Add":""},{"Add":"(defun ocaml-completion (pattern module)"},{"Add":"  (let ((list"},{"Add":"         (or"},{"Add":"          (and module"},{"Add":"               (list"},{"Add":"                (or (assoc module (ocaml-module-alist))"},{"Add":"                    (error \"Unknown module %s\" module))))"},{"Add":"          (ocaml-visible-modules))))"},{"Add":"    (message \"Completion from %s\" (mapconcat #'car list \" \"))"},{"Add":"    (if (null pattern)"},{"Add":"        (apply #'append (mapcar #'ocaml-module-symbols list))"},{"Add":"      (let ((pat (concat \"^\" (regexp-quote pattern))) (res))"},{"Add":"        (mapc"},{"Add":"         (lambda (l)"},{"Add":"           (mapc (lambda (x)"},{"Add":"                   (if (string-match pat (car l))"},{"Add":"                       (if (member x res) nil (setq res (cons x res)))))"},{"Add":"                 (ocaml-module-symbols l)))"},{"Add":"         list)"},{"Add":"        res)"},{"Add":"      )))"},{"Add":""},{"Add":"(defun caml-complete (&optional _arg)"},{"Add":"  \"Does completion for OCaml identifiers qualified."},{"Add":""},{"Add":"It attemps to recognize a qualified identifier Module . entry"},{"Add":"around point using function \\\\[ocaml-qualified-identifier]."},{"Add":""},{"Add":"If Module is defined, it does completion for identifier in Module."},{"Add":""},{"Add":"If Module is undefined, it does completion in visible modules."},{"Add":"Then, if completion fails, it does completion among  all modules"},{"Add":"where identifier is defined.\""},{"Add":"  (interactive \"\")"},{"Add":"  (let* ((module-entry (ocaml-qualified-identifier))"},{"Add":"         (module) ;; (entry)"},{"Add":"         (beg) (end) (pattern))"},{"Add":"    (if (car module-entry)"},{"Add":"        (progn"},{"Add":"          (setq module"},{"Add":"                (buffer-substring (caar module-entry) (cdar module-entry)))"},{"Add":"          (or (assoc module (ocaml-module-alist))"},{"Add":"              (and (setq module"},{"Add":"                         (completing-read \"Module: \" (ocaml-module-alist)"},{"Add":"                                          nil nil module))"},{"Add":"                   (save-excursion"},{"Add":"                     (goto-char (caar module-entry))"},{"Add":"                     (delete-region (caar module-entry) (cdar module-entry))"},{"Add":"                     (insert module) t)"},{"Add":"                   (setq module-entry (ocaml-qualified-identifier))"},{"Add":"                   (car module-entry)"},{"Add":"                   (progn ;; (setq entry (cdr module-entry))"},{"Add":"                          t))"},{"Add":"              (error \"Unknown module %s\" module))))"},{"Add":"    (if (consp (cdr module-entry))"},{"Add":"        (progn"},{"Add":"          (setq beg (cadr module-entry))"},{"Add":"          (setq end (cddr module-entry)))"},{"Add":"      (if (and module"},{"Add":"           (save-excursion"},{"Add":"            (goto-char (cdar module-entry))"},{"Add":"            (looking-at \" *[.]\")))"},{"Add":"          (progn"},{"Add":"            (setq beg (match-end 0))"},{"Add":"            (setq end beg))))"},{"Add":"    (if (not (and beg end))"},{"Add":"        (error \"Did not find anything to complete around point\")"},{"Add":""},{"Add":"      (setq pattern (buffer-substring beg end))"},{"Add":"      (let* ((all-completions (ocaml-completion pattern module))"},{"Add":"             (completion"},{"Add":"              (try-completion pattern all-completions)))"},{"Add":"        (cond ((eq completion t))"},{"Add":""},{"Add":"              ((null completion)"},{"Add":"               (let*"},{"Add":"                   ((modules (ocaml-find-module pattern))"},{"Add":"                    (visible (cl-intersection modules (ocaml-visible-modules)))"},{"Add":"                    (hist)"},{"Add":"                    (module"},{"Add":"                     (cond"},{"Add":"                      ((null modules)"},{"Add":"                       nil)"},{"Add":"                      ((equal (length modules) 1)"},{"Add":"                       (caar modules))"},{"Add":"                      ((equal (length visible) 1)"},{"Add":"                       (caar visible))"},{"Add":"                      (t"},{"Add":"                       (setq hist (mapcar #'car modules))"},{"Add":"                       (completing-read \"Module: \" modules nil t"},{"Add":"                                        \"\" (cons hist 0)))"},{"Add":"                      )))"},{"Add":"                 (if (null module)"},{"Add":"                     (error \"Can't find completion for \\\"%s\\\"\" pattern)"},{"Add":"                   (message \"Completion found in module %s\" module)"},{"Add":"                   (if (and (consp module-entry) (consp (cdr module-entry)))"},{"Add":"                       (delete-region (caar module-entry) end)"},{"Add":"                     (delete-region beg end))"},{"Add":"                   (insert module \".\" pattern))))"},{"Add":""},{"Add":"              ((not (string-equal pattern completion))"},{"Add":"               (delete-region beg end)"},{"Add":"               (goto-char beg)"},{"Add":"               (insert completion))"},{"Add":""},{"Add":"              (t"},{"Add":"                (with-output-to-temp-buffer \"*Completions*\""},{"Add":"                  (display-completion-list all-completions))"},{"Add":"                ))"},{"Add":"               ))))"},{"Add":""},{"Add":""},{"Add":";; Info files (only in ocamldoc style)"},{"Add":""},{"Add":""},{"Add":"(defvar ocaml-info-prefix \"ocaml-lib\""},{"Add":"  \"Prefix of ocaml info files describing library modules."},{"Add":"Suffix .info will be added to info files."},{"Add":"Additional suffix .gz may be added if info files are compressed.\")"},{"Add":";;"},{"Add":""},{"Add":"(defun ocaml-hevea-info-add-entries (entries dir name)"},{"Add":"  (let*"},{"Add":"      ((filter"},{"Add":"        (concat \"-type f -regex '.*/\" name"},{"Add":"                \"\\\\(.info\\\\|\\\\)\\\\(-[0-9]*\\\\|\\\\)\\\\([.]gz\\\\|\\\\)'\""},{"Add":"                ))"},{"Add":"       (section-regexp"},{"Add":"        \"\\\\* \\\\(Section [1-9][0-9--]*\\\\)::[ \\t][ \\t]*Module *\\\\([A-Z][A-Za-z_0-9]*\\\\)\")"},{"Add":"       (files (ocaml-find-files dir filter))"},{"Add":"       (command))"},{"Add":"    ;; scanning info files"},{"Add":"    (if (or (null files)"},{"Add":"            (not (stringp files))"},{"Add":"            (string-match files \"^ *$\"))"},{"Add":"        (message \"No info file found: %s.\" (mapconcat #'identity files \" \"))"},{"Add":"      (message \"Scanning info files %s.\" files)"},{"Add":"      (save-window-excursion"},{"Add":"        (set-buffer (get-buffer-create \"*caml-help*\"))"},{"Add":"        (setq command"},{"Add":"              (concat \"zcat -f \" files"},{"Add":"                      \" | grep -e '\" section-regexp \"'\"))"},{"Add":"        (message \"Scanning files with: %s\" command)"},{"Add":"        (or (shell-command command (current-buffer))"},{"Add":"            (error \"Error while scanning\"))"},{"Add":"        (goto-char (point-min))"},{"Add":"        (while (re-search-forward section-regexp (point-max) t)"},{"Add":"          (let* ((module (match-string 2))"},{"Add":"                 (section (match-string 1)))"},{"Add":"            ;; (message \"%s %s\" module section)"},{"Add":"            (if (assoc module entries) nil"},{"Add":"              (setq entries"},{"Add":"                    (cons (cons module (concat \"(\" name \")\" section))"},{"Add":"                          entries))"},{"Add":"              )))"},{"Add":"        (let ((buf (get-buffer \"*caml-help*\")))"},{"Add":"          (if buf (kill-buffer buf)))))"},{"Add":"    entries))"},{"Add":""},{"Add":"(defun ocaml-hevea-info ()"},{"Add":"  \"The default way to create an info data base from the value"},{"Add":"of \\\\[Info-default-directory-list] and the base name \\\\[ocaml-info-name]"},{"Add":"of files to look for."},{"Add":""},{"Add":"This uses info files produced by HeVeA.\""},{"Add":"  (let ((collect) (seen))"},{"Add":"    (mapc (lambda (d)"},{"Add":"            (if (member d seen) nil"},{"Add":"              (setq collect"},{"Add":"                    (ocaml-hevea-info-add-entries"},{"Add":"                     collect d ocaml-info-prefix))"},{"Add":"              (setq seen (cons d seen))))"},{"Add":"          Info-directory-list)"},{"Add":"    collect))"},{"Add":""},{"Add":"(defun ocaml-ocamldoc-info-add-entries (entries dir name)"},{"Add":"  (let*"},{"Add":"      ((module-regexp \"^Node: \\\\([A-Z][A-Za-z_0-9]*\\\\)[^ ]\")"},{"Add":"       (command"},{"Add":"        (concat"},{"Add":"         \"find \" dir \" -type f -regex '.*/\" name"},{"Add":"         \"\\\\(.info\\\\|\\\\)\\\\([.]gz\\\\|\\\\)' -print0\""},{"Add":"         \" | xargs -0 zcat -f | grep '\" module-regexp \"'\")))"},{"Add":"    (message \"Scanning info files in %s\" dir)"},{"Add":"    (save-window-excursion"},{"Add":"      (set-buffer (get-buffer-create \"*caml-help*\"))"},{"Add":"      (or (shell-command command (current-buffer))"},{"Add":"          (error \"Could not run:%s\" command))"},{"Add":"      (goto-char (point-min))"},{"Add":"      (while (re-search-forward module-regexp (point-max) t)"},{"Add":"        (if (equal (char-after (match-end 1)) 127)"},{"Add":"            (let* ((module (match-string 1)))"},{"Add":"              (if (assoc module entries) nil"},{"Add":"                (setq entries"},{"Add":"                      (cons (cons module (concat \"(\" name \")\" module))"},{"Add":"                            entries))"},{"Add":"                ))))"},{"Add":"      ; (kill-buffer (current-buffer))"},{"Add":"      )"},{"Add":"    entries))"},{"Add":""},{"Add":"(defun ocaml-ocamldoc-info ()"},{"Add":"  \"The default way to create an info data base from the value"},{"Add":"of \\\\[Info-default-directory-list] and the base name \\\\[ocaml-info-name]"},{"Add":"of files to look for."},{"Add":""},{"Add":"This uses info files produced by ocamldoc.\""},{"Add":"  (require 'info)"},{"Add":"  (let ((collect) (seen))"},{"Add":"    (mapc (lambda (d)"},{"Add":"            (if (member d seen) nil"},{"Add":"              (setq collect"},{"Add":"                    (ocaml-ocamldoc-info-add-entries collect d"},{"Add":"                                                     ocaml-info-prefix))"},{"Add":"              (setq seen (cons d seen))))"},{"Add":"          Info-directory-list)"},{"Add":"    collect))"},{"Add":""},{"Add":";; Continuing"},{"Add":""},{"Add":"(defvar ocaml-info-alist 'ocaml-ocamldoc-info"},{"Add":"  \"A-list binding module names to info entries:"},{"Add":""},{"Add":"  nil means do not use info."},{"Add":""},{"Add":"  A function to build the list lazily (at the first call).  The result of"},{"Add":"the function call will be assign permanently to this variable for future"},{"Add":"uses.  We provide two default functions `ocaml-hevea-info'"},{"Add":"\\(info produced by HeVeA is the default) and `ocaml-ocamldoc-info'"},{"Add":"\\(info produced by ocamldoc)."},{"Add":""},{"Add":"  Otherwise, this value should be an alist binding module names to info"},{"Add":"entries of the form to \\\"(entry)section\\\" be taken by the \\\\[info]"},{"Add":"command. An entry may be an info module or a complete file name.\""},{"Add":")"},{"Add":""},{"Add":"(defun ocaml-info-alist ()"},{"Add":"  \"Call by need value of variable `ocaml-info-alist'.\""},{"Add":"  (cond"},{"Add":"   ((listp ocaml-info-alist))"},{"Add":"   ((functionp ocaml-info-alist)"},{"Add":"    (setq ocaml-info-alist (apply ocaml-info-alist nil)))"},{"Add":"   (t"},{"Add":"    (error \"wrong type for ocaml-info-alist\")))"},{"Add":"  ocaml-info-alist)"},{"Add":""},{"Add":";; help around point"},{"Add":""},{"Add":"(defun ocaml-find-module (symbol &optional module-list)"},{"Add":"  (let ((list (or module-list (ocaml-module-alist)))"},{"Add":"        (collect))"},{"Add":"    (while (consp list)"},{"Add":"      (if (member symbol (ocaml-module-symbols (car list)))"},{"Add":"          (setq collect (cons (car list) collect)))"},{"Add":"      (setq list (cdr list)))"},{"Add":"    (nreverse collect)"},{"Add":"    ))"},{"Add":""},{"Add":"(defun ocaml-buffer-substring (region)"},{"Add":"  (and region (buffer-substring-no-properties (car region) (cdr region))))"},{"Add":""},{"Add":";; Help function."},{"Add":""},{"Add":"(defvar view-return-to-alist)"},{"Add":"(defvar view-exit-action)"},{"Add":""},{"Add":"(defun ocaml-goto-help (&optional module entry same-window)"},{"Add":"  \"Search info manual for MODULE and ENTRY in MODULE."},{"Add":"If unspecified, MODULE and ENTRY are inferred from the position in the"},{"Add":"current buffer using \\\\[ocaml-qualified-identifier].\""},{"Add":"  (interactive)"},{"Add":"  (let ((window (selected-window))"},{"Add":"        (info-section (assoc module (ocaml-info-alist))))"},{"Add":"    (if info-section"},{"Add":"        (info-other-window (cdr info-section))"},{"Add":"      (ocaml-visible-modules)"},{"Add":"      (let* ((module-info"},{"Add":"              (or (assoc module (ocaml-module-alist))"},{"Add":"                  (and (file-exists-p"},{"Add":"                        (concat (ocaml-uncapitalize module) \".mli\"))"},{"Add":"                       (ocaml-get-or-make-module module))))"},{"Add":"             (location (cdr (cadr module-info))))"},{"Add":"        (cond"},{"Add":"         (location"},{"Add":"          (let ((file (concat location (ocaml-uncapitalize module) \".mli\")))"},{"Add":"            (if (window-live-p same-window)"},{"Add":"                (progn (select-window same-window)"},{"Add":"                       (view-mode-exit nil view-exit-action))"},{"Add":"              ;; (view-buffer (find-file-noselect file) 'view))"},{"Add":"              )"},{"Add":"            (view-file-other-window file)"},{"Add":"            (bury-buffer (current-buffer))))"},{"Add":"         (info-section (error \"Aborted\"))"},{"Add":"         (t (error \"No help for module %s\" module))))"},{"Add":"      )"},{"Add":"    (if (stringp entry)"},{"Add":"        (let ((here (point))"},{"Add":"              (regex (regexp-quote entry))"},{"Add":"              (case-fold-search nil))"},{"Add":"          (goto-char (point-min))"},{"Add":"          (if (or (re-search-forward"},{"Add":"                   (concat \"\\\\(val\\\\|exception\\\\|type\\\\|external\\\\|[|{;]\\\\) +\""},{"Add":"                           regex)"},{"Add":"                   ;; (concat \"\\\\(val\\\\|exception\\\\|external\\\\) +\\\\(\""},{"Add":"                   ;;         regex \"\\\\|( *\" regex \" *)\\\\)\")"},{"Add":"                   (point-max) t)"},{"Add":"                  (re-search-forward"},{"Add":"                   (concat \"type [^{]*{[^}]*\" regex \" :\")"},{"Add":"                   ;; (concat \"\\\\(type\\\\|[|{;]\\\\) +\" regex)"},{"Add":"                   (point-max) t)"},{"Add":"                  (progn"},{"Add":"                    (if (window-live-p window) (select-window window))"},{"Add":"                    (error \"Entry %s not found in module %s\""},{"Add":"                           entry module))"},{"Add":"                  ;; (search-forward entry (point-max) t)"},{"Add":"                  )"},{"Add":"              (ocaml-help-show -1)"},{"Add":"            (progn"},{"Add":"              (message \"Help for entry %s not found in module %s\""},{"Add":"                       entry module)"},{"Add":"              (goto-char here)))"},{"Add":"          ))"},{"Add":"    (ocaml-link-activate (cdr info-section))"},{"Add":"    (if (window-live-p window) (select-window window))"},{"Add":"    ))"},{"Add":""},{"Add":"(defface ocaml-help-face"},{"Add":"  '((t :background \"#88FF44\"))"},{"Add":"  \"Face to highlight expressions and types.\")"},{"Add":""},{"Add":"(defvar ocaml-help-ovl"},{"Add":"  (let ((ovl (make-overlay 1 1)))"},{"Add":"    (overlay-put ovl 'face 'ocaml-help-face)"},{"Add":"    ovl))"},{"Add":""},{"Add":"(defun caml-help (arg)"},{"Add":"  \"Find documentation for OCaml qualified identifiers."},{"Add":""},{"Add":"It attempts to recognize a qualified identifier of the form"},{"Add":"``Module . entry'' around point using function `ocaml-qualified-identifier'."},{"Add":""},{"Add":"If Module is undetermined it is temptatively guessed from the identifier name"},{"Add":"and according to visible modules.  If this is still unsuccessful,  the user is"},{"Add":"then prompted for a Module name."},{"Add":""},{"Add":"The documentation for Module is first searched in the info manual, if available,"},{"Add":"then in the ``module.mli'' source file.  The entry is then searched in the"},{"Add":"documentation."},{"Add":""},{"Add":"Visible modules are computed only once, at the first call."},{"Add":"Modules can be made visible explicitly with `ocaml-open-module' and"},{"Add":"hidden with `ocaml-close-module'."},{"Add":""},{"Add":"Prefix arg 0 forces recompilation of visible modules (and their content)"},{"Add":"from the file content."},{"Add":""},{"Add":"Prefix arg 4 prompts for Module and identifier instead of guessing values"},{"Add":"from the position of point in the current buffer.\""},{"Add":"  (interactive \"p\")"},{"Add":"  (delete-overlay ocaml-help-ovl)"},{"Add":"  (let ((module) (entry) (module-entry))"},{"Add":"    (cond"},{"Add":"     ((= arg 4)"},{"Add":"      (or (and"},{"Add":"           (setq module"},{"Add":"                (completing-read \"Module: \" (ocaml-module-alist)"},{"Add":"                                 nil t \"\" (cons 'hist 0)))"},{"Add":"           (not (string-equal module \"\")))"},{"Add":"          (error \"Quit\"))"},{"Add":"      (let ((symbols"},{"Add":"             (mapcar #'list"},{"Add":"                     (ocaml-module-symbols"},{"Add":"                      (assoc module (ocaml-module-alist))))))"},{"Add":"        (setq entry"},{"Add":"              (completing-read (format \"Value: %s.\" module) symbols nil t)))"},{"Add":"      (if (string-equal entry \"\") (setq entry nil))"},{"Add":"      )"},{"Add":"     (t"},{"Add":"      (if (= arg 0) (setq ocaml-visible-modules 'lazy))"},{"Add":"      (setq module-entry (ocaml-qualified-identifier))"},{"Add":"      (setq entry (ocaml-buffer-substring (cdr module-entry)))"},{"Add":"      (setq module"},{"Add":"            (or (ocaml-buffer-substring (car module-entry))"},{"Add":"                (let ((modules"},{"Add":"                       (or (ocaml-find-module entry (ocaml-visible-modules))"},{"Add":"                           (ocaml-find-module entry)))"},{"Add":"                      (hist) (default))"},{"Add":"                  (cond"},{"Add":"                   ((null modules)"},{"Add":"                    (error \"No module found for entry %s\" entry))"},{"Add":"                   ((equal (length modules) 1)"},{"Add":"                    (caar modules))"},{"Add":"                   (t"},{"Add":"                    (setq hist (mapcar #'car modules))"},{"Add":"                    (setq default (car hist))"},{"Add":"                    (setq module"},{"Add":"                          (completing-read"},{"Add":"                           (concat \"Module: \""},{"Add":"                                   (and default (concat \"[\" default \"] \")))"},{"Add":"                           modules nil t \"\" (cons 'hist 0)))"},{"Add":"                    (if (string-equal module \"\") default module))"},{"Add":"                   ))))"},{"Add":"      ))"},{"Add":"     (message \"Help for %s%s%s\" module (if entry \".\" \"\") (or entry \"\"))"},{"Add":"     (ocaml-goto-help module entry)"},{"Add":"     ))"},{"Add":""},{"Add":";; auto-links"},{"Add":""},{"Add":"(defconst ocaml-link-regexp"},{"Add":"  \"\\\\(type\\\\|and\\\\) \\\\('[a-z] +\\\\|(\\\\('[a-z], *\\\\)*'[a-z])\\\\|\\\\) *\\\\([a-zA-Z0-9_]*\\\\)\\\\( *$\\\\| =\\\\)\")"},{"Add":"(defconst ocaml-longident-regexp"},{"Add":"  \"\\\\([A-Z][a-zA-Z_0]*\\\\)[.]\\\\([a-zA-Z][A-Za-z0-9_]*\\\\)\")"},{"Add":""},{"Add":"(defvar ocaml-links nil"},{"Add":"  \"Local links in the current of last info node or interface file."},{"Add":""},{"Add":"The car of the list is a key that identifies the module to prevent"},{"Add":"recompilation when next help command is relative to the same module."},{"Add":"The cdr is a list of elements, each of which is a string and a pair of"},{"Add":"buffer positions.\""},{"Add":")"},{"Add":"(make-variable-buffer-local 'ocaml-links)"},{"Add":""},{"Add":"(defun ocaml-info-links (section)"},{"Add":"  (cdr"},{"Add":"   (if (and ocaml-links section (equal (car ocaml-links) section))"},{"Add":"       ocaml-links"},{"Add":"     (save-excursion"},{"Add":"       (goto-char (point-min))"},{"Add":"       (let ((regexp (concat (if (equal major-mode 'Info-mode) \"^ - \" \"^\")"},{"Add":"                             ocaml-link-regexp))"},{"Add":"             (all))"},{"Add":"         (while (re-search-forward regexp (point-max) t)"},{"Add":"           (setq all"},{"Add":"                 (cons (cons (match-string 4)"},{"Add":"                             (cons (match-beginning 4)"},{"Add":"                                   (match-end 4)))"},{"Add":"                       all)))"},{"Add":"         (setq ocaml-links (cons section all))"},{"Add":"         )))))"},{"Add":""},{"Add":"(defvar ocaml-link-map"},{"Add":"  (let ((map (make-sparse-keymap)))"},{"Add":"    (define-key map [mouse-2] 'ocaml-link-goto)"},{"Add":"    map))"},{"Add":""},{"Add":"(defun ocaml-help-show (arg)"},{"Add":"  (let ((right (point))"},{"Add":"        (left (progn (forward-word arg) (point))))"},{"Add":"    (goto-char right)"},{"Add":"    (move-overlay ocaml-help-ovl left right (current-buffer))"},{"Add":"    (recenter 1)"},{"Add":"    ))"},{"Add":""},{"Add":"(defun ocaml-link-goto (click)"},{"Add":"  \"Follow link at point.\""},{"Add":"  (interactive \"e\")"},{"Add":"  (let* ((pos-click (event-start click))"},{"Add":"         (pos (posn-point pos-click))"},{"Add":"         (win (posn-window pos-click))"},{"Add":"         (buf (window-buffer win))"},{"Add":"         (window (selected-window))"},{"Add":"         (link))"},{"Add":"    (setq link"},{"Add":"          (with-current-buffer buf"},{"Add":"            (buffer-substring"},{"Add":"             (previous-single-property-change (+ pos 1) 'local-map"},{"Add":"                                                   buf (- pos 100))"},{"Add":"             (next-single-property-change pos  'local-map"},{"Add":"                                        buf (+ pos 100)))))"},{"Add":"    (if (string-match (concat \"^\" ocaml-longident-regexp \"$\") link)"},{"Add":"        (ocaml-goto-help (match-string 1 link) (match-string 2 link) win)"},{"Add":"      (if (not (equal (window-buffer window) buf))"},{"Add":"          (switch-to-buffer-other-window buf))"},{"Add":"      (if (setq link (assoc link (cdr ocaml-links)))"},{"Add":"          (progn"},{"Add":"            (goto-char (cadr link))"},{"Add":"            (ocaml-help-show 1)))"},{"Add":"      (if (window-live-p window) (select-window window))"},{"Add":"      )))"},{"Add":""},{"Add":""},{"Add":"(defface ocaml-link-face"},{"Add":"  '((((class color)) :foreground \"Purple\"))"},{"Add":"  \"Face to highlight hyperlinks.\")"},{"Add":""},{"Add":"(defun ocaml-link-activate (section)"},{"Add":"  (let ((links (ocaml-info-links section)))"},{"Add":"    (if links"},{"Add":"        (let ((regexp (concat \"[^A-Za-z0-9'_]\\\\(\""},{"Add":"                              ocaml-longident-regexp \"\\\\|\""},{"Add":"                              (mapconcat #'car links \"\\\\|\")"},{"Add":"                              \"\\\\)[^A-Za-z0-9'_]\"))"},{"Add":"              (case-fold-search nil))"},{"Add":"          (save-excursion"},{"Add":"            (goto-char (point-min))"},{"Add":"            (let ((buffer-read-only nil)"},{"Add":"                  ;; use of dynamic scoping, need not be restored!"},{"Add":"                  (modified-p (buffer-modified-p)))"},{"Add":"              (unwind-protect"},{"Add":"                  (save-excursion"},{"Add":"                    (goto-char (point-min))"},{"Add":"                    (while (re-search-forward regexp (point-max) t)"},{"Add":"                      (put-text-property (match-beginning 1) (match-end 1)"},{"Add":"                                         'mouse-face 'highlight)"},{"Add":"                      (put-text-property (match-beginning 1) (match-end 1)"},{"Add":"                                         'local-map ocaml-link-map)"},{"Add":"                      (if (x-display-color-p)"},{"Add":"                          (put-text-property (match-beginning 1) (match-end 1)"},{"Add":"                                             'face 'ocaml-link-face)))"},{"Add":"                    )"},{"Add":"                ;; need to restore flag if buffer was unmodified."},{"Add":"                (unless modified-p (set-buffer-modified-p nil))"},{"Add":"                ))"},{"Add":"            )))))"},{"Add":""},{"Add":""},{"Add":""},{"Add":";; bindings ---now in caml.el"},{"Add":""},{"Add":"; (and"},{"Add":";  (boundp 'caml-mode-map)"},{"Add":";  (keymapp caml-mode-map)"},{"Add":";  (progn"},{"Add":";    (define-key caml-mode-map [?\\C-c?i] 'ocaml-add-path)"},{"Add":";    (define-key caml-mode-map [?\\C-c?]] 'ocaml-close-module)"},{"Add":";    (define-key caml-mode-map [?\\C-c?[] 'ocaml-open-module)"},{"Add":";    (define-key caml-mode-map [?\\C-c?\\C-h] 'caml-help)"},{"Add":";    (define-key caml-mode-map [?\\C-c?\\t] 'caml-complete)"},{"Add":";    (let ((map (lookup-key caml-mode-map [menu-bar caml])))"},{"Add":";      (and"},{"Add":";       (keymapp map)"},{"Add":";       (progn"},{"Add":";         (define-key map [separator-help] '(\"---\"))"},{"Add":";         (define-key map [open] '(\"Open add path\" . ocaml-add-path ))"},{"Add":";         (define-key map [close]"},{"Add":";           '(\"Close module for help\" . ocaml-close-module))"},{"Add":";         (define-key map [open] '(\"Open module for help\" . ocaml-open-module))"},{"Add":";         (define-key map [help] '(\"Help for identifier\" . caml-help))"},{"Add":";         (define-key map [complete] '(\"Complete identifier\" . caml-complete))"},{"Add":";         )"},{"Add":";    ))))"},{"Add":""},{"Add":""},{"Add":"(provide 'caml-help)"},{"Add":";;; caml-help.el ends here"}]}},{"FileAdd":{"meta":{"basename":"caml-font.el","metadata":0},"context":[{"change":0,"pos":2136691}],"contents":[{"Add":";****************************************** -*- lexical-binding: t; -*- ***"},{"Add":";*                                                                        *"},{"Add":";*                                 OCaml                                  *"},{"Add":";*                                                                        *"},{"Add":";*          Jacques Garrigue, Ian T Zimmerman, Damien Doligez             *"},{"Add":";*                                                                        *"},{"Add":";*   Copyright 1997 Institut National de Recherche en Informatique et     *"},{"Add":";*     en Automatique.                                                    *"},{"Add":";*                                                                        *"},{"Add":";*   All rights reserved.  This file is distributed under the terms of    *"},{"Add":";*   the GNU General Public License.                                      *"},{"Add":";*                                                                        *"},{"Add":";**************************************************************************"},{"Add":""},{"Add":";; caml-font: font-lock support for OCaml files"},{"Add":";; now with perfect parsing of comments and strings"},{"Add":""},{"Add":"(require 'font-lock)"},{"Add":""},{"Add":"(defvar caml-font-stop-face"},{"Add":"  (progn"},{"Add":"    (make-face 'caml-font-stop-face)"},{"Add":"    (set-face-foreground 'caml-font-stop-face \"White\")"},{"Add":"    (set-face-background 'caml-font-stop-face \"Red\")"},{"Add":"    'caml-font-stop-face))"},{"Add":""},{"Add":"(defvar caml-font-doccomment-face"},{"Add":"  (progn"},{"Add":"    (make-face 'caml-font-doccomment-face)"},{"Add":"    (set-face-foreground 'caml-font-doccomment-face \"Red\")"},{"Add":"    'caml-font-doccomment-face))"},{"Add":""},{"Add":"(defconst caml-font-lock-keywords"},{"Add":"  `("},{"Add":";modules and constructors"},{"Add":"   (\"`?\\\\<[A-Z][A-Za-z0-9_']*\\\\>\" . font-lock-function-name-face)"},{"Add":";definition"},{"Add":"   (,(regexp-opt '(\"and\" \"as\" \"constraint\" \"class\""},{"Add":"                   \"exception\" \"external\" \"fun\" \"function\" \"functor\""},{"Add":"                   \"in\" \"inherit\" \"initializer\" \"let\""},{"Add":"                   \"method\" \"mutable\" \"module\" \"of\" \"private\" \"rec\""},{"Add":"                   \"type\" \"val\" \"virtual\")"},{"Add":"                 'words)"},{"Add":"    . font-lock-type-face)"},{"Add":";blocking"},{"Add":"   (,(regexp-opt '(\"begin\" \"end\" \"object\" \"sig\" \"struct\") 'words)"},{"Add":"    . font-lock-keyword-face)"},{"Add":";linenums"},{"Add":"   (\"# *[0-9]+\" . font-lock-preprocessor-face)"},{"Add":";infix operators"},{"Add":"   (,(regexp-opt '(\"asr\" \"land\" \"lor\" \"lsl\" \"lsr\" \"lxor\" \"mod\") 'words)"},{"Add":"    . font-lock-builtin-face)"},{"Add":";control"},{"Add":"   (,(concat \"[|#&]\\\\|->\\\\|\""},{"Add":"             (regexp-opt '(\"do\" \"done\" \"downto\" \"else\" \"for\" \"if\" \"ignore\""},{"Add":"                           \"lazy\" \"match\" \"new\" \"or\" \"then\" \"to\" \"try\""},{"Add":"                           \"when\" \"while\" \"with\")"},{"Add":"                         'words))"},{"Add":"    . font-lock-constant-face)"},{"Add":"   (\"\\\\<\\\\(raise\\\\|failwith\\\\|invalid_arg\\\\)\\\\>\""},{"Add":"    . font-lock-comment-face)"},{"Add":";labels (and open)"},{"Add":"   (\"\\\\(\\\\([~?]\\\\|\\\\<\\\\)[a-z][a-zA-Z0-9_']*:\\\\)[^:=]\""},{"Add":"    1 font-lock-variable-name-face)"},{"Add":"   (\"\\\\<\\\\(assert\\\\|open\\\\|include\\\\)\\\\>\\\\|[~?][ (]*[a-z][a-zA-Z0-9_']*\""},{"Add":"    . font-lock-variable-name-face)))"},{"Add":""},{"Add":""},{"Add":"(defun caml-font-syntactic-face (s)"},{"Add":"  (let ((in-string  (nth 3 s))"},{"Add":"        (in-comment (nth 4 s))"},{"Add":"        (start      (nth 8 s)))"},{"Add":"    (cond"},{"Add":"     (in-string 'font-lock-string-face)"},{"Add":"     (in-comment"},{"Add":"      (save-excursion"},{"Add":"        (goto-char start)"},{"Add":"        (cond"},{"Add":"         ((looking-at \"(\\\\*\\\\*/\\\\*\\\\*)\") 'caml-font-stop-face)"},{"Add":"         ((looking-at \"(\\\\*\\\\*[^*]\")     'caml-font-doccomment-face)"},{"Add":"         (t                              'font-lock-comment-face)))))))"},{"Add":""},{"Add":";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"},{"Add":"; In order to correctly fontify an OCaml buffer, it is necessary to"},{"Add":"; lex the buffer to tell what is a comment and what is a string."},{"Add":"; We do this incrementally in a hook"},{"Add":"; (font-lock-extend-after-change-region-function), which is called"},{"Add":"; whenever the buffer changes.  It sets the syntax-table property"},{"Add":"; on each beginning and end of chars, strings, and comments."},{"Add":""},{"Add":"; This mode handles correctly all the strange cases in the following"},{"Add":"; OCaml code."},{"Add":";"},{"Add":"; let l' _ = ();;"},{"Add":"; let _' _ = ();;"},{"Add":"; let l' = ();;"},{"Add":"; let b2_' = ();;"},{"Add":"; let a'a' = ();;"},{"Add":"; let f2 _ _ = ();;"},{"Add":"; let f3 _ _ _ = ();;"},{"Add":"; let f' _ _ _ _ _ = ();;"},{"Add":"; let hello = ();;"},{"Add":";"},{"Add":"; (* ==== easy stuff ==== *)"},{"Add":";"},{"Add":"; (* a comment *)"},{"Add":"; (* \"a string\" in a comment *)"},{"Add":"; (* \"another string *)\" in a comment *)"},{"Add":"; (* not a string '\"' in a comment *)"},{"Add":"; \"a string\";;"},{"Add":"; '\"';;              (* not a string *)"},{"Add":";"},{"Add":"; (* ==== hard stuff ==== *)"},{"Add":";"},{"Add":"; l'\"' not not a string \";;"},{"Add":"; _'\"' also not not a string\";;"},{"Add":"; f2 0l'\"';;            (* not not not a string *)"},{"Add":"; f2 0_'\"';;            (* also not not not a string *)"},{"Add":"; f3 0.0l'\"' not not not not a string \";;"},{"Add":"; f3 0.0_'\"';;          (* not not not not not a string *)"},{"Add":"; f2 0b01_'\"';;         (* not not not a string *)"},{"Add":"; f3 0b2_'\"'  not not not not a string \";;"},{"Add":"; f3 0b02_'\"';;         (* not not not not not a string *)"},{"Add":"; '\\'';;   (* a char *)"},{"Add":"; '"},{"Add":"; ';;      (* a char *)"},{"Add":"; '^M"},{"Add":"; ';;      (* also a char [replace ^M with one CR character] *)"},{"Add":"; a'a';;   (* not a char *)"},{"Add":"; type '"},{"Add":"; a' t = X;;   (* also not a char *)"},{"Add":";"},{"Add":"; (* ==== far-out stuff ==== *)"},{"Add":";"},{"Add":";    f'\"'\" \"*) print_endline \"hello\";;(* \\\"\" ;;"},{"Add":"; (* f'\"'\" \"*) print_endline \"hello\";;(* \\\"\" ;; *)"},{"Add":""},{"Add":""},{"Add":"(defconst caml-font-ident-re"},{"Add":"  (concat \"[A-Za-z_\\300-\\326\\330-\\366\\370-\\377]\""},{"Add":"          \"[A-Za-z_\\300-\\326\\330-\\366\\370-\\377'0-9]*\")"},{"Add":")"},{"Add":""},{"Add":"(defconst caml-font-int-re"},{"Add":"  (concat \"\\\\(0[xX][0-9A-Fa-f][0-9A-Fa-f_]*\\\\|0[oO][0-7][0-7_]*\""},{"Add":"          \"\\\\|0[bB][01][01_]*\\\\)[lLn]?\")"},{"Add":")"},{"Add":""},{"Add":"; decimal integers are folded into the RE for floats to get longest-match"},{"Add":"; without using posix-looking-at"},{"Add":"(defconst caml-font-decimal-re"},{"Add":"  \"[0-9][0-9_]*\\\\([lLn]\\\\|\\\\.[0-9_]*\\\\)?\\\\([eE][+-]?[0-9][0-9_]*\\\\)?\""},{"Add":")"},{"Add":""},{"Add":"; match any ident or numeral token"},{"Add":"(defconst caml-font-ident-or-num-re"},{"Add":"  (concat caml-font-ident-re \"\\\\|\" caml-font-int-re \"\\\\|\" caml-font-decimal-re)"},{"Add":")"},{"Add":""},{"Add":"; match any char token"},{"Add":"(defconst caml-font-char-re"},{"Add":"  (concat \"'\\\\(\\015\\012\\\\|[^\\\\']\\\\|\""},{"Add":"          \"\\\\(\\\\\\\\\\\\([\\\\'\\\"ntbr ]\\\\|[0-9][0-9][0-9]\\\\|o[0-3][0-7][0-7]\""},{"Add":"                    \"\\\\|x[0-9A-Fa-f][0-9A-Fa-f]\\\\)\\\\)\\\\)'\")"},{"Add":")"},{"Add":""},{"Add":"; match a quote followed by a newline"},{"Add":"(defconst caml-font-quote-newline-re"},{"Add":"  \"'\\\\(\\015\\012\\\\|[\\012\\015]\\\\)\""},{"Add":")"},{"Add":""},{"Add":"; match an opening delimiter for a quoted string"},{"Add":"(defconst caml-font-quoted-string-start-re"},{"Add":"  \"{\\\\([a-z]*\\\\)|\""},{"Add":")"},{"Add":""},{"Add":"; match any token or sequence of tokens that cannot contain a"},{"Add":"; quote, double quote, a start of comment or quoted string, or a newline"},{"Add":"; note: this is only to go faster than one character at a time"},{"Add":"(defconst caml-font-other-re"},{"Add":"  \"[^A-Za-z_0-9\\012\\015\\300-\\326\\330-\\366\\370-\\377'\\\"({]+\""},{"Add":")"},{"Add":""},{"Add":"; match any sequence of non-special characters in a comment"},{"Add":"; note: this is only to go faster than one character at a time"},{"Add":"(defconst caml-font-other-comment-re"},{"Add":"  \"[^A-Za-z_\\300-\\326\\330-\\366\\370-\\377{(*\\\"'\\012\\015]+\""},{"Add":")"},{"Add":""},{"Add":"; match any sequence of non-special characters in a string"},{"Add":"; note: this is only to go faster than one character at a time"},{"Add":"(defconst caml-font-other-string-re"},{"Add":"  \"[^|\\\\\\\"\\012\\015]\""},{"Add":")"},{"Add":""},{"Add":"; match a newline"},{"Add":"(defconst caml-font-newline-re"},{"Add":"  \"\\\\(\\015\\012\\\\|[\\012\\015]\\\\)\""},{"Add":")"},{"Add":""},{"Add":"; Put the 'caml-font-state property with the given state on the"},{"Add":"; character before pos.  Return nil if it was already there, t if not."},{"Add":"(defun caml-font-put-state (pos state)"},{"Add":"  (if (equal state (get-text-property (1- pos) 'caml-font-state))"},{"Add":"      nil"},{"Add":"    (put-text-property (1- pos) pos 'caml-font-state state)"},{"Add":"    t)"},{"Add":")"},{"Add":""},{"Add":"; Same as looking-at, but erase properties 'caml-font-state and"},{"Add":"; 'syntax-table from the matched range"},{"Add":"(defun caml-font-looking-at (re)"},{"Add":"  (let ((result (looking-at re)))"},{"Add":"    (when result"},{"Add":"      (remove-text-properties (match-beginning 0) (match-end 0)"},{"Add":"                              '(syntax-table nil caml-font-state nil)))"},{"Add":"    result)"},{"Add":")"},{"Add":""},{"Add":"; Annotate the buffer starting at point in state (st . depth)"},{"Add":"; Set the 'syntax-table property on beginnings and ends of:"},{"Add":"; - strings"},{"Add":"; - chars"},{"Add":"; - comments"},{"Add":"; Also set the 'caml-font-state property on each LF character that is"},{"Add":"; not preceded by a single quote. The property gives the state of the"},{"Add":"; lexer (nil or t) after reading that character."},{"Add":""},{"Add":"; Leave the point at a point where the pre-existing 'caml-font-state"},{"Add":"; property is consistent with the new parse, or at the end of the buffer."},{"Add":""},{"Add":"; depth is the depth of nested comments at this point"},{"Add":";   it must be a non-negative integer"},{"Add":"; st can be:"},{"Add":";   nil      -- we are in the base state"},{"Add":";   t        -- we are within a string"},{"Add":";   a string -- we are within a quoted string and st is the closing delimiter"},{"Add":""},{"Add":"(defun caml-font-annotate (st depth)"},{"Add":"  (let ((continue t))"},{"Add":"    (while (and continue (not (eobp)))"},{"Add":"      (cond"},{"Add":"       ((and (equal st nil) (= depth 0)) ; base state, outside comment"},{"Add":"        (cond"},{"Add":"         ((caml-font-looking-at caml-font-ident-or-num-re)"},{"Add":"          (goto-char (match-end 0)))"},{"Add":"         ((caml-font-looking-at caml-font-char-re)"},{"Add":"          (put-text-property (point) (1+ (point))"},{"Add":"                             'syntax-table (string-to-syntax \"|\"))"},{"Add":"          (put-text-property (1- (match-end 0)) (match-end 0)"},{"Add":"                             'syntax-table (string-to-syntax \"|\"))"},{"Add":"          (goto-char (match-end 0)))"},{"Add":"         ((caml-font-looking-at caml-font-quote-newline-re)"},{"Add":"          (goto-char (match-end 0)))"},{"Add":"         ((caml-font-looking-at \"\\\"\")"},{"Add":"          (put-text-property (point) (1+ (point))"},{"Add":"                             'syntax-table (string-to-syntax \"|\"))"},{"Add":"          (goto-char (match-end 0))"},{"Add":"          (setq st t))"},{"Add":"         ((caml-font-looking-at caml-font-quoted-string-start-re)"},{"Add":"          (put-text-property (point) (1+ (point))"},{"Add":"                             'syntax-table (string-to-syntax \"|\"))"},{"Add":"          (goto-char (match-end 0))"},{"Add":"          (setq st (concat \"|\" (match-string 1) \"}\")))"},{"Add":"         ((caml-font-looking-at \"(\\\\*\")"},{"Add":"          (put-text-property (point) (1+ (point))"},{"Add":"                             'syntax-table (string-to-syntax \"!\"))"},{"Add":"          (goto-char (match-end 0))"},{"Add":"          (setq depth 1))"},{"Add":"         ((looking-at caml-font-newline-re)"},{"Add":"          (goto-char (match-end 0))"},{"Add":"          (setq continue (caml-font-put-state (match-end 0) '(nil . 0))))"},{"Add":"         ((caml-font-looking-at caml-font-other-re)"},{"Add":"          (goto-char (match-end 0)))"},{"Add":"         (t"},{"Add":"          (remove-text-properties (point) (1+ (point))"},{"Add":"                                  '(syntax-table nil caml-font-state nil))"},{"Add":"          (goto-char (1+ (point))))))"},{"Add":"       ((equal st nil)                 ; base state inside comment"},{"Add":"        (cond"},{"Add":"         ((caml-font-looking-at \"(\\\\*\")"},{"Add":"          (goto-char (match-end 0))"},{"Add":"          (setq depth (1+ depth)))"},{"Add":"         ((caml-font-looking-at \"\\\\*)\")"},{"Add":"          (goto-char (match-end 0))"},{"Add":"          (setq depth (1- depth))"},{"Add":"          (when (= depth 0)"},{"Add":"            (put-text-property (1- (point)) (point)"},{"Add":"                               'syntax-table (string-to-syntax \"!\"))))"},{"Add":"         ((caml-font-looking-at \"\\\"\")"},{"Add":"          (goto-char (match-end 0))"},{"Add":"          (setq st t))"},{"Add":"         ((caml-font-looking-at caml-font-char-re)"},{"Add":"          (goto-char (match-end 0)))"},{"Add":"         ((caml-font-looking-at caml-font-quote-newline-re)"},{"Add":"          (goto-char (match-end 0)))"},{"Add":"         ((caml-font-looking-at \"''\")"},{"Add":"          (goto-char (match-end 0)))"},{"Add":"         ((looking-at caml-font-newline-re)"},{"Add":"          (goto-char (match-end 0))"},{"Add":"          (setq continue (caml-font-put-state (match-end 0) (cons nil depth))))"},{"Add":"         ((caml-font-looking-at caml-font-ident-re)"},{"Add":"          (goto-char (match-end 0)))"},{"Add":"         ((caml-font-looking-at caml-font-other-comment-re)"},{"Add":"          (goto-char (match-end 0)))"},{"Add":"         (t"},{"Add":"          (remove-text-properties (point) (1+ (point))"},{"Add":"                                  '(syntax-table nil caml-font-state nil))"},{"Add":"          (goto-char (1+ (point))))))"},{"Add":"       ((equal st t)                ; string state inside or outside a comment"},{"Add":"        (cond"},{"Add":"         ((caml-font-looking-at \"\\\"\")"},{"Add":"          (when (= depth 0)"},{"Add":"            (put-text-property (point) (1+ (point))"},{"Add":"                               'syntax-table (string-to-syntax \"|\")))"},{"Add":"          (goto-char (1+ (point)))"},{"Add":"          (setq st nil))"},{"Add":"         ((caml-font-looking-at \"\\\\\\\\[\\\"\\\\]\")"},{"Add":"          (goto-char (match-end 0)))"},{"Add":"         ((looking-at caml-font-newline-re)"},{"Add":"          (goto-char (match-end 0))"},{"Add":"          (setq continue (caml-font-put-state (match-end 0) (cons t depth))))"},{"Add":"         ((caml-font-looking-at caml-font-other-string-re)"},{"Add":"          (goto-char (match-end 0)))"},{"Add":"         (t"},{"Add":"          (remove-text-properties (point) (1+ (point))"},{"Add":"                                  '(syntax-table nil caml-font-state nil))"},{"Add":"          (goto-char (1+ (point))))))"},{"Add":"       ((stringp st)        ; quoted-string state inside or outside comment"},{"Add":"        (cond"},{"Add":"         ((caml-font-looking-at st)"},{"Add":"          (when (= depth 0)"},{"Add":"            (put-text-property (1- (match-end 0)) (match-end 0)"},{"Add":"                               'syntax-table (string-to-syntax \"|\")))"},{"Add":"          (goto-char (match-end 0))"},{"Add":"          (setq st nil))"},{"Add":"         ((caml-font-looking-at caml-font-other-string-re)"},{"Add":"          (goto-char (match-end 0)))"},{"Add":"         (t"},{"Add":"          (remove-text-properties (point) (1+ (point))"},{"Add":"                                  '(syntax-table nil caml-font-state nil))"},{"Add":"          (goto-char (1+ (point))))))"},{"Add":"       (t                ; should not happen"},{"Add":"          (remove-text-properties (point) (1+ (point))"},{"Add":"                                  '(syntax-table nil caml-font-state nil))))))"},{"Add":")"},{"Add":""},{"Add":"; This is the hook function for font-lock-extend-after-change-function"},{"Add":"; It finds the nearest saved state at the left of the changed text,"},{"Add":"; calls caml-font-annotate to set the 'caml-font-state and 'syntax-table"},{"Add":"; properties, then returns the range that was parsed by caml-font-annotate."},{"Add":"(defun caml-font-extend-after-change (beg end &optional _old-len)"},{"Add":"  (save-excursion"},{"Add":"    (save-match-data"},{"Add":"      (let ((caml-font-modified (buffer-modified-p))"},{"Add":"            start-at"},{"Add":"            end-at"},{"Add":"            state)"},{"Add":"        (remove-text-properties beg end '(syntax-table nil caml-font-state nil))"},{"Add":"        (setq start-at"},{"Add":"              (or (and (> beg (point-min))"},{"Add":"                       (get-text-property (1- beg) 'caml-font-state)"},{"Add":"                       beg)"},{"Add":"                  (previous-single-property-change beg 'caml-font-state)"},{"Add":"                  (point-min)))"},{"Add":"        (setq state (or (and (> start-at (point-min))"},{"Add":"                             (get-text-property (1- start-at) 'caml-font-state))"},{"Add":"                        (cons nil 0)))"},{"Add":"        (goto-char start-at)"},{"Add":"        (caml-font-annotate (car state) (cdr state))"},{"Add":"        (setq end-at (point))"},{"Add":"        (restore-buffer-modified-p caml-font-modified)"},{"Add":"        (cons start-at end-at))))"},{"Add":")"},{"Add":""},{"Add":"; We don't use the normal caml-mode syntax table because it contains an"},{"Add":"; approximation of strings and comments that interferes with our"},{"Add":"; annotations."},{"Add":"(defconst caml-font-syntax-table"},{"Add":"  (let ((tbl (make-syntax-table)))"},{"Add":"    (modify-syntax-entry ?' \"w\" tbl)"},{"Add":"    (modify-syntax-entry ?_ \"w\" tbl)"},{"Add":"    (modify-syntax-entry ?\\\" \".\" tbl)"},{"Add":"    (let ((i 192))"},{"Add":"      (while (< i 256)"},{"Add":"        (or (= i 215) (= i 247) (modify-syntax-entry i \"w\" tbl))"},{"Add":"        (setq i (1+ i))))"},{"Add":"    tbl))"},{"Add":""},{"Add":";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"},{"Add":""},{"Add":";; font-lock commands are similar for caml-mode and inferior-caml-mode"},{"Add":"(defun caml-font-set-font-lock ()"},{"Add":"  (setq parse-sexp-lookup-properties t)"},{"Add":"  (setq font-lock-defaults"},{"Add":"        (list"},{"Add":"         'caml-font-lock-keywords  ; keywords"},{"Add":"         nil  ; keywords-only"},{"Add":"         nil  ; case-fold"},{"Add":"         nil  ; syntax-alist"},{"Add":"         nil  ; syntax-begin"},{"Add":"         (cons 'font-lock-syntax-table caml-font-syntax-table)"},{"Add":"         '(font-lock-extend-after-change-region-function"},{"Add":"           . caml-font-extend-after-change)"},{"Add":"         '(font-lock-syntactic-face-function . caml-font-syntactic-face)"},{"Add":"         ))"},{"Add":"  (caml-font-extend-after-change (point-min) (point-max) 0)"},{"Add":"  (font-lock-mode 1)"},{"Add":")"},{"Add":"(add-hook 'caml-mode-hook 'caml-font-set-font-lock)"},{"Add":""},{"Add":""},{"Add":""},{"Add":"(defconst inferior-caml-font-lock-keywords"},{"Add":"  `((\"^[#-]\" . font-lock-comment-face)"},{"Add":"    ,@caml-font-lock-keywords))"},{"Add":""},{"Add":"(defun inferior-caml-set-font-lock ()"},{"Add":"  (setq parse-sexp-lookup-properties t)"},{"Add":"  (setq font-lock-defaults"},{"Add":"        (list"},{"Add":"         'inferior-caml-font-lock-keywords  ; keywords"},{"Add":"         nil  ; keywords-only"},{"Add":"         nil  ; case-fold"},{"Add":"         nil  ; syntax-alist"},{"Add":"         nil  ; syntax-begin"},{"Add":"         (cons 'font-lock-syntax-table caml-font-syntax-table)"},{"Add":"         '(font-lock-extend-after-change-region-function"},{"Add":"           . caml-font-extend-after-change)"},{"Add":"         '(font-lock-syntactic-face-function . caml-font-syntactic-face)"},{"Add":"         ))"},{"Add":"  (caml-font-extend-after-change (point-min) (point-max) 0)"},{"Add":"  (font-lock-mode 1)"},{"Add":")"},{"Add":"(add-hook 'inferior-caml-mode-hooks 'inferior-caml-set-font-lock)"},{"Add":""},{"Add":"(provide 'caml-font)"}]}},{"FileAdd":{"meta":{"basename":"caml-font-old.el","metadata":0},"context":[{"change":0,"pos":2136691}],"contents":[{"Add":";****************************************** -*- lexical-binding: t; -*- ***"},{"Add":";*                                                                        *"},{"Add":";*                                 OCaml                                  *"},{"Add":";*                                                                        *"},{"Add":";*                 Jacques Garrigue and Ian T Zimmerman                   *"},{"Add":";*                                                                        *"},{"Add":";*   Copyright 1997 Institut National de Recherche en Informatique et     *"},{"Add":";*     en Automatique.                                                    *"},{"Add":";*                                                                        *"},{"Add":";*   All rights reserved.  This file is distributed under the terms of    *"},{"Add":";*   the GNU General Public License.                                      *"},{"Add":";*                                                                        *"},{"Add":";**************************************************************************"},{"Add":""},{"Add":";; useful colors"},{"Add":""},{"Add":"(cond"},{"Add":" ((x-display-color-p)"},{"Add":"  (require 'font-lock)"},{"Add":"  ;; extra faces for documentation"},{"Add":"  (make-face 'Stop)"},{"Add":"  (set-face-foreground 'Stop \"White\")"},{"Add":"  (set-face-background 'Stop \"Red\")"},{"Add":"  (make-face 'Doc)"},{"Add":"  (set-face-foreground 'Doc \"Red\")"},{"Add":"  (setq font-lock-stop-face 'Stop)"},{"Add":"  (setq font-lock-doccomment-face 'Doc)"},{"Add":"))"},{"Add":""},{"Add":"; The same definition is in caml.el:"},{"Add":"; we don't know in which order they will be loaded."},{"Add":"(defvar caml-quote-char \"'\""},{"Add":"  \"*Quote for character constants. \\\"'\\\" for OCaml, \\\"`\\\" for Caml-Light.\")"},{"Add":""},{"Add":"(defconst caml-font-lock-keywords"},{"Add":"  (list"},{"Add":";stop special comments"},{"Add":"   '(\"\\\\(^\\\\|[^\\\"]\\\\)\\\\((\\\\*\\\\*/\\\\*\\\\*)\\\\)\""},{"Add":"     2 font-lock-stop-face)"},{"Add":";doccomments"},{"Add":"   '(\"\\\\(^\\\\|[^\\\"]\\\\)\\\\((\\\\*\\\\*[^*]*\\\\([^)*][^*]*\\\\*+\\\\)*)\\\\)\""},{"Add":"     2 font-lock-doccomment-face)"},{"Add":";comments"},{"Add":"   '(\"\\\\(^\\\\|[^\\\"]\\\\)\\\\((\\\\*[^*]*\\\\*+\\\\([^)*][^*]*\\\\*+\\\\)*)\\\\)\""},{"Add":"     2 font-lock-comment-face)"},{"Add":";character literals"},{"Add":"   (cons (concat caml-quote-char \"\\\\(\\\\\\\\\\\\([ntbr\" caml-quote-char \"\\\\]\\\\|\""},{"Add":"                 \"[0-9][0-9][0-9]\\\\)\\\\|.\\\\)\" caml-quote-char"},{"Add":"                 \"\\\\|\\\"[^\\\"\\\\]*\\\\(\\\\\\\\\\\\(.\\\\|\\n\\\\)[^\\\"\\\\]*\\\\)*\\\"\")"},{"Add":"         'font-lock-string-face)"},{"Add":";modules and constructors"},{"Add":"   '(\"`?\\\\<[A-Z][A-Za-z0-9_']*\\\\>\" . font-lock-function-name-face)"},{"Add":";definition"},{"Add":"   (cons (concat"},{"Add":"          \"\\\\<\\\\(a\\\\(nd\\\\|s\\\\)\\\\|c\\\\(onstraint\\\\|lass\\\\)\""},{"Add":"          \"\\\\|ex\\\\(ception\\\\|ternal\\\\)\\\\|fun\\\\(ct\\\\(ion\\\\|or\\\\)\\\\)?\""},{"Add":"          \"\\\\|in\\\\(herit\\\\|itializer\\\\)?\\\\|let\""},{"Add":"          \"\\\\|m\\\\(ethod\\\\|utable\\\\|odule\\\\)\""},{"Add":"          \"\\\\|of\\\\|p\\\\(arser\\\\|rivate\\\\)\\\\|rec\\\\|type\""},{"Add":"          \"\\\\|v\\\\(al\\\\|irtual\\\\)\\\\)\\\\>\")"},{"Add":"         'font-lock-type-face)"},{"Add":";blocking"},{"Add":"   '(\"\\\\<\\\\(begin\\\\|end\\\\|object\\\\|s\\\\(ig\\\\|truct\\\\)\\\\)\\\\>\""},{"Add":"     . font-lock-keyword-face)"},{"Add":";control"},{"Add":"   (cons (concat"},{"Add":"          \"\\\\<\\\\(do\\\\(ne\\\\|wnto\\\\)?\\\\|else\\\\|for\\\\|i\\\\(f\\\\|gnore\\\\)\""},{"Add":"          \"\\\\|lazy\\\\|match\\\\|new\\\\|or\\\\|t\\\\(hen\\\\|o\\\\|ry\\\\)\""},{"Add":"          \"\\\\|w\\\\(h\\\\(en\\\\|ile\\\\)\\\\|ith\\\\)\\\\)\\\\>\""},{"Add":"          \"\\\\||\\\\|->\\\\|&\\\\|#\")"},{"Add":"         'font-lock-reference-face)"},{"Add":"   '(\"\\\\\" . font-lock-comment-face)"},{"Add":";labels (and open)"},{"Add":"   '(\"\\\\(\\\\([~?]\\\\|\\\\<\\\\)[a-z][a-zA-Z0-9_']*:\\\\)[^:=]\" 1"},{"Add":"     font-lock-variable-name-face)"},{"Add":"   '(\"\\\\<\\\\(assert\\\\|open\\\\|include\\\\)\\\\>\\\\|[~?][ (]*[a-z][a-zA-Z0-9_']*\""},{"Add":"     . font-lock-variable-name-face)))"},{"Add":""},{"Add":"(defconst inferior-caml-font-lock-keywords"},{"Add":"  (append"},{"Add":"   (list"},{"Add":";inferior"},{"Add":"    '(\"^[#-]\" . font-lock-comment-face))"},{"Add":"   caml-font-lock-keywords))"},{"Add":""},{"Add":";; font-lock commands are similar for caml-mode and inferior-caml-mode"},{"Add":"(defun caml-mode-font-hook ()"},{"Add":"  (cond"},{"Add":"   ((fboundp 'global-font-lock-mode)"},{"Add":"    (make-local-variable 'font-lock-defaults)"},{"Add":"    (setq font-lock-defaults"},{"Add":"          '(caml-font-lock-keywords nil nil ((?' . \"w\") (?_ . \"w\")))))"},{"Add":"   (t"},{"Add":"    (setq font-lock-keywords caml-font-lock-keywords)))"},{"Add":"  (make-local-variable 'font-lock-keywords-only)"},{"Add":"  (setq font-lock-keywords-only t)"},{"Add":"  (font-lock-mode 1))"},{"Add":""},{"Add":"(add-hook 'caml-mode-hook 'caml-mode-font-hook)"},{"Add":""},{"Add":"(defun inferior-caml-mode-font-hook ()"},{"Add":"  (cond"},{"Add":"   ((fboundp 'global-font-lock-mode)"},{"Add":"    (make-local-variable 'font-lock-defaults)"},{"Add":"    (setq font-lock-defaults"},{"Add":"          '(inferior-caml-font-lock-keywords"},{"Add":"            nil nil ((?' . \"w\") (?_ . \"w\")))))"},{"Add":"   (t"},{"Add":"    (setq font-lock-keywords inferior-caml-font-lock-keywords)))"},{"Add":"  (make-local-variable 'font-lock-keywords-only)"},{"Add":"  (setq font-lock-keywords-only t)"},{"Add":"  (font-lock-mode 1))"},{"Add":""},{"Add":"(add-hook 'inferior-caml-mode-hooks 'inferior-caml-mode-font-hook)"},{"Add":""},{"Add":"(provide 'caml-font)"}]}},{"FileAdd":{"meta":{"basename":"caml-autoloads.el","metadata":0},"context":[{"change":0,"pos":2136691}],"contents":[{"Add":";;; caml-autoloads.el --- automatically extracted autoloads  -*- lexical-binding: t -*-"},{"Add":";;"},{"Add":";;; Code:"},{"Add":""},{"Add":"(add-to-list 'load-path (directory-file-name"},{"Add":"                         (or (file-name-directory #$) (car load-path))))"},{"Add":""},{"Add":"\f"},{"Add":";;;### (autoloads nil \"caml\" \"caml.el\" (0 0 0 0))"},{"Add":";;; Generated autoloads from caml.el"},{"Add":""},{"Add":"(register-definition-prefixes \"caml\" '(\"caml-\"))"},{"Add":""},{"Add":";;;***"},{"Add":"\f"},{"Add":";;;### (autoloads nil \"caml-font\" \"caml-font.el\" (0 0 0 0))"},{"Add":";;; Generated autoloads from caml-font.el"},{"Add":""},{"Add":"(register-definition-prefixes \"caml-font\" '(\"caml-font-\" \"inferior-caml-\"))"},{"Add":""},{"Add":";;;***"},{"Add":"\f"},{"Add":";;;### (autoloads nil \"caml-font-old\" \"caml-font-old.el\" (0 0 0 0))"},{"Add":";;; Generated autoloads from caml-font-old.el"},{"Add":""},{"Add":"(register-definition-prefixes \"caml-font-old\" '(\"caml-\" \"inferior-caml-\"))"},{"Add":""},{"Add":";;;***"},{"Add":"\f"},{"Add":";;;### (autoloads nil \"caml-help\" \"caml-help.el\" (0 0 0 0))"},{"Add":";;; Generated autoloads from caml-help.el"},{"Add":""},{"Add":"(register-definition-prefixes \"caml-help\" '(\"caml-\" \"ocaml-\"))"},{"Add":""},{"Add":";;;***"},{"Add":"\f"},{"Add":";;;### (autoloads nil \"caml-types\" \"caml-types.el\" (0 0 0 0))"},{"Add":";;; Generated autoloads from caml-types.el"},{"Add":""},{"Add":"(register-definition-prefixes \"caml-types\" '(\"caml-\"))"},{"Add":""},{"Add":";;;***"},{"Add":"\f"},{"Add":";;;### (autoloads nil \"camldebug\" \"camldebug.el\" (0 0 0 0))"},{"Add":";;; Generated autoloads from camldebug.el"},{"Add":""},{"Add":"(defvar camldebug-command-name \"ocamldebug\" \"\\"},{"Add":"*Pathname for executing camldebug.\")"},{"Add":""},{"Add":"(autoload 'camldebug \"camldebug\" \"\\"},{"Add":"Run camldebug on program FILE in buffer *camldebug-FILE*."},{"Add":"The directory containing FILE becomes the initial working directory"},{"Add":"and source-file directory for camldebug.  If you wish to change this, use"},{"Add":"the camldebug commands `cd DIR' and `directory'."},{"Add":""},{"Add":"\\(fn PATH)\" t nil)"},{"Add":""},{"Add":"(register-definition-prefixes \"camldebug\" '(\"camldebug-\" \"current-camldebug-buffer\" \"def-camldebug\"))"},{"Add":""},{"Add":";;;***"},{"Add":"\f"},{"Add":";;;### (autoloads nil \"inf-caml\" \"inf-caml.el\" (0 0 0 0))"},{"Add":";;; Generated autoloads from inf-caml.el"},{"Add":""},{"Add":"(register-definition-prefixes \"inf-caml\" '(\"caml-\" \"inferior-caml-\" \"run-caml\"))"},{"Add":""},{"Add":";;;***"},{"Add":"\f"},{"Add":";;;### (autoloads nil nil (\"caml-pkg.el\") (0 0 0 0))"},{"Add":""},{"Add":";;;***"},{"Add":"\f"},{"Add":";; Local Variables:"},{"Add":";; version-control: never"},{"Add":";; no-byte-compile: t"},{"Add":";; no-update-autoloads: t"},{"Add":";; coding: utf-8"},{"Add":";; End:"},{"Add":";;; caml-autoloads.el ends here"}]}},{"Edit":{"inode":{"change":5,"pos":55211312},"path":".ignore","line":21,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":6}],"down_context":[],"flag":"BLOCK","start":2356277,"end":2356294,"inode":{"change":5,"pos":55211312}}},"contents":[{"Add":"mastodon.plstore"}]}}],"owner":"jaredj","repo":"dot-emacs","token":"jxReyT+0OwXV2pvwetc8loRHZuI0sVuNPXbBvXoNHJM=","login":null}
…

Dependencies

Change contents
