;;; 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-h y" #'dictionary-search
    "C-h Y" #'dictionary-match-words)
  ;; Install dictd locally to serve lookups
  (setq dictionary-server "localhost"
        dictionary-default-popup-strategy "lev" ; read doc string
        dictionary-create-buttons nil
        dictionary-use-single-buffer t))

(my-package ange-ftp
  (:delay 15)
  (setq ange-ftp-try-passive-mode t))

(my-package wget
  (:delay 60)
  (require 'my-utils)
  (setq wget-download-directory my-incoming-dir)
  (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)
  (require 'my-utils)
  (setq my-ytdl-audio-download-dir my-audio-incoming-dir
        my-ytdl-video-download-dir my-video-incoming-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