summaryrefslogtreecommitdiff
path: root/.emacs.d/functions.el
diff options
context:
space:
mode:
authoryuzu-eva <stevenhu@web.de>2023-04-01 15:59:07 +0200
committeryuzu-eva <stevenhu@web.de>2023-04-01 15:59:07 +0200
commitbe35ccddeb63db26949183ade5a801593918a597 (patch)
tree565279ea3e051da6d96197d82bbce2ea49ff0310 /.emacs.d/functions.el
parente1737dbd191446d53d4687426eae682d31270b62 (diff)
removed emacs configs
Diffstat (limited to '.emacs.d/functions.el')
-rw-r--r--.emacs.d/functions.el49
1 files changed, 0 insertions, 49 deletions
diff --git a/.emacs.d/functions.el b/.emacs.d/functions.el
deleted file mode 100644
index cc86002..0000000
--- a/.emacs.d/functions.el
+++ /dev/null
@@ -1,49 +0,0 @@
-(defun startup/revert-file-name-handler-alist ()
- (setq file-name-handler-alist startup/file-name-handler-alist))
-
-(defun startup/reset-gc ()
- (setq gc-cons-threshold 16777216
- gc-cons-percentage 0.1))
-
-(defun split-and-follow-horizontally ()
- (interactive)
- (split-window-below)
- (balance-windows)
- (other-window 1))
-
-(defun split-and-follow-vertically ()
- (interactive)
- (split-window-right)
- (balance-windows)
- (other-window 1))
-
-(defun toggle-transparency()
- (interactive)
- (let ((alpha (frame-parameter nil 'alpha)))
- (set-frame-parameter
- nil 'alpha
- (if (eql (cond ((numberp alpha) alpha)
- ((numberp (cdr alpha)) (cdr alpha))
- ;; Also handle undocumented (<active> <inactive>) form.
- ((numberp (cadr alpha)) (cadr alpha)))
- 100)
- '(80 . 80) '(100 . 100)))))
-
-(defun eshell/sudo-open (filename)
- "Open a file as root in Eshell."
- (let ((qual-filename (if (string-match "^/" filename)
- filename
- (concat (expand-file-name (eshell/pwd)) "/" filename))))
- (switch-to-buffer
- (find-file-noselect
- (concat "/sudo::" qual-filename)))))
-
-(defun eshell-other-window ()
- "Create or visit an eshell buffer."
- (interactive)
- (if (not (get-buffer "*eshell*"))
- (progn
- (split-window-sensibly (selected-window))
- (other-window 1)
- (eshell))
- (switch-to-buffer-other-window "*eshell*")))