feat: Add verticl/horizontal display

jcs-elpa · May 28, 2024 · 779a3ca · 779a3ca
1 parent 960778b
commit 779a3ca
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/elenv.el b/elenv.el
@@ -175,6 +175,16 @@ For argument REMOTE, see function `executable-find' description."
 (defconst elenv-graphic-p (display-graphic-p)
   "Return t if graphic mode.")
 
+;;;###autoload
+(defun elenv-display-vertical-p ()
+  "Return non-nil if currently on a vertical display."
+  (< (display-pixel-width) (display-pixel-height)))
+
+;;;###autoload
+(defun elenv-display-horizontal-p ()
+  "Return non-nil if currently on a horizontal display."
+  (not (elenv-display-vertical-p)))
+
 ;;
 ;; (@* "Daemon" )
 ;;