diff options
Diffstat (limited to '.config/emacs/init.el')
| -rw-r--r-- | .config/emacs/init.el | 27 |
1 files changed, 6 insertions, 21 deletions
diff --git a/.config/emacs/init.el b/.config/emacs/init.el index 79416e6..58ce2fc 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -45,18 +45,6 @@ open URL at point." (defun clamp (lower-bound upper-bound value) (max lower-bound (min value upper-bound))) -(defun insert-into-list (list el n) - "Insert into list LIST an element EL at index N. - -If N is 0, EL is inserted before the first element. - -The resulting list is returned. As the list contents is mutated -in-place, the old list reference does not remain valid." - (let* ((padded-list (cons nil list)) - (c (nthcdr n padded-list))) - (setcdr c (cons el (cdr c))) - (cdr padded-list))) - (defun remote-shell () (interactive) (let ((default-directory "/ssh:bdunahu@perch.cs.colostate.edu:")) @@ -67,9 +55,6 @@ in-place, the old list reference does not remain valid." (require 'package) (add-to-list 'load-path "/home/bdunahu/.guix-profile/share/emacs/site-lisp") (guix-emacs-autoload-packages) -(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/")) -(package-initialize) -(package-refresh-contents) (require 'use-package-ensure) (setq use-package-always-ensure t) ;; (setq use-package-verbose t) ; for debugging @@ -92,17 +77,15 @@ in-place, the old list reference does not remain valid." ("Arch Linux: Recent news updates" "https://archlinux.org/feeds/news/" nil nil nil) ("Parabola GNU/Linux-libre: Recent news updates" "https://www.parabola.nu/feeds/news/" nil nil nil) ("suckless.org news" "https://suckless.org/atom.xml" nil nil nil) - ("Richard Stallman's Political News" "https://stallman.org/rss/rss.xml" nil nil nil) ("Mental Outlaw" "https://vid.puffyan.us/feed/channel/UC7YOGHUfC1Tb6E4pudI9STA" nil nil nil) ("Luke Smith" "https://vid.puffyan.us/feed/channel/UC2eYFnH61tmytImy1mTYvhA" nil nil nil) ("Brent Westbrook" "https://yewtu.be/feed/channel/UC0PBefyEK7qQ7HN325nUamQ" nil nil nil) ("Bugswriter" "https://yewtu.be/feed/channel/UCngn7SVujlvskHRvRKc1cTw" nil nil nil) - ("Protesilaos Stravrou" "https://yewtu.be/feed/playlist/PL8Bwba5vnQK14z96Gil86pLMDO2GnOhQ6" nil nil nil))) + ("Protesilaos Stravrou" "https://yewtu.be/feed/playlist/PL8Bwba5vnQK14z96Gil86pLMDO2GnOhQ6" nil nil nil))) ;; may require ./newsticker/groups to be cleared (newsticker-groups '("Feeds" ("READING" "Ambrose and Elsewhere" "James Enge Mastodon" "Book Reviews | Tales From the Magician's Skull") ("TECH" ("GNU/Linux" "Arch Linux: Recent news updates" "Parabola GNU/Linux-libre: Recent news updates") "suckless.org news") - ("POLITICAL" "Richard Stallman's Political News") ("VIDEO" "Mental Outlaw" "Luke Smith" "Brent Westbrook" "Bugswriter" "Protesilaos Stravrou")))) (setq erc-server "irc.libera.chat" @@ -134,9 +117,11 @@ in-place, the old list reference does not remain valid." (setq fit-window-to-buffer-horizontally t) -(ido-mode 1) -;; allow same buffer on multiple frames -(setq ido-default-buffer-method 'selected-window) +(use-package vertico + :init + (vertico-mode) + :custom + (vertico-cycle t)) ;; allow one side window per side of frame (setq window-sides-slots '(1 1 1 1)) |