pixelifytica/emacs
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Move buffer shortcuts into own file

Browse source
This commit is contained in:
Evie Litherland-Smith 2024-02-21 14:02:53 +00:00
parent 85a3fe4f03
commit ccbacd0f35
2 changed files with 65 additions and 49 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

65
config/buffers.org Normal file
View file

@ -0,0 +1,65 @@
#+title: Buffer Config
#+author: Evie Litherland-Smith
#+email: evie@xenia.me.uk
#+language: en
#+filetags: :emacs:config:
#+property: header-args:emacs-lisp :tangle yes :mkdirp yes :results output silent
* Common buffer shortcuts
** Scratch buffer
#+begin_src emacs-lisp
;; Scratch buffer shortcut
(keymap-global-set "C-c w x" #'scratch-buffer)
#+end_src
** emacs init file
#+begin_src emacs-lisp
;; Config file shortcut
(defun my/open-init-file ()
"Open emacs init file"
(interactive)
(find-file (locate-user-emacs-file "init.el")))
(keymap-global-set "C-c w c" #'my/open-init-file)
#+end_src
** NixOS config flake
#+begin_src emacs-lisp
;; NixOS flake shortcut
(defun my/open-nixos-flake ()
"Open NixOS system config flake"
(interactive)
(let ((flake "/etc/nixos/flake.nix"))
(if (file-exists-p flake)
(find-file flake)
(warn (concat flake " not found")))))
(keymap-global-set "C-c w n" #'my/open-nixos-flake)
#+end_src
** Templates file
#+begin_src emacs-lisp
;; Tempel template file shortcut
(with-eval-after-load 'tempel
(defun my/open-template-file ()
"Open `tempel' template file"
(interactive)
(find-file tempel-path))
(keymap-global-set "C-c w t" #'my/open-template-file))
#+end_src
** Org directory
#+begin_src emacs-lisp
;; Org directory shortcut
(with-eval-after-load 'org
(defun my/open-org-directory ()
"Open base org-mode directory in dired"
(interactive)
(find-file org-directory))
(keymap-global-set "C-c w o" #'my/open-org-directory))
#+end_src
** RSS feeds file
#+begin_src emacs-lisp
;; Elfeed feeds file shortcut
(with-eval-after-load 'org
(defun my/open-feeds-file ()
"Open org file containing elfeed sources"
(interactive)
(require 'elfeed)
(require 'elfeed-org)
(find-file (expand-file-name "feeds.org" elfeed-base-directory))))
(keymap-global-set "C-c w f" #'my/open-feeds-file)
#+end_src

49
config/defaults.org
View file

@ -73,55 +73,6 @@
(recentf-max-saved-items 2048))
#+end_src
* Frequent buffer shortcuts
#+begin_src emacs-lisp
;; Config file shortcut
(defun my/open-init-file ()
"Open emacs init file"
(interactive)
(find-file (locate-user-emacs-file "init.el")))
(keymap-global-set "C-c w c" #'my/open-init-file)
;; NixOS flake shortcut
(defun my/open-nixos-flake ()
"Open NixOS system config flake"
(interactive)
(let ((flake "/etc/nixos/flake.nix"))
(if (file-exists-p flake)
(find-file flake)
(warn (concat flake " not found")))))
(keymap-global-set "C-c w n" #'my/open-nixos-flake)
;; Scratch buffer shortcut
(keymap-global-set "C-c w x" #'scratch-buffer)
;; Tempel template file shortcut
(with-eval-after-load 'tempel
(defun my/open-template-file ()
"Open `tempel' template file"
(interactive)
(find-file tempel-path))
(keymap-global-set "C-c w t" #'my/open-template-file))
;; Org directory shortcut
(with-eval-after-load 'org
(defun my/open-org-directory ()
"Open base org-mode directory in dired"
(interactive)
(find-file org-directory))
(keymap-global-set "C-c w o" #'my/open-org-directory))
;; Elfeed feeds file shortcut
(with-eval-after-load 'org
(defun my/open-feeds-file ()
"Open org file containing elfeed sources"
(interactive)
(require 'elfeed)
(require 'elfeed-org)
(find-file (expand-file-name "feeds.org" elfeed-base-directory))))
(keymap-global-set "C-c w f" #'my/open-feeds-file)
#+end_src
* package-archive with priorities
#+begin_src emacs-lisp :results output silent
(when (require 'package nil :noerror)