asdlkfjsadlfk

This commit is contained in:
opfez 2021-09-20 19:39:17 +02:00
parent ac140306ac
commit a0445570df
3 changed files with 44 additions and 10 deletions

View File

@ -203,6 +203,27 @@
(man 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.
(defalias 'open 'find-file-other-window)
(defalias 'clean 'eshell/clear-scrollback)
@ -218,13 +239,16 @@
;; Better buffer management (smol).
(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-c t") 'fez/time-stamp)
(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
(global-set-key (kbd "M-z") 'zap-up-to-char)

View File

@ -69,6 +69,7 @@
;; (setq geiser-guile-binary "/usr/local/bin/guile-ncurses-shell")
(setq geiser-active-implementations '(chez))
(setq geiser-chez-binary "/usr/bin/scheme")
;; I use emacs as my window manager.
(exwm-config)
;; (exwm-config)

View File

@ -40,6 +40,14 @@
(use-package sly
:ensure t
: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")
(add-hook 'sly-mode-hook
(lambda ()
@ -165,13 +173,13 @@
(wl . wl-other-frame))))
;; Notes
(use-package org-roam
:ensure t
:bind
("C-c o i" . org-roam-jump-to-index)
("C-c o n" . fez/org-roam-new-note)
:init
(setq org-roam-directory "~/Documents/org-roam"))
;; (use-package org-roam
;; :ensure t
;; :bind
;; ("C-c o i" . org-roam-jump-to-index)
;; ("C-c o n" . fez/org-roam-new-note)
;; :init
;; (setq org-roam-directory "~/Documents/org-roam"))
;; better 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=UCah7IyEzRnRdttwDGDdy_gw" 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)