blob: 4a394181f4642cec8ed946a41f79279b3dbf04d0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
;; -*- lexical-binding: t -*-
(defun my/macos-dark-p ()
"Returns non-nil if macOS is currently in dark mode, nil otherwise."
(interactive)
(string= (shell-command-to-string "defaults read -g AppleInterfaceStyle")
"Dark\n"))
(defun my/modify-frame-parameters (parameters &optional frame)
(when (frame-parameter frame 'fullscreen)
(toggle-frame-maximized))
(modify-frame-parameters frame (append parameters
'((height . 1.0) (top . 1.0)
(left . 0.0) (user-position t)))))
(defun my/resize-frame (&optional frame)
"Interactively resize FRAME."
(interactive)
(let ((echo-keystrokes nil))
(set-transient-map
(let ((map (make-sparse-keymap)))
(keymap-set map "f" #'toggle-frame-maximized)
(dolist (elem `(("i" . ((width . 0.5)))
("j" . ((width . ,(/ 2.0 3))))
("k" . ((left . 1.0) (width . ,(/ 2.0 3))))
("l" . ((left . 0.5) (width . 0.5)))
("o" . ((left . 1.0) (width . 0.5)))))
(keymap-set map (car elem) (lambda ()
(interactive)
(my/modify-frame-parameters (cdr elem)))))
map)
t nil
"Use %k to resize the frame")))
|
