diff options
Diffstat (limited to 'bard-elisp')
| -rw-r--r-- | bard-elisp/bard-editing.el | 57 | ||||
| -rw-r--r-- | bard-elisp/bard-scratch.el | 32 | ||||
| -rw-r--r-- | bard-elisp/bard-terminal.el | 18 |
3 files changed, 0 insertions, 107 deletions
diff --git a/bard-elisp/bard-editing.el b/bard-elisp/bard-editing.el deleted file mode 100644 index d1b0310..0000000 --- a/bard-elisp/bard-editing.el +++ /dev/null @@ -1,57 +0,0 @@ -;;; bard-editing.el --- My custom editing functions and keybinds -*- lexical-binding: t -*- - -;; Author: BardofSprites -;; Maintainer: BardofSprites -;; Version: 0.1.0 -;; Package-Requires: ((emacs "28.2")) - -;; This file is not part of GNU Emacs - -;; This program is free software: you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; This program is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see <https://www.gnu.org/licenses/>. - - -;;; Commentary: -;; Custom editing functions with intended use of my personal GNU Emacs configuration -;;; Code: - -;; Surround region with character -(defun bard/wrap-text-with-markers (start-marker end-marker marker) - "Surround marked text with any character." - (interactive "r\nsEnter marker (e.g., \"): ") - (save-excursion - (goto-char end-marker) - (insert marker) - (goto-char start-marker) - (insert marker))) - -;;(global-set-key (kbd "C-c C-s") 'bard/wrap-text-with-markers) - -(defun bard/copy-current-line () - "Copy the current line." - (interactive) - (let ((line-text (buffer-substring (line-beginning-position) (line-end-position)))) - (kill-new line-text) - (message "Copied current line"))) - -;; (global-set-key (kbd "C-c y") 'bard/copy-current-line) - -;; Multiple cursors -(global-set-key (kbd "C-S-c C-S-c") 'mc/edit-lines) -(global-set-key (kbd "C->") 'mc/mark-next-like-this) -(global-set-key (kbd "C-<") 'mc/mark-previous-like-this) -(global-set-key (kbd "C-c C-<") 'mc/mark-all-like-this) -(global-set-key (kbd "C-\\") 'mc/skip-to-next-like-this) -(global-set-key (kbd "C-:") 'mc/skip-to-previous-like-this) - -;;; bard-editing.el ends here diff --git a/bard-elisp/bard-scratch.el b/bard-elisp/bard-scratch.el deleted file mode 100644 index 7180ccb..0000000 --- a/bard-elisp/bard-scratch.el +++ /dev/null @@ -1,32 +0,0 @@ -;; Text Scratch buffers -(defun bard/new-org-buffer () - (interactive) - (let ((xbuf (generate-new-buffer "*org*"))) - (switch-to-buffer xbuf) - (funcall (quote org-mode)) - (text-scale-increase 1.5) - xbuf)) -(define-key global-map (kbd "M-=") #'bard/new-org-buffer) - -(defun bard/new-plain-buffer () - (interactive) - (let ((xbuf (generate-new-buffer "*plain*"))) - (switch-to-buffer xbuf) - (text-scale-increase 1.5) - xbuf)) - -(define-key global-map (kbd "M--") #'bard/new-plain-buffer) - -;; elisp scratch buffer - -(defun bard/new-elisp-buffer () - (interactive) - (let ((xbuf (generate-new-buffer "*elisp*"))) - (switch-to-buffer xbuf) - (funcall (quote emacs-lisp-mode)) - (text-scale-increase 1.5) - xbuf)) - -(define-key global-map (kbd "C-z C-s") #'bard/new-elisp-buffer) - -(provide 'bard-scratch.el) diff --git a/bard-elisp/bard-terminal.el b/bard-elisp/bard-terminal.el deleted file mode 100644 index 23f273c..0000000 --- a/bard-elisp/bard-terminal.el +++ /dev/null @@ -1,18 +0,0 @@ -(defun bard/open-terminal-in-current-directory () - "Open a terminal in the current working directory." - (interactive) - (let ((default-directory default-directory)) - (term "/bin/bash"))) - -(define-key global-map (kbd "C-t") #'bard/open-terminal-in-current-directory) -(define-key global-map (kbd "C-z t") #'bard/open-terminal-in-current-directory) - -(defun bard/open-terminal-emulator () - "Open a terminal in the current working directory." - (interactive) - (let ((default-directory default-directory)) - (start-process "st terminal" nil "st"))) - -(define-key global-map (kbd "C-z C-t") 'bard/open-terminal-emulator) - -(provide 'bard-terminal.el) |
