diff options
Diffstat (limited to '.emacs.d/init/ycp-client.el')
-rw-r--r-- | .emacs.d/init/ycp-client.el | 104 |
1 files changed, 0 insertions, 104 deletions
diff --git a/.emacs.d/init/ycp-client.el b/.emacs.d/init/ycp-client.el deleted file mode 100644 index def2351..0000000 --- a/.emacs.d/init/ycp-client.el +++ /dev/null @@ -1,104 +0,0 @@ -;;; ycp-client.el -- My config for non-http clients -*- lexical-binding: t -*- - -;; Copyright (C) 2023 Free Software Foundation. - -;; Author: Yuchen Pei <id@ypei.org> -;; Package-Requires: ((emacs "28.2")) - -;; This file is part of dotfiles. - -;; dotfiles is free software: you can redistribute it and/or modify it under -;; the terms of the GNU Affero General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; dotfiles is distributed in the hope that it will be useful, but WITHOUT -;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General -;; Public License for more details. - -;; You should have received a copy of the GNU Affero General Public -;; License along with dotfiles. If not, see <https://www.gnu.org/licenses/>. - -;;; Commentary: - -;; My config for non-http clients. like wget, ytdl, sql, irc, etc - - -;;; Code: - -;;; Note: erc is only allowed when `my-profile' is erc, as assigned in early-init.el -(my-package erc - (setq erc-lurker-hide-list '("JOIN" "PART" "QUIT")) - (setq erc-disable-ctcp-replies t) - (setq erc-modules - '(button completion irccontrols list match menu move-to-prompt - netsplit networks noncommands notifications readonly - ring stamp track)) - (my-setq-from-local erc-track-exclude erc-server erc-nick erc-port) - ;; use auth-source for authentication - (setq erc-prompt-for-password nil) - (setq erc-paranoid t) - (setq erc-fill-mode t) - (require 'erc-match) - (set-face-attribute 'erc-fool-face nil :foreground "white") - (setq erc-fool-highlight-type 'all) - (my-setq-from-local erc-fools) - (erc-tls)) - -(my-package dictionary - (:delay 15) - (autoload 'dictionary-search "dictionary" - "Ask for a word and search it in all dictionaries" t) - (autoload 'dictionary-match-words "dictionary" - "Ask for a word and search all matching words in the dictionaries" t) - (autoload 'dictionary-lookup-definition "dictionary" - "Unconditionally lookup the word at point." t) - (autoload 'dictionary "dictionary" - "Create a new dictionary buffer" t) - (autoload 'dictionary-mouse-popup-matching-words "dictionary" - "Display entries matching the word at the cursor" t) - (autoload 'dictionary-popup-matching-words "dictionary" - "Display entries matching the word at the point" t) - (autoload 'dictionary-tooltip-mode "dictionary" - "Display tooltips for the current word" t) - (autoload 'global-dictionary-tooltip-mode "dictionary" - "Enable/disable dictionary-tooltip-mode for all buffers" t) - (my-keybind global-map - "C-c dd" #'dictionary-search - "C-c dm" #'dictionary-match-words) - (setq dictionary-server "dict.org" - dictionary-default-popup-strategy "lev" ; read doc string - dictionary-create-buttons nil - dictionary-use-single-buffer t)) - -(my-package wget - (:delay 60) - (setq wget-download-directory "~/Downloads") - (setq my-wget-size-threshold (* 20 1024 1024)) - (require 'my-wget) - (my-setq-from-local my-wget-video-archive-directory) - (my-keybind eww-mode-map "s" #'my-eww-wget-save-page) -) - -(my-package my-ytdl - (:delay 60) - (my-setq-from-local my-ytdl-audio-download-dir my-ytdl-video-download-dir)) - -(my-package my-media-segment - (:delay 60)) - -(my-package detached - (:install t) - (:delay 60) - (my-keybind detached-shell-mode-map - "C-<return>" nil - "C-S-<return>" #'detached-attach-session) - (require 'my-detached) - (my-keybind global-map "\M-z" #'my-execute-external-command) -) - -(my-package pactl (:delay 60)) - -(provide 'ycp-client) -;;; ycp-client.el ends here |