aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--bard-elisp/bard-editing.el57
-rw-r--r--bard-elisp/bard-scratch.el32
-rw-r--r--bard-elisp/bard-terminal.el18
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)