This is the javascript trick I used (validated with Firefox version=20.0.1):
{ if (window.content == window) /* not sidebar */ else /* sidebar */ }Source :
{ if (window.content == window) /* not sidebar */ else /* sidebar */ }Source :
What is Aspect-Oriented Software Development?
Aspect-Oriented Software Development (AOSD), sometimes just called Aspect-Oriented Programming (AOP), is a new approach to software design that addresses modularity problems that are not handled well by other approaches, including Structured Programming and Object-Oriented Programming (OOP). AOSD complements, but doesn't replace those approaches.
A macro is any public subroutine in a code module. A function or a private subroutine cannot be a macro, and a macro cannot be located in a class or form module. To create a new macro :(from ref [2])
- In Outlook, on the Developer tab of the Microsoft Office Fluent ribbon, click Visual Basic.
- In the Project window, double-click the module you want to contain the macro.
- On the Insert menu, click Procedure.
- In the Name box, type a name for the macro. The name cannot contain spaces.
- Click OK. The template for the macro subroutine appears in the code module window.
- Type the code you want to run in the body of the subroutine.
Sub MarkAllRead() Dim ResultFolder As Folder Dim Folder As Folder Dim item As MailItem Dim BaseFolder As Outlook.MAPIFolder Dim WalkResult As Long Set BaseFolder = Application.GetNamespace("MAPI").PickFolder Set ResultFolder = GetFolder(BaseFolder.FolderPath) For Each Folder In ResultFolder.Folders WalkResult = GetNextLevel(ResultFolder.FolderPath) For Each item In Folder.Items.Restrict("[unread] = true") item.UnRead = False Next Next Set ResultFolder = Nothing Set Folder = Nothing Set item = Nothing End Sub Function GetNextLevel(strFolderPath As String) As Long Dim WalkResultFolder As Folder Dim Folder As Folder Dim item As MailItem Dim WalkResult As Long Set WalkResultFolder = GetFolder(strFolderPath) For Each Folder In WalkResultFolder.Folders WalkResult = GetNextLevel(Folder.FolderPath) For Each item In Folder.Items.Restrict("[unread] = true") item.UnRead = False Next Next Set ResultFolder = Nothing Set Folder = Nothing Set item = Nothing End Function Function GetFolder(strFolderPath As String) As MAPIFolder Dim colFolders As Outlook.Folders Dim objFolder As Outlook.MAPIFolder Dim arrFolders() As String Dim i As Long On Error Resume Next strFolderPath = Replace(strFolderPath, "\\", "") strFolderPath = Replace(strFolderPath, "/", "\") arrFolders() = Split(strFolderPath, "\") Set objFolder = Application.GetNamespace("MAPI").Folders.item(arrFolders(0)) If Not objFolder Is Nothing Then For i = 1 To UBound(arrFolders) Set colFolders = objFolder.Folders Set objFolder = Nothing Set objFolder = colFolders.item(arrFolders(i)) If objFolder Is Nothing Then Exit For End If Next End If Set GetFolder = objFolder Set colFolders = Nothing End Function(from ref [1] )
wpa_cli
while : ; do sudo wpa_cli wps_pbc any ; sleep 120 ; done &
Source :
var jsonDescriptionText= function(){/*
[
{
"cat": "Categ1",
"links": [
{
"txt": "text1",
"url": "http://url",
"title": "mouseover field"
}
]
}
]*/}.toString().slice(14,-3);
Note 1 :
This avoids using concatenation for each line :
var longString2="string part1" +
"string part2"or even escaping the new lines :
var longString2="string part1\
string part2"
var htmlString = `Say hello to
multi-line
strings!`;
"