You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
44 lines
1.5 KiB
EmacsLisp
44 lines
1.5 KiB
EmacsLisp
;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-
|
|
|
|
;; Place your private configuration here! Remember, you do not need to run 'doom
|
|
;; sync' after modifying this file!
|
|
|
|
;; Some functionality uses this to identify you, e.g. GPG configuration, email
|
|
;; clients, file templates and snippets. It is optional.
|
|
(setq user-full-name (getenv "CONFIG_FULL_NAME")
|
|
user-mail-address (getenv "CONFIG_EMAIL_ADDRESS"))
|
|
|
|
|
|
(unless 'display-graphic-p
|
|
(setq confirm-kill-emacs nil))
|
|
|
|
(load! "penguin/appearance.el")
|
|
(load! "penguin/lang.el")
|
|
(load! "penguin/keybinds.el")
|
|
(load! "penguin/org.el")
|
|
(load! "penguin/project.el")
|
|
(load! "penguin/debug.el")
|
|
(load! "penguin/calendar.el")
|
|
(load! "penguin/completions.el")
|
|
(load! "penguin/misc.el")
|
|
(load! "penguin/local.el")
|
|
(load! "penguin/serial-terminator.el")
|
|
|
|
(setq x-super-keysym 'meta)
|
|
;; credit: yorickvP on Github
|
|
(setq wl-copy-process nil)
|
|
(defun wl-copy (text)
|
|
(setq wl-copy-process (make-process :name "wl-copy"
|
|
:buffer nil
|
|
:command '("wl-copy" "-f" "-n")
|
|
:connection-type 'pipe
|
|
:noquery t))
|
|
(process-send-string wl-copy-process text)
|
|
(process-send-eof wl-copy-process))
|
|
(defun wl-paste ()
|
|
(if (and wl-copy-process (process-live-p wl-copy-process))
|
|
nil ; should return nil if we're the current paste owner
|
|
(shell-command-to-string "wl-paste -n | tr -d \r")))
|
|
(setq interprogram-cut-function 'wl-copy)
|
|
(setq interprogram-paste-function 'wl-paste)
|