hiro/emacs-ipython-notebook
1
0
Fork 0
mirror of https://github.com/vale981/emacs-ipython-notebook synced 2025-03-06 01:21:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Overlays that work

Browse source 
Overlay to make text being edited read-only, but not so read-only
that we can't save text from the edit popout buffer.
This commit is contained in:
John Miller 2016-11-10 18:20:19 -06:00
parent 17a445946d
commit c669d8aa54
1 changed files with 16 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/ein-cell-edit.el
View file

@ -112,10 +112,16 @@ and place results (if any) in output of original notebook cell."
cell."
(interactive)
(set-buffer-modified-p nil)
(let ((edited-code (buffer-string)))
(let* ((edited-code (buffer-string))
(overlay ein:src--overlay)
(read-only (overlay-get overlay 'modification-hooks)))
(overlay-put overlay 'modification-hooks nil)
(overlay-put overlay 'insert-in-front-hooks nil)
(overlay-put overlay 'insert-behind-hooks nil)
(setf (slot-value ein:src--cell 'input) edited-code)
(ewoc-invalidate (oref ein:src--cell :ewoc)
(ein:cell-element-get cell :input))))
(overlay-put overlay 'modification-hooks read-only)
(overlay-put overlay 'insert-in-front-hooks read-only)
(overlay-put overlay 'insert-behind-hooks read-only)))
(defun ein:edit-cell-exit ()
@ -126,9 +132,11 @@ original notebook cell, unless being called via
(let ((edit-buffer (current-buffer))
(ws ein:src--ws)
(cell ein:src--cell))
(ein:remove-overlay)
(when ein:src--allow-write-back
(ein:edit-cell-save))
(ein:remove-overlay)
(ewoc-invalidate (oref ein:src--cell :ewoc)
(ein:cell-element-get cell :input))
(kill-buffer edit-buffer)
(switch-to-buffer-other-window (ein:worksheet--get-buffer ws))
(ein:cell-goto cell)))
@ -168,10 +176,10 @@ END."
(define-key map [mouse-1] 'ein:edit-src-continue)
map))
(let ((read-only
(list
(lambda (&rest _)
(user-error
"Cannot modify an area being edited in a dedicated buffer")))))
(list
(lambda (&rest _)
(user-error
"Cannot modify an area being edited in a dedicated buffer")))))
(overlay-put overlay 'modification-hooks read-only)
(overlay-put overlay 'insert-in-front-hooks read-only)
(overlay-put overlay 'insert-behind-hooks read-only))