asdlkfjsadlfk
This commit is contained in:
parent
ac140306ac
commit
a0445570df
26
custom.el
26
custom.el
|
@ -203,6 +203,27 @@
|
||||||
(man word)
|
(man word)
|
||||||
"Not a word.")))
|
"Not a word.")))
|
||||||
|
|
||||||
|
(defun fez/insert-line ()
|
||||||
|
(interactive)
|
||||||
|
(move-beginning-of-line nil)
|
||||||
|
(open-line 1))
|
||||||
|
|
||||||
|
;; TODO: Put this in C-mode or something
|
||||||
|
(defun fez/include-guard ()
|
||||||
|
(interactive)
|
||||||
|
(let ((guard (concat (upcase (file-name-base (buffer-file-name)))
|
||||||
|
"_H")))
|
||||||
|
(goto-char (point-min))
|
||||||
|
(insert (concat "#ifndef "
|
||||||
|
guard
|
||||||
|
"\n#define "
|
||||||
|
guard
|
||||||
|
"\n"))
|
||||||
|
(goto-char (point-max))
|
||||||
|
(insert (concat "\n\n\n#endif /* "
|
||||||
|
guard
|
||||||
|
" */\n")))
|
||||||
|
(forward-line -3))
|
||||||
;; Eshell convinience commands.
|
;; Eshell convinience commands.
|
||||||
(defalias 'open 'find-file-other-window)
|
(defalias 'open 'find-file-other-window)
|
||||||
(defalias 'clean 'eshell/clear-scrollback)
|
(defalias 'clean 'eshell/clear-scrollback)
|
||||||
|
@ -218,13 +239,16 @@
|
||||||
;; Better buffer management (smol).
|
;; Better buffer management (smol).
|
||||||
(global-set-key (kbd "C-x C-b") 'bs-show)
|
(global-set-key (kbd "C-x C-b") 'bs-show)
|
||||||
|
|
||||||
;; Insipiration from Nyxt, kill the current buffer.
|
;; Inspiration from Nyxt, kill the current buffer.
|
||||||
(global-set-key (kbd "C-x C-k") 'kill-this-buffer)
|
(global-set-key (kbd "C-x C-k") 'kill-this-buffer)
|
||||||
|
|
||||||
(global-set-key (kbd "C-c t") 'fez/time-stamp)
|
(global-set-key (kbd "C-c t") 'fez/time-stamp)
|
||||||
|
|
||||||
(global-set-key (kbd "C-z C-m") 'fez/man-at-point)
|
(global-set-key (kbd "C-z C-m") 'fez/man-at-point)
|
||||||
|
|
||||||
|
(global-set-key (kbd "C-S-o") 'open-line)
|
||||||
|
(global-set-key (kbd "C-o") 'fez/insert-line)
|
||||||
|
|
||||||
;; zap-up-to-char > zap-to-char
|
;; zap-up-to-char > zap-to-char
|
||||||
(global-set-key (kbd "M-z") 'zap-up-to-char)
|
(global-set-key (kbd "M-z") 'zap-up-to-char)
|
||||||
|
|
||||||
|
|
3
init.el
3
init.el
|
@ -69,6 +69,7 @@
|
||||||
;; (setq geiser-guile-binary "/usr/local/bin/guile-ncurses-shell")
|
;; (setq geiser-guile-binary "/usr/local/bin/guile-ncurses-shell")
|
||||||
|
|
||||||
(setq geiser-active-implementations '(chez))
|
(setq geiser-active-implementations '(chez))
|
||||||
|
(setq geiser-chez-binary "/usr/bin/scheme")
|
||||||
|
|
||||||
;; I use emacs as my window manager.
|
;; I use emacs as my window manager.
|
||||||
(exwm-config)
|
;; (exwm-config)
|
||||||
|
|
25
packages.el
25
packages.el
|
@ -40,6 +40,14 @@
|
||||||
(use-package sly
|
(use-package sly
|
||||||
:ensure t
|
:ensure t
|
||||||
:config
|
:config
|
||||||
|
(use-package ac-sly
|
||||||
|
:ensure t
|
||||||
|
:config
|
||||||
|
(add-hook 'sly-mode-hook 'set-up-sly-ac)
|
||||||
|
(add-hook 'lisp-mode-hook 'auto-complete-mode)
|
||||||
|
(eval-after-load 'auto-complete
|
||||||
|
'(add-to-list 'ac-modes 'sly-mrepl-mode)))
|
||||||
|
|
||||||
(setq inferior-lisp-program "sbcl")
|
(setq inferior-lisp-program "sbcl")
|
||||||
(add-hook 'sly-mode-hook
|
(add-hook 'sly-mode-hook
|
||||||
(lambda ()
|
(lambda ()
|
||||||
|
@ -165,13 +173,13 @@
|
||||||
(wl . wl-other-frame))))
|
(wl . wl-other-frame))))
|
||||||
|
|
||||||
;; Notes
|
;; Notes
|
||||||
(use-package org-roam
|
;; (use-package org-roam
|
||||||
:ensure t
|
;; :ensure t
|
||||||
:bind
|
;; :bind
|
||||||
("C-c o i" . org-roam-jump-to-index)
|
;; ("C-c o i" . org-roam-jump-to-index)
|
||||||
("C-c o n" . fez/org-roam-new-note)
|
;; ("C-c o n" . fez/org-roam-new-note)
|
||||||
:init
|
;; :init
|
||||||
(setq org-roam-directory "~/Documents/org-roam"))
|
;; (setq org-roam-directory "~/Documents/org-roam"))
|
||||||
|
|
||||||
;; better shell-command
|
;; better shell-command
|
||||||
(use-package shell-command+
|
(use-package shell-command+
|
||||||
|
@ -328,6 +336,7 @@
|
||||||
("https://www.youtube.com/feeds/videos.xml?channel_id=UCUmLRMERmJrmUtgnbFfknAg" youtube)
|
("https://www.youtube.com/feeds/videos.xml?channel_id=UCUmLRMERmJrmUtgnbFfknAg" youtube)
|
||||||
("https://www.youtube.com/feeds/videos.xml?channel_id=UCah7IyEzRnRdttwDGDdy_gw" youtube)
|
("https://www.youtube.com/feeds/videos.xml?channel_id=UCah7IyEzRnRdttwDGDdy_gw" youtube)
|
||||||
("https://www.youtube.com/feeds/videos.xml?channel_id=UCUmLRMERmJrmUtgnbFfknAg" youtube)
|
("https://www.youtube.com/feeds/videos.xml?channel_id=UCUmLRMERmJrmUtgnbFfknAg" youtube)
|
||||||
("https://www.youtube.com/feeds/videos.xml?channel_id=UCD6VugMZKRhSyzWEWA9W2fg" youtube))))
|
("https://www.youtube.com/feeds/videos.xml?channel_id=UCD6VugMZKRhSyzWEWA9W2fg" youtube)
|
||||||
|
("https://www.youtube.com/feeds/videos.xml?channel_id=UCL7DDQWP6x7wy0O6L5ZIgxg" youtube))))
|
||||||
|
|
||||||
(provide 'packages)
|
(provide 'packages)
|
||||||
|
|
Loading…
Reference in New Issue