From 1968f66cdb9ec0fb9a03fa3b7e25802cfed4d239 Mon Sep 17 00:00:00 2001
From: Jason Blevins <jblevins@xbeta.org>
Date: Mon, 11 Dec 2017 13:23:22 -0500
Subject: [PATCH] Add Markdown and GFM viewing modes

See GH-296
---
 CHANGES.md       |  4 ++++
 README.md        | 14 ++++++++++++++
 markdown-mode.el | 46 +++++++++++++++++++++++++++++++++++++++++++---
 3 files changed, 61 insertions(+), 3 deletions(-)

diff --git a/CHANGES.md b/CHANGES.md
index 33e65fa..2c7936d 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -33,6 +33,9 @@
         `markdown-html-entity-face`.
     -   Scale down large inline images using `markdown-max-image-size`,
         a cons cell of the form `(max-width . max-height)`.
+    -   Added read-only viewing modes `markdown-view-mode` and
+        `gfm-view-mode` with keymaps similar to `view-mode` and
+        `help-mode`.  ([GH-296][])
 
 *   Improvements:
 
@@ -120,6 +123,7 @@
   [gh-276]: https://github.com/jrblevin/markdown-mode/issues/276
   [gh-277]: https://github.com/jrblevin/markdown-mode/pull/277
   [gh-284]: https://github.com/jrblevin/markdown-mode/issues/284
+  [gh-296]: https://github.com/jrblevin/markdown-mode/issues/296
 
 # Markdown Mode 2.3
 
diff --git a/README.md b/README.md
index 3aa901a..c8ce303 100644
--- a/README.md
+++ b/README.md
@@ -574,6 +574,20 @@ can obtain a list of all keybindings by pressing <kbd>C-c C-h</kbd>.
     correctly when calculating column widths, however, columns
     containing hidden markup may not always be aligned properly.
 
+  * Viewing Modes:
+
+    Read-only viewing modes, `markdown-view-mode` and `gfm-view-mode`
+    are provided for viewing Markdown content.  These modes provide
+    simplified keybindings for navigating the buffer.  Many of these
+    are like `help-mode` and `view-mode`, such as <kbd>SPC</kbd>,
+    <kbd>DEL</kbd>, <kbd><</kbd>, and <kbd>></kbd> for scrolling,
+    <kbd>q</kbd> for quitting, and <kbd>?</kbd> or <kbd>h</kbd> for
+    help.  Other keys are provided that mirror the outline navigation
+    commands when editing: <kbd>n</kbd>, <kbd>p</kbd>, <kbd>f</kbd>,
+    <kbd>b</kbd>, and <kbd>u</kbd>.  Both of these modes enable markup
+    hiding by default, bit this can be customized by setting
+    `markdown-hide-markup-in-view-modes`.
+
   * Miscellaneous Commands:
 
     When the [`edit-indirect`][ei] package is installed, <kbd>C-c '</kbd>
diff --git a/markdown-mode.el b/markdown-mode.el
index 52a135e..4be654b 100644
--- a/markdown-mode.el
+++ b/markdown-mode.el
@@ -3001,7 +3001,7 @@ When FACELESS is non-nil, do not return matches where faces have been applied."
 
 (defun markdown-match-italic (last)
   "Match inline italics from the point to LAST."
-  (let ((regex (if (eq major-mode 'gfm-mode)
+  (let ((regex (if (memq major-mode '(gfm-mode gfm-view-mode))
                    markdown-regex-gfm-italic markdown-regex-italic)))
     (when (markdown-match-inline-generic regex last)
       (let ((begin (match-beginning 1))
@@ -7658,7 +7658,7 @@ in parent directories if
 `markdown-wiki-link-search-parent-directories' is non-nil."
   (let* ((basename (markdown-replace-regexp-in-string
                     "[[:space:]\n]" markdown-link-space-sub-char name))
-         (basename (if (eq major-mode 'gfm-mode)
+         (basename (if (eq major-mode '(gfm-mode gfm-view-mode))
                        (concat (upcase (substring basename 0 1))
                                (downcase (substring basename 1 nil)))
                      basename))
@@ -7984,7 +7984,8 @@ or span."
 (defun markdown-reload-extensions ()
   "Check settings, update font-lock keywords and hooks, and re-fontify buffer."
   (interactive)
-  (when (member major-mode '(markdown-mode gfm-mode))
+  (when (member major-mode
+                '(markdown-mode markdown-view-mode gfm-mode gfm-view-mode))
     ;; Refontify buffer
     (if (eval-when-compile (fboundp 'font-lock-flush))
         ;; Use font-lock-flush in Emacs >= 25.1
@@ -9318,6 +9319,45 @@ spaces, or alternatively a TAB should be used as the separator."
  'markdown-mode-font-lock-keywords "v2.4")
 
 
+;;; Viewing modes
+
+(defcustom markdown-hide-markup-in-view-modes t
+  "Enable hidden markup mode in `markdown-view-mode' and `gfm-view-mode'."
+  :group 'markdown
+  :type 'boolean
+  :safe 'booleanp)
+
+(defvar markdown-view-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "p") #'markdown-outline-previous)
+    (define-key map (kbd "n") #'markdown-outline-next)
+    (define-key map (kbd "f") #'markdown-outline-next-same-level)
+    (define-key map (kbd "b") #'markdown-outline-previous-same-level)
+    (define-key map (kbd "u") #'markdown-outline-up)
+    (define-key map (kbd "DEL") #'scroll-down-command)
+    (define-key map (kbd "SPC") #'scroll-up-command)
+    (define-key map (kbd ">") #'end-of-buffer)
+    (define-key map (kbd "<") #'beginning-of-buffer)
+    (define-key map (kbd "q") #'kill-this-buffer)
+    (define-key map (kbd "?") #'describe-mode)
+    map)
+  "Keymap for `markdown-view-mode'.")
+
+(define-derived-mode markdown-view-mode markdown-mode "Markdown-View"
+  "Major mode for viewing Markdown content."
+  (setq-local markdown-hide-markup markdown-hide-markup-in-view-modes)
+  (read-only-mode 1))
+
+(defvar gfm-view-mode-map
+  markdown-view-mode-map
+  "Keymap for `gfm-view-mode'.")
+
+(define-derived-mode gfm-view-mode gfm-mode "GFM-View"
+  "Major mode for viewing GitHub Flavored Markdown content."
+  (setq-local markdown-hide-markup markdown-hide-markup-in-view-modes)
+  (read-only-mode 1))
+
+
 ;;; Live Preview Mode  ============================================
 (define-minor-mode markdown-live-preview-mode
   "Toggle native previewing on save for a specific markdown file."
-- 
2.11.4.GIT