From e52c4330c7dcf30d0a9c65d06c7c27d17198090b Mon Sep 17 00:00:00 2001 From: William Carroll Date: Mon, 26 Jun 2017 10:30:09 -0400 Subject: Disables QuickEdit prototype --- emacs/wc-helper-functions.el | 43 +++++++++++++++++++++++-------------------- 1 file changed, 23 insertions(+), 20 deletions(-) diff --git a/emacs/wc-helper-functions.el b/emacs/wc-helper-functions.el index e393b1247c6c..2d5924f5e1ff 100644 --- a/emacs/wc-helper-functions.el +++ b/emacs/wc-helper-functions.el @@ -1,11 +1,5 @@ (require 'cl) -(defun wc/edit-file-in-emacs (file) - "Edits a file in a buffer in Emacs. On :wq, the buffer is deleted and the previous term session restored." - (find-file file) - (quick-edit-file-mode)) - - (defun wc/open-in-pager (file) "Opens a file in a simulated pager in emacs." (find-file file) @@ -19,25 +13,34 @@ (kill-this-buffer)) -(defvar quick-edit-file-mode-map - (let ((map (make-sparse-keymap))) - (define-key map (kbd "q") 'wc/write-quit-kill-buffer) - map) - "Keymap for emacs quick-edit file mode.") +;; (defun wc/edit-file-in-emacs (file) +;; "Edits a file in a buffer in Emacs. On :wq, the buffer is deleted and the previous term session restored." +;; (find-file file) +;; (quick-edit-file-mode)) -(define-derived-mode quick-edit-file-mode fundamental-mode "QuickEdit" - "Mode quickly editing files." - (setq-local make-backup-files nil) - (setq buffer-name "*quick-edit*")) +;; (defvar quick-edit-file-mode-map +;; (let ((map (make-sparse-keymap))) +;; (define-key map (kbd "q") 'wc/write-quit-kill-buffer) +;; map) +;; "Keymap for emacs quick-edit file mode.") + + +;; (define-derived-mode quick-edit-file-mode fundamental-mode "QuickEdit" +;; "Mode quickly editing files." +;; (setq-local make-backup-files nil) +;; (setq buffer-name "*quick-edit*")) + +;; (defun wc/quick-edit-evil-quit (old-fun &rest args) +;; (if (eq major-mode 'quick-edit-file-mode) +;; (wc/write-quit-kill-buffer) +;; (apply old-fun args))) -(defun wc/quick-edit-evil-quit (old-fun &rest args) - (if (eq major-mode 'quick-edit-file-mode) - (wc/write-quit-kill-buffer) - (apply old-fun args))) -(advice-add #'evil-quit :around #'wc/quick-edit-evil-quit) +;; (defadvice evil-quit +;; (around wc/quick-edit-quick activate) +;; (wc/quick-edit-evil-quit)) (defvar emacs-pager-mode-map -- cgit 1.4.1