def insert_in_other_buffer(bufname, text):
"""Creates/erases a buffer with the given name, opens it in a
separate visible pane, and pastes the given text into it."""
lisp.get_buffer_create(bufname)
lisp.display_buffer(bufname, 1)
old_buf = lisp.current_buffer()
lisp.set_buffer(bufname)
lisp.erase_buffer()
lisp.insert(text)
lisp.set_buffer(old_buf)
def insert_in_other_buffer(bufname, text):
"""Creates/erases a buffer with the given name, opens it in a
separate visible pane, and pastes the given text into it."""
lisp.get_buffer_create(bufname)
lisp.display_buffer(bufname, 1)
old_buf = lisp.current_buffer()
lisp.set_buffer(bufname)
lisp.erase_buffer()
lisp.insert(text)
lisp.set_buffer(old_buf)
def _make_buffer(self, name, contents, empty_goto=True, switch=False,
window='other', modes=[], fit_lines=None):
"""Make an emacs buffer
`window` can be one of `None`, 'current' or 'other'.
"""
new_buffer = lisp.get_buffer_create(name)
lisp.set_buffer(new_buffer)
lisp.toggle_read_only(-1)
lisp.erase_buffer()
if contents or empty_goto:
lisp.insert(contents)
for mode in modes:
lisp[mode + '-mode']()
lisp.buffer_disable_undo(new_buffer)
lisp.toggle_read_only(1)
if switch:
if window == 'current':
lisp.switch_to_buffer(new_buffer)
else:
lisp.switch_to_buffer_other_window(new_buffer)
lisp.goto_char(lisp.point_min())
elif window == 'other':
new_window = lisp.display_buffer(new_buffer)
lisp.set_window_point(new_window, lisp.point_min())
if fit_lines and lisp.fboundp(lisp['fit-window-to-buffer']):
lisp.fit_window_to_buffer(new_window, fit_lines)
lisp.bury_buffer(new_buffer)
return new_buffer
def _make_buffer(self,
name,
contents,
empty_goto=True,
switch=False,
window='other',
modes=[],
fit_lines=None):
"""Make an emacs buffer
`window` can be one of `None`, 'current' or 'other'.
"""
new_buffer = lisp.get_buffer_create(name)
lisp.set_buffer(new_buffer)
lisp.toggle_read_only(-1)
lisp.erase_buffer()
if contents or empty_goto:
lisp.insert(contents)
for mode in modes:
lisp[mode + '-mode']()
lisp.buffer_disable_undo(new_buffer)
lisp.toggle_read_only(1)
if switch:
if window == 'current':
lisp.switch_to_buffer(new_buffer)
else:
lisp.switch_to_buffer_other_window(new_buffer)
lisp.goto_char(lisp.point_min())
elif window == 'other':
new_window = lisp.display_buffer(new_buffer)
lisp.set_window_point(new_window, lisp.point_min())
if fit_lines and lisp.fboundp(lisp['fit-window-to-buffer']):
lisp.fit_window_to_buffer(new_window, fit_lines)
lisp.bury_buffer(new_buffer)
return new_buffer
