diff options
| author | Jesús <heckyel@hyperbola.info> | 2018-07-29 20:12:28 -0500 |
|---|---|---|
| committer | Jesús <heckyel@hyperbola.info> | 2018-07-29 20:12:28 -0500 |
| commit | d172fb6e48fe4e342f0d94eade1b108bed91cc00 (patch) | |
| tree | 032559458aeda1cf45e9fc0f6561d742237b5b03 /lisp/lib/myemacs.el | |
| download | emacs-personal-d172fb6e48fe4e342f0d94eade1b108bed91cc00.tar.lz emacs-personal-d172fb6e48fe4e342f0d94eade1b108bed91cc00.tar.xz emacs-personal-d172fb6e48fe4e342f0d94eade1b108bed91cc00.zip | |
Initial commit
Diffstat (limited to 'lisp/lib/myemacs.el')
| -rw-r--r-- | lisp/lib/myemacs.el | 18 |
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 |