mirror of
http://github.com/JaeUs3792/dotfiles
synced 2025-12-14 08:01:35 +09:00
52 lines
1.9 KiB
EmacsLisp
Executable File
52 lines
1.9 KiB
EmacsLisp
Executable File
(use-package doom-themes
|
|
;;:init (load-theme 'doom-one t))
|
|
:init (load-theme 'doom-palenight t))
|
|
|
|
(setq visible-bell t)
|
|
(set-frame-parameter nil 'alpha-background 1.0)
|
|
(add-to-list 'default-frame-alist '(alpha-background . 1.0))
|
|
(defun toggle-ttt ()
|
|
"toggle transparency."
|
|
(interactive)
|
|
(let ((alpha-transparency 1.0))
|
|
(if (eq (frame-parameter nil 'alpha-background) alpha-transparency)
|
|
(set-frame-parameter nil 'alpha-background 0.7)
|
|
(set-frame-parameter nil 'alpha-background alpha-transparency))))
|
|
|
|
(use-package all-the-icons)
|
|
(use-package doom-modeline
|
|
:init
|
|
(doom-modeline-mode 1)
|
|
:config
|
|
(setq doom-modeline-height 15
|
|
doom-modeline-env-version t
|
|
doom-modeline-indent-info t))
|
|
|
|
(defun self-screenshot (&optional type)
|
|
"Save a screenshot of type TYPE of the current Emacs frame.
|
|
As shown by the function `', type can weild the value `svg',
|
|
`png', `pdf'.
|
|
|
|
This function will output in /tmp a file beginning with \"Emacs\"
|
|
and ending with the extension of the requested TYPE."
|
|
(interactive)
|
|
(let* ((type (if type type
|
|
(intern (completing-read "Screenshot Type: "
|
|
'(png svg pdf postscript)))))
|
|
(extension (pcase type
|
|
('png ".png")
|
|
('svg ".svg")
|
|
('pdf ".pdf")
|
|
('postscript ".ps")
|
|
(otherwise (error "Cannot export screenshot of type %s" otherwise))))
|
|
(filename (make-temp-file "Emacs-" nil extension))
|
|
(data (x-export-frames nil type)))
|
|
(with-temp-file filename
|
|
(insert data))
|
|
(kill-new filename)
|
|
(rename-file filename (expand-file-name (file-name-nondirectory filename) "~"))
|
|
(message filename)))
|
|
|
|
(provide 'custom-ui)
|
|
;;; custom-ui.el ends here
|