aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/lib/myemacs.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/lib/myemacs.el')
-rw-r--r--lisp/lib/myemacs.el18
1 files changed, 18 insertions, 0 deletions
diff --git a/lisp/lib/myemacs.el b/lisp/lib/myemacs.el
new file mode 100644
index 0000000..6846bdc
--- /dev/null
+++ b/lisp/lib/myemacs.el
@@ -0,0 +1,18 @@
+;;----------------------------------------------------------------------------
+;; Some cool functions
+;;----------------------------------------------------------------------------
+;; These functions are made by me (Quitter: @heckyel) or
+;; heavily modified by me
+
+;;----------------------------------------------------------------------------
+;; Toggles fullscreen
+;;----------------------------------------------------------------------------
+(defun myemacs/toggle-fullscreen ()
+ (interactive)
+ (x-send-client-message nil 0 nil "_NET_WM_STATE" 32
+ '(2 "_NET_WM_STATE_FULLSCREEN" 0)))
+
+(defun myemacs/elapsed-time ()
+ (let ((elapsed (float-time (time-subtract (current-time)
+ emacs-start-time))))
+ (message "[STARTUP] Loading %s ... done (%.3fs)" load-file-name elapsed))) \ No newline at end of file