added stuff

This commit is contained in:
9ahmed 2021-04-19 00:45:24 +05:00
parent ce751e81f7
commit b39b3c4edf
9 changed files with 6516 additions and 12 deletions

View File

@ -0,0 +1,66 @@
;;; persp-mode-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
(add-to-list 'load-path (directory-file-name
(or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "persp-mode" "persp-mode.el" (0 0 0 0))
;;; Generated autoloads from persp-mode.el
(autoload 'persp-def-auto-persp "persp-mode" "\
\(fn NAME &rest KEYARGS &key BUFFER-NAME FILE-NAME MODE MODE-NAME MINOR-MODE MINOR-MODE-NAME PREDICATE HOOKS DYN-ENV GET-NAME GET-BUFFER GET-PERSP SWITCH PARAMETERS NOAUTO WEAK USER-DATA ON-MATCH AFTER-MATCH DONT-PICK-UP-BUFFERS DELETE)" nil nil)
(define-obsolete-function-alias 'def-auto-persp 'persp-def-auto-persp "persp-mode 2.9.6")
(autoload 'persp-def-buffer-save/load "persp-mode" "\
\(fn &rest KEYARGS &key BUFFER-NAME FILE-NAME MODE MODE-NAME MINOR-MODE MINOR-MODE-NAME PREDICATE TAG-SYMBOL SAVE-VARS SAVE-FUNCTION LOAD-FUNCTION AFTER-LOAD-FUNCTION MODE-RESTORE-FUNCTION APPEND)" nil nil)
(define-obsolete-function-alias 'def-persp-buffer-save/load 'persp-def-buffer-save/load "persp-mode 2.9.6")
(defvar persp-mode nil "\
Non-nil if Persp mode is enabled.
See the `persp-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `persp-mode'.")
(custom-autoload 'persp-mode "persp-mode" nil)
(autoload 'persp-mode "persp-mode" "\
Toggle the persp-mode.
When active, keeps track of multiple 'perspectives',
named collections of buffers and window configurations.
Here is a keymap of this minor mode:
\\{persp-mode-map}
If called interactively, toggle `Persp mode'. If the prefix
argument is positive, enable the mode, and if it is zero or
negative, disable the mode.
If called from Lisp, toggle the mode if ARG is `toggle'. Enable
the mode if ARG is nil, omitted, or is a positive number.
Disable the mode if ARG is a negative number.
The mode's hook is called both when the mode is enabled and when
it is disabled.
\(fn &optional ARG)" t nil)
(register-definition-prefixes "persp-mode" '("*persp-" "clear-window-persp" "def-" "get-" "ido-toggle-persp-filter" "persp" "safe-persp-" "set-" "window-persp-set-p" "with-persp-ido-hooks"))
;;;***
;; Local Variables:
;; version-control: never
;; no-byte-compile: t
;; no-update-autoloads: t
;; coding: utf-8
;; End:
;;; persp-mode-autoloads.el ends here

View File

@ -0,0 +1,2 @@
;;; Generated package description from persp-mode.el -*- no-byte-compile: t -*-
(define-package "persp-mode" "20201128.2015" "windows/buffers sets shared among frames + save/load." '((emacs "24.3")) :commit "298df111f081b5925f0aa0126a1b8d334117e0a2" :authors '(("Constantin Kulikov (Bad_ptr)" . "zxnotdead@gmail.com")) :maintainer '("Constantin Kulikov (Bad_ptr)" . "zxnotdead@gmail.com") :keywords '("perspectives" "session" "workspace" "persistence" "windows" "buffers" "convenience") :url "https://github.com/Bad-ptr/persp-mode.el")

File diff suppressed because it is too large Load Diff

Binary file not shown.

View File

@ -0,0 +1,22 @@
;;; workgroups-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
(add-to-list 'load-path (directory-file-name
(or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "workgroups" "workgroups.el" (0 0 0 0))
;;; Generated autoloads from workgroups.el
(register-definition-prefixes "workgroups" '("w-set-frame-size-and-scale-wtree" "wg-" "workgroups-mode"))
;;;***
;; Local Variables:
;; version-control: never
;; no-byte-compile: t
;; no-update-autoloads: t
;; coding: utf-8
;; End:
;;; workgroups-autoloads.el ends here

View File

@ -0,0 +1,2 @@
;;; Generated package description from workgroups.el -*- no-byte-compile: t -*-
(define-package "workgroups" "20110726.1641" "workgroups for windows (for Emacs)" 'nil :commit "9572b3492ee09054dc329f64ed846c962b395e39" :authors '(("tlh" . "thunkout@gmail.com")) :maintainer '("tlh" . "thunkout@gmail.com") :keywords '("session" "management" "window-configuration" "persistence"))

File diff suppressed because it is too large Load Diff

Binary file not shown.

70
init.el
View File

@ -11,25 +11,27 @@
;; setup dashboard
(require 'dashboard)
(use-package dashboard
:ensure t
:config
(dashboard-setup-startup-hook))
:ensure t
:config
(dashboard-setup-startup-hook))
;; Set the title
(setq dashboard-banner-logo-title "Welcome to Emacs Dashboard")
(setq dashboard-banner-logo-title "Welcome to Emacs!")
;; Set the banner
(setq dashboard-startup-banner 'logo)
;; Value can be
;;'official which displays the official emacs logo
;;'logo which displays an alternative emacs logo
;;1, 2 or 3 which displays one of the text banners
;;"path/to/your/image.png" or "path/to/your/text.txt" which displays whatever image/text you would prefer
;; Content is not centered by default. To center, set
(setq dashboard-center-content t)
;; Icons
(setq dashboard-set-heading-icons t)
(setq dashboard-set-file-icons t)
;; Navigator
(setq dashboard-set-navigator t)
;; Widgets
(setq dashboard-items 'nil)
(set-face-attribute 'default nil :font "Cascadia Code" :height 100)
@ -284,3 +286,47 @@
(expand-file-name "custom.el" server-socket-dir)
(expand-file-name (format "emacs-custom-%s.el" (user-uid)) temporary-file-directory)))
(load custom-file t)
(defvar +workspace--last nil)
(defvar +workspace--index 0)
;;;###autoload
(defface +workspace-tab-selected-face '((t (:inherit highlight)))
"The face for selected tabs displayed by `+workspace/display'"
:group 'persp-mode)
;;;###autoload
(defface +workspace-tab-face '((t (:inherit default)))
"The face for selected tabs displayed by `+workspace/display'"
:group 'persp-mode)
;;
;;; Library
(defun +workspace--protected-p (name)
(equal name persp-nil-name))
(defun +workspace--generate-id ()
(or (cl-loop for name in (+workspace-list-names)
when (string-match-p "^#[0-9]+$" name)
maximize (string-to-number (substring name 1)) into max
finally return (if max (1+ max)))
1))
;;; Predicates
;;;###autoload
(defalias #'+workspace-p #'perspective-p
"Return t if OBJ is a perspective hash table.")
;;;###autoload
(defun +workspace-exists-p (name)
"Returns t if NAME is the name of an existing workspace."
(member name (+workspace-list-names)))
;;;###autoload
(defalias #'+workspace-contains-buffer-p #'persp-contain-buffer-p
"Return non-nil if BUFFER is in WORKSPACE (defaults to current workspace).")