Skip to content

Commit

Permalink
Make major modes non-interactive
Browse files Browse the repository at this point in the history
These modes are enabled automatically and never have to be enabled
manually.
  • Loading branch information
tarsius committed Jul 30, 2024
1 parent a157bea commit 489e10e
Show file tree
Hide file tree
Showing 5 changed files with 10 additions and 3 deletions.
1 change: 1 addition & 0 deletions lisp/forge-notify.el
Original file line number Diff line number Diff line change
Expand Up @@ -121,6 +121,7 @@ signal an error."

(define-derived-mode forge-notifications-mode magit-mode "Forge Notifications"
"Major mode for looking at forge notifications."
:interactive nil
(hack-dir-local-variables-non-file-buffer))

(defun forge-notifications-setup-buffer ()
Expand Down
3 changes: 2 additions & 1 deletion lisp/forge-post.el
Original file line number Diff line number Diff line change
Expand Up @@ -100,7 +100,8 @@ an error."
"<remap> <evil-quit>" #'forge-post-cancel)

(define-derived-mode forge-post-mode gfm-mode "Forge-Post"
"Major mode for editing topic posts.")
"Major mode for editing topic posts."
:interactive nil)

(defvar-local forge--buffer-base-branch nil)
(defvar-local forge--buffer-head-branch nil)
Expand Down
1 change: 1 addition & 0 deletions lisp/forge-repos.el
Original file line number Diff line number Diff line change
Expand Up @@ -86,6 +86,7 @@ Must be set before `forge-list' is loaded.")
(define-derived-mode forge-repository-list-mode tabulated-list-mode
forge-repository-list-mode-name
"Major mode for browsing a list of repositories."
:interactive nil
(setq-local x-stretch-cursor nil)
(setq tabulated-list-padding 0)
(setq tabulated-list-sort-key (cons "Owner" nil)))
Expand Down
7 changes: 5 additions & 2 deletions lisp/forge-topic.el
Original file line number Diff line number Diff line change
Expand Up @@ -1082,12 +1082,14 @@ commands in all Forge keymaps, one only has to change them here."
(define-derived-mode forge-topic-mode magit-mode "Topic"
"Parent major mode of `forge-{issue,pullreq}-mode'.
This mode itself is never used directly."
:interactive nil
(face-remap-add-relative 'header-line 'forge-topic-header-line)
(setq-local markdown-translate-filename-function
#'forge--markdown-translate-filename-function))

(define-derived-mode forge-issue-mode forge-topic-mode "Issue"
"Major mode for looking at a Forge issue.")
"Major mode for looking at a Forge issue."
:interactive nil)
(defalias 'forge-issue-setup-buffer #'forge-topic-setup-buffer)
(defalias 'forge-issue-refresh-buffer #'forge-topic-refresh-buffer)
(defvar forge-issue-headers-hook
Expand All @@ -1099,7 +1101,8 @@ This mode itself is never used directly."
forge-insert-topic-assignees))

(define-derived-mode forge-pullreq-mode forge-topic-mode "Pull-request"
"Major mode for looking at a Forge pull-request.")
"Major mode for looking at a Forge pull-request."
:interactive nil)
(defalias 'forge-pullreq-setup-buffer #'forge-topic-setup-buffer)
(defalias 'forge-pullreq-refresh-buffer #'forge-topic-refresh-buffer)
(defvar forge-pullreq-headers-hook
Expand Down
1 change: 1 addition & 0 deletions lisp/forge-topics.el
Original file line number Diff line number Diff line change
Expand Up @@ -110,6 +110,7 @@ Must be set before `forge-topics' is loaded.")

(define-derived-mode forge-topics-mode magit-mode forge-topics-mode-name
"Major mode for browsing a list of topics."
:interactive nil
(hack-dir-local-variables-non-file-buffer))

(defun forge-topics-setup-buffer (&optional repo spec &rest params)
Expand Down

0 comments on commit 489e10e

Please sign in to comment.