feat(gs/emacs): Add commands to enable/disable tvl notifications
Change-Id: Ie43680eeb963e9328adc9f79107fff2d0911cc99 Reviewed-on: https://cl.tvl.fyi/c/depot/+/2362 Tested-by: BuildkiteCI Reviewed-by: glittershark <grfn@gws.fyi>
This commit is contained in:
		
							parent
							
								
									7850ad0321
								
							
						
					
					
						commit
						bbea618a98
					
				
					 1 changed files with 8 additions and 0 deletions
				
			
		|  | @ -28,6 +28,14 @@ | ||||||
| 
 | 
 | ||||||
| (setq tvl-enabled? t) | (setq tvl-enabled? t) | ||||||
| 
 | 
 | ||||||
|  | (defun disable-tvl-notifications () | ||||||
|  |   (interactive) | ||||||
|  |   (setq tvl-enabled? nil)) | ||||||
|  | 
 | ||||||
|  | (defun enable-tvl-notifications () | ||||||
|  |   (interactive) | ||||||
|  |   (setq tvl-enabled? t)) | ||||||
|  | 
 | ||||||
| (defun erc-alert-important-p (info) | (defun erc-alert-important-p (info) | ||||||
|   (let ((message (plist-get info :message)) |   (let ((message (plist-get info :message)) | ||||||
|         (erc-message (-> info (plist-get :data) (plist-get :message))) |         (erc-message (-> info (plist-get :data) (plist-get :message))) | ||||||
|  |  | ||||||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue