(0, 0)にwindow配置

This commit is contained in:
2026-07-04 08:26:34 +09:00
parent 38dc2a2b3d
commit 90128ba06f
+5 -4
View File
@@ -12,11 +12,11 @@
"QR frame size in pixels." "QR frame size in pixels."
:type 'integer) :type 'integer)
(defcustom my-qrcode-frame-left 100 (defcustom my-qrcode-frame-left 0
"QR frame left position." "QR frame left position."
:type 'integer) :type 'integer)
(defcustom my-qrcode-frame-top 100 (defcustom my-qrcode-frame-top 0
"QR frame top position." "QR frame top position."
:type 'integer) :type 'integer)
@@ -177,7 +177,8 @@
(make-frame (make-frame
`((name . "QR Code") `((name . "QR Code")
(left . ,my-qrcode-frame-left) (left . ,my-qrcode-frame-left)
(top . ,my-qrcode-frame-top))))) (top . ,my-qrcode-frame-top)
(user-position . t)))))
;; 正方形サイズ(ピクセル単位) ;; 正方形サイズ(ピクセル単位)
(set-frame-size (set-frame-size
@@ -199,7 +200,7 @@
;; (global-set-key ;; (global-set-key
;; (kbd "C-c q") ;; (kbd "C-c q")
;; #'my-region-to-qrcode) ;; #'my-qrcode-from-region)
(provide 'my-qrcode) (provide 'my-qrcode)